# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1203185750 0
# Node ID 09cc362bbcf4fad7c8eb560d77a8ee96213495f8
# Parent  4cab21eb920b9a96772a23519831045ded5d4226
(vc-find-root): Don't loop forever on non-existent root.

diff -r 4cab21eb920b -r 09cc362bbcf4 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Fri Feb 15 23:28:03 2008 +0000
+++ b/lisp/vc-hooks.el	Sat Feb 16 18:15:50 2008 +0000
@@ -316,7 +316,7 @@
 If WITNESS if not found, return nil, otherwise return the root."
   ;; Represent /home/luser/foo as ~/foo so that we don't try to look for
   ;; witnesses in /home or in /.
-  (while (not (file-directory-p file))
+  (while (and (not (file-directory-p file)) (file-exists-p file))
     (setq file (file-name-directory (directory-file-name file))))
   (setq file (abbreviate-file-name file))
   (let ((root nil)