mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(locate-dominating-file): Take file-attributes of dir', not of file'

Browse Source 
(which never changes).
This commit is contained in:
Eli Zaretskii 2008-09-29 11:31:10 +00:00
parent d5fb39b4c6
commit 69ad666d70
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-09-29 Eli Zaretskii <eliz@gnu.org>
* files.el (locate-dominating-file): Take file-attributes of
`dir', not of `file' (which never changes).
2008-09-29 Michael Albinus <michael.albinus@gmx.de>
* files.el (file-remote-p): Precise doc string; IDENTIFICATION can

2
lisp/files.el
View File

@ -732,7 +732,7 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
;; things like /net and /afs. This assumes that all the
;; files inside a project belong to the same user.
(let ((prev-user user))
(setq user (nth 2 (file-attributes file)))
(setq user (nth 2 (file-attributes dir)))
(or (null prev-user) (equal user prev-user))))
(if (setq files (and (file-directory-p dir)
(directory-files dir 'full regexp)))