From 8d11b45098f6adc5165ca9a397075d40cda145f9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 23 Jul 2003 00:00:13 +0000 Subject: [PATCH] (define-derived-mode): Mention hook in doc string. Defvar the derived hook. --- lisp/emacs-lisp/derived.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 8d152f391bc..4aa85290801 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el @@ -155,7 +155,10 @@ the parent, and then sets the variable `case-fold-search' to nil: (setq case-fold-search nil)) Note that if the documentation string had been left out, it would have -been generated automatically, with a reference to the keymap." +been generated automatically, with a reference to the keymap. + +The new mode runs the hook constructed by the function +`derived-mode-hook-name'." (declare (debug (&define name symbolp sexp [&optional stringp] [&rest keywordp sexp] def-body))) @@ -187,6 +190,7 @@ been generated automatically, with a reference to the keymap." parent child docstring syntax abbrev)) `(progn + (defvar ,hook nil ,(format "Hook run when entering %s mode." name)) (defvar ,map (make-sparse-keymap)) ,(if declare-syntax `(defvar ,syntax (make-syntax-table))) -- 2.39.2