[Top][All Lists]

[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)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]