Mercurial > emacs
changeset 15783:e0524a01fc91
(describe-mode): Put a formfeed between each two modes.
Print a message at the top explaining that minor modes come first
followed by the major mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 24 Jul 1996 16:52:33 +0000 |
| parents | 096142df0b36 |
| children | 75547616a6fe |
| files | lisp/help.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Wed Jul 24 16:36:41 1996 +0000 +++ b/lisp/help.el Wed Jul 24 16:52:33 1996 +0000 @@ -315,6 +315,7 @@ (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 @@ 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")