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

fix(lib): add-hook! fails when passed a quoted list

Browse source 
Fix: #5779
This commit is contained in:
Henrik Lissner 2021-11-20 00:52:51 +01:00
parent daf8d278d0
commit 3a669d8daa
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
core/core-lib.el
View file

@ -637,8 +637,15 @@ This macro accepts, in order:
(while rest (while rest
(let* ((next (pop rest)) (let* ((next (pop rest))
(first (car-safe next))) (first (car-safe next)))
(push (cond ((memq first '(quote function nil)) (push (cond ((memq first '(function nil))
next) next)
((eq first 'quote)
(let ((quoted (cadr next)))
(if (atom quoted)
next
(when (cdr quoted)
(setq rest (cons (list first (cdr quoted)) rest)))
(list first (car quoted)))))
((memq first '(defun cl-defun)) ((memq first '(defun cl-defun))
(push next defn-forms) (push next defn-forms)
(list 'function (cadr next))) (list 'function (cadr next)))