From d96c309f04df6900840e4b28d9420b46bb79002f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 13 May 2003 13:52:45 +0000 Subject: [PATCH] (vc-mcvs-registered, vc-mcvs-root): Check if file-name-directory returns nil. --- lisp/vc-mcvs.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el index 9f204bfc046..1f59f5f3280 100644 --- a/lisp/vc-mcvs.el +++ b/lisp/vc-mcvs.el @@ -116,14 +116,16 @@ This is only meaningful if you don't use the implicit checkout model ;;;###autoload (defun vc-mcvs-registered (file) ;;;###autoload (let ((dir file)) ;;;###autoload (while (and (stringp dir) -;;;###autoload (not (equal dir (setq dir (file-name-directory dir))))) +;;;###autoload (not (equal +;;;###autoload dir (setq dir (file-name-directory dir)))) +;;;###autoload dir) ;;;###autoload (setq dir (if (file-directory-p -;;;###autoload (expand-file-name "MCVS/CVS" dir)) -;;;###autoload t (directory-file-name dir)))) +;;;###autoload (expand-file-name "MCVS/CVS" dir)) +;;;###autoload t (directory-file-name dir)))) ;;;###autoload (if (eq dir t) -;;;###autoload (progn -;;;###autoload (load "vc-mcvs") -;;;###autoload (vc-mcvs-registered file))))) +;;;###autoload (progn +;;;###autoload (load "vc-mcvs") +;;;###autoload (vc-mcvs-registered file))))) (defun vc-mcvs-root (file) "Return the root directory of a Meta-CVS project, if any." @@ -132,7 +134,8 @@ This is only meaningful if you don't use the implicit checkout model file 'mcvs-root (let ((root nil)) (while (not (or root - (equal file (setq file (file-name-directory file))))) + (equal file (setq file (file-name-directory file))) + (null file))) (if (file-directory-p (expand-file-name "MCVS/CVS" file)) (setq root file) (setq file (directory-file-name file)))) -- 2.11.4.GIT