[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/derived.el

[Glenn Morris]

Index: emacs/lisp/emacs-lisp/derived.el
diff -c emacs/lisp/emacs-lisp/derived.el:1.1 
emacs/lisp/emacs-lisp/derived.el:1.2
*** emacs/lisp/emacs-lisp/derived.el:1.1        Fri May 30 19:27:19 2003
--- emacs/lisp/emacs-lisp/derived.el    Tue Jul 22 20:00:13 2003
***************
*** 155,161 ****
      (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."
    (declare (debug (&define name symbolp sexp [&optional stringp]
                           [&rest keywordp sexp] def-body)))
  
--- 155,164 ----
      (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.
! 
! 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,192 ****
--- 190,196 ----
                     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)))