procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* 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
Show stats 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) (require 'seq)
(let ((dir (if (file-directory-p file-or-dir) (let ((dir (if (file-directory-p file-or-dir)
file-or-dir file-or-dir
default-directory)) (or (file-name-directory file-or-dir)
(file (cond ((not (file-directory-p file-or-dir)) 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)) ((eq system-type 'ms-dos) (dosified-file-name dir-locals-file))
(t dir-locals-file)))) (t dir-locals-file))))
(seq-filter (lambda (f) (and (file-readable-p f) (seq-filter (lambda (f) (and (file-readable-p f)