mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

(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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2000-10-06 Miles Bader <miles@lsi.nec.co.jp>
* emacs-lisp/easy-mmode.el (define-derived-mode): Tweak generated
docstring parts.
* net/net-utils.el (nslookup-prompt-regexp, ftp-prompt-regexp)
(smbclient-prompt-regexp): Add usage note to doc string.
(ftp-font-lock-keywords, smbclient-font-lock-keywords): Removed.

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))