155 |
(setq case-fold-search nil)) |
(setq case-fold-search nil)) |
156 |
|
|
157 |
Note that if the documentation string had been left out, it would have |
Note that if the documentation string had been left out, it would have |
158 |
been generated automatically, with a reference to the keymap." |
been generated automatically, with a reference to the keymap. |
159 |
|
|
160 |
|
The new mode runs the hook constructed by the function |
161 |
|
`derived-mode-hook-name'." |
162 |
(declare (debug (&define name symbolp sexp [&optional stringp] |
(declare (debug (&define name symbolp sexp [&optional stringp] |
163 |
[&rest keywordp sexp] def-body))) |
[&rest keywordp sexp] def-body))) |
164 |
|
|
190 |
parent child docstring syntax abbrev)) |
parent child docstring syntax abbrev)) |
191 |
|
|
192 |
`(progn |
`(progn |
193 |
|
(defvar ,hook nil ,(format "Hook run when entering %s mode." name)) |
194 |
(defvar ,map (make-sparse-keymap)) |
(defvar ,map (make-sparse-keymap)) |
195 |
,(if declare-syntax |
,(if declare-syntax |
196 |
`(defvar ,syntax (make-syntax-table))) |
`(defvar ,syntax (make-syntax-table))) |