emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(cli): file-missing error on comp-el-to-eln-filename

Browse source 
If you've moved $EMACSDIR, comp-el-to-eln-filename will throw errors
about missing directories/files, rendering 'doom sync' ineffective and
forcing the user to delete $EMACSDIR and reinstall Doom.
This commit is contained in:
Henrik Lissner 2022-08-10 13:16:08 +02:00
parent 7598485e1a
commit 25ac752de2
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 13 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/cli/packages.el
View file

@ -189,20 +189,19 @@ list remains lean."
(defun doom-packages--eln-file-outdated-p (file) (defun doom-packages--eln-file-outdated-p (file)
"Check whether the corresponding .eln for `file' is outdated." "Check whether the corresponding .eln for `file' is outdated."
(let* ((eln-name (doom-packages--eln-file-name file)) (when (file-exists-p file)
(eln-file (doom-packages--find-eln-file eln-name)) (let* ((eln-name (doom-packages--eln-file-name file))
(error-file (doom-packages--eln-error-file eln-name))) (eln-file (doom-packages--find-eln-file eln-name))
(cond (eln-file (error-file (doom-packages--eln-error-file eln-name)))
(when (file-newer-than-file-p file eln-file) (cond (eln-file
(doom-log "%s is newer than %s" file eln-file) (when (file-newer-than-file-p file eln-file)
t)) (doom-log "%s is newer than %s" file eln-file)
((file-exists-p error-file) t))
(when (file-newer-than-file-p file error-file) ((file-exists-p error-file)
(doom-log "%s is newer than %s" file error-file) (when (file-newer-than-file-p file error-file)
t)) (doom-log "%s is newer than %s" file error-file)
(t t))
(doom-log "%s doesn't exist" eln-name) ((always (doom-log "%s doesn't exist" eln-name)))))))
t))))
(defun doom-packages--native-compile-done-h (file) (defun doom-packages--native-compile-done-h (file)
"Callback fired when an item has finished async compilation." "Callback fired when an item has finished async compilation."