mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

* Do not crash compilation if user eln-cache wasn't already created.

Browse Source 
* lisp/emacs-lisp/comp.el (comp-clean-up-stale-eln): Guard
	against calling `directory-files' on non existent directories.
This commit is contained in:
Andrea Corallo 2020-09-07 23:13:28 +02:00
parent d344e79be9
commit dc4b50ce0b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emacs-lisp/comp.el
View File

@ -2516,8 +2516,9 @@ sharing the original source filename (including FILE)."
`(seq "-" ,filename-hash "-" (1+ hex) ".eln" eos))
for dir in (butlast comp-eln-load-path) ; Skip last dir.
do (cl-loop
for f in (directory-files (concat dir comp-native-version-dir) t regexp
t)
with full-dir = (concat dir comp-native-version-dir)
for f in (when (file-exists-p full-dir)
(directory-files full-dir t regexp t))
do (comp-delete-or-replace-file f))))
(defun comp-delete-or-replace-file (oldfile &optional newfile)