* lisp/subr.el (delayed-after-hook-functions): Rename from ...-forms
(run-mode-hooks): `funcall` the functions instead of `eval`ing the forms. * lisp/emacs-lisp/derived.el (define-derived-mode): Push functions rather than forms (bug#29679).
This commit is contained in:
parent
a5b0a4e292
commit
07b7fb98e6
3 changed files with 51 additions and 7 deletions
|
@ -285,7 +285,7 @@ No problems result if this variable is not bound.
|
|||
(run-mode-hooks ',hook)
|
||||
,@(when after-hook
|
||||
`((if delay-mode-hooks
|
||||
(push ',after-hook delayed-after-hook-forms)
|
||||
(push (lambda () ,after-hook) delayed-after-hook-functions)
|
||||
,after-hook)))))))
|
||||
|
||||
;; PUBLIC: find the ultimate class of a derived mode.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue