Changeset 4210 for trunk/lisp/vc-hooks.el

Timestamp:

06/02/07 09:29:41 (1 year ago)

Author:

miyoshi

Message:

Sync up with Emacs_22_BASE.

Files:

• trunk/lisp/vc-hooks.el (modified) (1 diff)

trunk/lisp/vc-hooks.el

@@ -316 +316 @@
-  ;; witnesses in /home or in /.
-  (setq file (abbreviate-file-name file))
-
+
+
-    (while (not (or root
-                   (equal file (setq file (file-name-directory file)))
-                   (null file)
+                   ;; As a heuristic, we stop looking up the hierarchy of
+                   ;; directories as soon as we find a directory belonging
+                   ;; to another user.  This should save us from looking in
+                   ;; things like /net and /afs.  This assumes that all the
+                   ;; files inside a project belong to the same user.
+                   (not (equal user (nth 2 (file-attributes file))))
-                   (string-match vc-ignore-dir-regexp file)))
-      (if (file-exists-p (expand-file-name witness file))