[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c9c1460: Make byte-recompile-directory less brittle
From: |
Lars Ingebrigtsen |
Subject: |
master c9c1460: Make byte-recompile-directory less brittle |
Date: |
Wed, 28 Jul 2021 12:11:11 -0400 (EDT) |
branch: master
commit c9c1460342a5aadf3819ceb6ee5ac28c14760fce
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make byte-recompile-directory less brittle
* lisp/emacs-lisp/bytecomp.el (byte-recompile-directory): Don't
interpret files named "~" as $HOME (bug#49758).
---
lisp/emacs-lisp/bytecomp.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 1b64a06..a6e7e03 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1857,8 +1857,8 @@ also be compiled."
(while directories
(setq directory (car directories))
(message "Checking %s..." directory)
- (dolist (file (directory-files directory))
- (let ((source (expand-file-name file directory)))
+ (dolist (source (directory-files directory t))
+ (let ((file (file-name-nondirectory source)))
(if (file-directory-p source)
(and (not (member file '("RCS" "CVS")))
(not (eq ?\. (aref file 0)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c9c1460: Make byte-recompile-directory less brittle,
Lars Ingebrigtsen <=