From: Stefan Monnier Date: Sun, 21 Jan 2024 04:00:54 +0000 (-0500) Subject: (define-derived-mode): Fix bug#68600 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b0f71ac8c4ff7e680a0f5836fcb402ffae3d6e2;p=emacs.git (define-derived-mode): Fix bug#68600 * lisp/emacs-lisp/derived.el (define-derived-mode): Use a reference to the mode symbol instead of the mode's "pretty" name in the hook variable's docstring. (cherry picked from commit ca8d451561c5f722f7c3bfc63595961334b7b5f9) --- diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 5c224362708..726f96a25f7 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el @@ -211,10 +211,10 @@ See Info node `(elisp)Derived Modes' for more details. (defvar ,hook nil) (unless (get ',hook 'variable-documentation) (put ',hook 'variable-documentation - ,(format "Hook run after entering %s mode. + ,(format "Hook run after entering `%S'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.)" - name))) + child))) (unless (boundp ',map) (put ',map 'definition-name ',child)) (with-no-warnings (defvar ,map (make-sparse-keymap)))