procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(define-derived-mode): Mention hook in doc string. Defvar the derived

Browse source 
hook.
This commit is contained in:
Glenn Morris 2003-07-23 00:00:13 +00:00
parent 95c2e3e4f3
commit 8d11b45098
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/derived.el
View file

@ -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)))