Robustify a bit against filenames with no directory component.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1eeb982..63f8b7a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-11  Eric S. Raymond  <esr@snark.thyrsus.com>
+
+       * vc-hooks.el (vc-registered): Robustify this function a bit
+       against filenames with no directory component.
+
 2007-10-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * international/characters.el: Undo unwanted and unexplained change.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index d2825f9..64ce29d 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -362,7 +362,8 @@ file was previously registered under a certain backend, then that
 backend is tried first."
   (let (handler)
     (cond
-     ((string-match vc-ignore-dir-regexp (file-name-directory file)) nil)
+     ((and (file-name-directory file) (string-match vc-ignore-dir-regexp (file-name-directory file)))
+      nil)
      ((and (boundp 'file-name-handler-alist)
           (setq handler (find-file-name-handler file 'vc-registered)))
       ;; handler should set vc-backend and return t if registered