mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

Fix the value default-directory gets in custom-make-dependencies.

Browse Source 
* lisp/cus-dep.el (custom-make-dependencies): Ensure that
default-directory is interpreted as a directory (see bug#19140.)
This commit is contained in:
Ivan Shmakov 2015-01-19 09:50:41 +00:00
parent b7f83adda5
commit 2e8d209f25
2 changed files with 7 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 @@
2015-01-19 Ivan Shmakov <ivan@siamics.net>
* cus-dep.el (custom-make-dependencies): Ensure that
default-directory is interpreted as a directory (see bug#19140.)
2015-01-19 Dmitry Gutov <dgutov@yandex.ru>
* progmodes/xref.el (xref--display-position):

3
lisp/cus-dep.el
View File

@ -62,7 +62,8 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(while (setq subdir (pop command-line-args-left))
(message "Directory %s" subdir)
(let ((files (directory-files subdir nil "\\`[^=.].*\\.el\\'"))
(default-directory (expand-file-name subdir))
(default-directory
(file-name-as-directory (expand-file-name subdir)))
(preloaded (concat "\\`\\(\\./+\\)?"
(regexp-opt preloaded-file-list t)
"\\.el\\'")))