yogsototh/doom-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

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
Show stats 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
(let* ((next (pop rest))
(first (car-safe next)))
(push (cond ((memq first '(quote function nil))
(push (cond ((memq first '(function nil))
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))
(push next defn-forms)
(list 'function (cadr next)))