diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-28 18:10:59 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-28 18:10:59 +0200 |
| commit | c9c1460342a5aadf3819ceb6ee5ac28c14760fce (patch) | |
| tree | 66660e677dfdcca17f6eb0afa80d392e6efaf88a /lisp/emacs-lisp | |
| parent | e5ddf91db2429e87ab16c69d774295648bbb4e43 (diff) | |
| download | emacs-c9c1460342a5aadf3819ceb6ee5ac28c14760fce.tar.gz emacs-c9c1460342a5aadf3819ceb6ee5ac28c14760fce.tar.bz2 emacs-c9c1460342a5aadf3819ceb6ee5ac28c14760fce.zip | |
Make byte-recompile-directory less brittle
* lisp/emacs-lisp/bytecomp.el (byte-recompile-directory): Don't
interpret files named "~" as $HOME (bug#49758).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 1b64a06fe42..a6e7e03cb0a 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))) |