[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp dc4b50c: * Do not crash compilation if user eln-cach
From: |
Andrea Corallo |
Subject: |
feature/native-comp dc4b50c: * Do not crash compilation if user eln-cache wasn't already created. |
Date: |
Mon, 7 Sep 2020 17:25:02 -0400 (EDT) |
branch: feature/native-comp
commit dc4b50ce0b52d8fcade1e04aabd92409858fcfc2
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Do not crash compilation if user eln-cache wasn't already created.
* lisp/emacs-lisp/comp.el (comp-clean-up-stale-eln): Guard
against calling `directory-files' on non existent directories.
---
lisp/emacs-lisp/comp.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 129a4de..cfc5ca5 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/native-comp dc4b50c: * Do not crash compilation if user eln-cache wasn't already created.,
Andrea Corallo <=