# HG changeset patch # User Richard M. Stallman # Date 838227153 0 # Node ID e0524a01fc9101706d1f1eeb7b2c636d2b3632af # Parent 096142df0b365ac4e5d71bde1538bee852e60156 (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. diff -r 096142df0b36 -r e0524a01fc91 lisp/help.el --- 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")