martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* lisp/files.el (dir-locals--all-files): Respect absolute file-names

Browse Source
This commit is contained in:
Artur Malabarba
2016-01-16 09:21:27 +00:00
parent 2ffdf155ee
commit 6165c3649a
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/files.el
View File

@@ -3732,8 +3732,9 @@ The returned list is sorted by `string<' order."
(require 'seq)
(let ((dir (if (file-directory-p file-or-dir)
file-or-dir
default-directory))
(file (cond ((not (file-directory-p file-or-dir)) file-or-dir)
(or (file-name-directory file-or-dir)
default-directory)))
(file (cond ((not (file-directory-p file-or-dir)) (file-name-nondirectory file-or-dir))
((eq system-type 'ms-dos) (dosified-file-name dir-locals-file))
(t dir-locals-file))))
(seq-filter (lambda (f) (and (file-readable-p f)