Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(describe-mode): Put a formfeed between each two modes.

Browse source 
Print a message at the top explaining that minor modes come first
followed by the major mode.
This commit is contained in:
Richard M. Stallman 1996-07-24 16:52:33 +00:00
parent dc0e03f39e
commit 83f8659432
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/help.el
View file

@ -315,6 +315,7 @@ describes the minor mode."
(interactive)
(with-output-to-temp-buffer "*Help*"
(let ((minor-modes minor-mode-alist)
(first t)
(locals (buffer-local-variables)))
(while minor-modes
(let* ((minor-mode (car (car minor-modes)))
@ -334,13 +335,17 @@ describes the minor mode."
0 (match-beginning 0)))))
(while (and indicator (symbolp indicator))
(setq indicator (symbol-value indicator)))
(if first
(princ "The minor modes are described first,
followed by the major mode, which is described on the last page.\n\f\n"))
(setq first nil)
(princ (format "%s minor mode (%s):\n"
pretty-minor-mode
(if indicator
(format "indicator%s" indicator)
"no indicator")))
(princ (documentation minor-mode))
(princ "\n\n"))))
(princ "\n\f\n"))))
(setq minor-modes (cdr minor-modes))))
(princ mode-name)
(princ " mode:\n")