TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix `spacemacs//dir-byte-compile-state` which returned nil 

which broke startup after package update on emacs 29
This commit is contained in:
Maxi Wolff 2022-09-17 22:45:29 +02:00
parent 3370a45e11
commit a7bfe0bfd6
No known key found for this signature in database
GPG Key ID: 2DD07025BFDBD89A
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/core-compilation.el
View File

@ -45,7 +45,7 @@ nil for un-initialized, -1 for stale or orphaned *.elc,
(cl-defun spacemacs//dir-byte-compile-state (dir &optional update)
"Get the directory byte-compile state.
When the UPDATE is t, will fouce update the state."
When the UPDATE is t, it will force update the state."
(let ((state (gethash dir spacemacs--dir-byte-compile-status)))
(when (and (not update) state)
(cl-return-from spacemacs//dir-byte-compile-state state))
@ -73,16 +73,17 @@ When the UPDATE is t, will fouce update the state."
(pcase nil
((guard (null el)) ; *.el not exists
(puthash dir -1 spacemacs--dir-byte-compile-status)
(cl-return -1))
(cl-return-from spacemacs//dir-byte-compile-state -1))
((guard (null elc)) ; *.elc not exists
(when (null state)
(setq state 0)))
((guard (file-newer-than-file-p el elc)) ; *.elc is older
(puthash dir -1 spacemacs--dir-byte-compile-status)
(cl-return -1))
(cl-return-from spacemacs//dir-byte-compile-state -1))
(_
(setq state 1)))))
(puthash dir state spacemacs--dir-byte-compile-status))))
(puthash dir state spacemacs--dir-byte-compile-status)
state)))
(defun spacemacs//update-last-emacs-version ()
"Update `spacemacs--last-emacs-version' and its saved value."