From d6cf8a2463a0286b52a7c474db6715a0cd1ee5c0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 25 Oct 2001 03:17:33 +0000 Subject: [PATCH] (define-derived-mode): Use {delay,run}-mode-hooks. (derived-mode-p): Autoload. --- lisp/derived.el | 7 ++++--- 1 file 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." -- 2.39.5