# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1003979853 0
# Node ID 628cde7da5bce9704264c0d8698498b713d3a176
# Parent  7f05eff77ea2fb01f3aab32c8e509517a4faa0d9
(define-derived-mode): Use {delay,run}-mode-hooks.
(derived-mode-p): Autoload.

diff -r 7f05eff77ea2 -r 628cde7da5bc lisp/derived.el
--- a/lisp/derived.el	Thu Oct 25 02:26:41 2001 +0000
+++ b/lisp/derived.el	Thu Oct 25 03:17:33 2001 +0000
@@ -151,7 +151,7 @@
 	 ,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 @@
 	  (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."