diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-25 03:17:33 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-25 03:17:33 +0000 |
| commit | d6cf8a2463a0286b52a7c474db6715a0cd1ee5c0 (patch) | |
| tree | e5ca10f7f1fec578a085313b500192650bf14e73 /lisp/derived.el | |
| parent | a13fe4c517214b3adc34f0412c6efccf9db8094b (diff) | |
(define-derived-mode): Use {delay,run}-mode-hooks.
(derived-mode-p): Autoload.
Diffstat (limited to 'lisp/derived.el')
| -rw-r--r-- | lisp/derived.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/derived.el b/lisp/derived.el index 9512bae492f..ffebfd5bc03 100644 --- a/lisp/derived.el +++ b/lisp/derived.el @@ -151,7 +151,7 @@ been generated automatically, with a reference to the keymap." ,docstring (interactive) ; Run the parent. - ;; (combine-run-hooks + (delay-mode-hooks (,(or parent 'kill-all-local-variables)) ; Identify the child mode. @@ -181,12 +181,13 @@ been generated automatically, with a reference to the keymap." (setq local-abbrev-table ,abbrev) ; Splice in the body (if any). ,@body - ;; ) + ) ; Run the hooks, if any. - (run-hooks ',hook))))) + (run-mode-hooks ',hook))))) ;; PUBLIC: find if the current mode derives from another. +;;; ;;;###autoload (defun derived-mode-p (&rest modes) "Non-nil if the current major mode is derived from one of MODES. Uses the `derived-mode-parent' property of the symbol to trace backwards." |