/[emacs]/emacs/lisp/emacs-lisp/derived.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/derived.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by lektu, Fri May 30 23:27:19 2003 UTC revision 1.2 by gm, Wed Jul 23 00:00:13 2003 UTC
# Line 155  the parent, and then sets the variable ` Line 155  the parent, and then sets the variable `
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    
# Line 187  been generated automatically, with a ref Line 190  been generated automatically, with a ref
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)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26