diff options
| author | Alexandre Julliard <julliard@winehq.org> | 2006-12-22 16:56:15 +0300 |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2006-12-23 10:14:43 +0300 |
| commit | 4de0f9f9b6ed1731de00b67952504e5a783f54a4 (patch) | |
| tree | 869be292be3ce053593ec5c3ef2dfab410716219 /contrib | |
| parent | 40f656cd0214355df4c29aea315bfc2e9d983516 (diff) | |
vc-git: Ignore errors caused by a non-existent directory in vc-git-registered.
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/emacs/vc-git.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/contrib/emacs/vc-git.el b/contrib/emacs/vc-git.el index 8b6361922f..3eb4bd19e9 100644 --- a/contrib/emacs/vc-git.el +++ b/contrib/emacs/vc-git.el @@ -58,8 +58,9 @@ (with-temp-buffer (let* ((dir (file-name-directory file)) (name (file-relative-name file dir))) - (when dir (cd dir)) - (and (ignore-errors (eq 0 (call-process "git" nil '(t nil) nil "ls-files" "-c" "-z" "--" name))) + (and (ignore-errors + (when dir (cd dir)) + (eq 0 (call-process "git" nil '(t nil) nil "ls-files" "-c" "-z" "--" name))) (let ((str (buffer-string))) (and (> (length str) (length name)) (string= (substring str 0 (1+ (length name))) (concat name "\0")))))))) |