[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2e8d209: Fix the value default-directory gets in cu
From: |
Ivan Shmakov |
Subject: |
[Emacs-diffs] master 2e8d209: Fix the value default-directory gets in custom-make-dependencies. |
Date: |
Mon, 19 Jan 2015 09:51:49 +0000 |
branch: master
commit 2e8d209f258c9bb6a6626d4a101995965b040024
Author: Ivan Shmakov <address@hidden>
Commit: Ivan Shmakov <address@hidden>
Fix the value default-directory gets in custom-make-dependencies.
* lisp/cus-dep.el (custom-make-dependencies): Ensure that
default-directory is interpreted as a directory (see bug#19140.)
---
lisp/ChangeLog | 5 +++++
lisp/cus-dep.el | 3 ++-
2 files changed, 7 insertions(+), 1 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3991885..44d0cdd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-19 Ivan Shmakov <address@hidden>
+
+ * cus-dep.el (custom-make-dependencies): Ensure that
+ default-directory is interpreted as a directory (see bug#19140.)
+
2015-01-19 Dmitry Gutov <address@hidden>
* progmodes/xref.el (xref--display-position):
diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index 453b15d..b8a9eb8 100644
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -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\\'")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2e8d209: Fix the value default-directory gets in custom-make-dependencies.,
Ivan Shmakov <=