Mercurial > emacs

changeset 85157:93de0ca0707d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Robustify a bit against filenames with no directory component.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 11 Oct 2007 11:19:58 +0000
parents 781d1ba5e7a2
children eebbb85d6283
files lisp/vc-hooks.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Thu Oct 11 03:47:14 2007 +0000
+++ b/lisp/vc-hooks.el	Thu Oct 11 11:19:58 2007 +0000
@@ -362,7 +362,8 @@
 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