mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

lisp/vc-hooks.el (vc-find-root): Fix file attribute test

Browse Source 
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-27
This commit is contained in:
Miles Bader 2007-05-25 04:41:42 +00:00
parent f4fae9a093
commit fdabbcb537
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2007-05-25 Miles Bader <miles@fencepost.gnu.org>
* vc-hooks.el (vc-find-root): Fix file attribute test.
2007-05-24 Richard Stallman <rms@gnu.org> 2007-05-24 Richard Stallman <rms@gnu.org>
* textmodes/flyspell.el (flyspell-correct-word-before-point): * textmodes/flyspell.el (flyspell-correct-word-before-point):

2
lisp/vc-hooks.el
View File

@ -325,7 +325,7 @@ If WITNESS if not found, return nil, otherwise return the root."
;; to another user. This should save us from looking in ;; to another user. This should save us from looking in
;; things like /net and /afs. This assumes that all the ;; things like /net and /afs. This assumes that all the
;; files inside a project belong to the same user. ;; files inside a project belong to the same user.
(not (equal user (file-attributes file))) (not (equal user (nth 2 (file-attributes file))))
(string-match vc-ignore-dir-regexp file))) (string-match vc-ignore-dir-regexp file)))
(if (file-exists-p (expand-file-name witness file)) (if (file-exists-p (expand-file-name witness file))
(setq root file) (setq root file)