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

(define-derived-mode): Tweak generated docstring parts.

Browse source
This commit is contained in:
Miles Bader 2000-10-06 05:32:14 +00:00
parent 8fb051f967
commit 09cb764685
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/easy-mmode.el
View file

@ -417,18 +417,20 @@ which more-or-less shadow %s's corresponding tables."
;; Make sure the docstring mentions the mode's hook
(setq docstring
(concat docstring
(unless (eq parent 'fundamental-mode)
(if (eq parent 'fundamental-mode)
"\n\nThis mode "
(concat
"\nAdditionally to any hooks its parent mode "
"\n\nIn addition to any hooks its parent mode "
(if (string-match (regexp-quote (format "`%s'" parent))
docstring) nil
(format "`%s' " parent))
"might have run),"))
(format "\nThis mode runs `%s' just before exiting." hook))))
"might have run,\nthis mode "))
(format "runs the hook `%s'" hook)
", as the final step\nduring initialization.")))
(unless (string-match "\\\\[{[]" docstring)
;; And don't forget to put the mode's keymap
(setq docstring (concat docstring "\n\\{" (symbol-name map) "}")))
(setq docstring (concat docstring "\n\n\\{" (symbol-name map) "}")))
`(progn
(defvar ,map (make-sparse-keymap))