[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-hooks.el,v [EMACS_22_BASE]
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-hooks.el,v [EMACS_22_BASE] |
Date: |
Sat, 16 Feb 2008 18:15:51 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Juanma Barranquero <lektu> 08/02/16 18:15:51
Index: vc-hooks.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.182.2.14
retrieving revision 1.182.2.15
diff -u -b -r1.182.2.14 -r1.182.2.15
--- vc-hooks.el 7 Jan 2008 02:44:08 -0000 1.182.2.14
+++ vc-hooks.el 16 Feb 2008 18:15:50 -0000 1.182.2.15
@@ -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)
- [Emacs-diffs] Changes to emacs/lisp/vc-hooks.el,v [EMACS_22_BASE],
Juanma Barranquero <=