diff options
author | Phil Sainty <psainty@orcon.net.nz> | 2019-04-23 11:00:02 +1200 |
---|---|---|
committer | Phil Sainty <psainty@orcon.net.nz> | 2019-04-23 11:07:28 +1200 |
commit | 95cea37fcd7494d9d9c63eda569c6cbd5bde9a03 (patch) | |
tree | 7d6053a21a41f079801f454f1ebdd9893b188ee3 | |
parent | 196b9760e3218c19478628213796900e35fffb74 (diff) | |
download | emacs-fix/bug-35351.tar.gz |
fixup! Add :before-hook keyword to define-derived-modefix/bug-35351
Run :before-hook right away, rather than using change-major-mode-hook.
This changes the :before-hook sequence to child-before-parent rather
than parent-before-child.
-rw-r--r-- | lisp/emacs-lisp/derived.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 00aa70a10aa..6934d1d087d 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el @@ -139,7 +139,8 @@ BODY can start with a bunch of keyword arguments. The following keyword A nil value means to simply use the same abbrev-table as the parent. :before-hook FORM A single lisp form which will be evaluated before anything else - happens in `change-major-mode-hook'. It should not be quoted. + happens (i.e. before `change-major-mode-hook'). It should not be + quoted. :after-hook FORM A single lisp form which is evaluated after the mode hooks have been run. It should not be quoted. @@ -247,8 +248,7 @@ No problems result if this variable is not bound. ,docstring (interactive) ,@(when before-hook - `((add-hook 'change-major-mode-hook (lambda () ,before-hook) - nil t))) + `(,before-hook)) ; Run the parent. (delay-mode-hooks |