From 83f86594323432ccf6cdcbe98e792d7461fbf337 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 24 Jul 1996 16:52:33 +0000 Subject: [PATCH] (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. --- lisp/help.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/help.el b/lisp/help.el index ff1e9c8da1b..a0e195b3436 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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") -- 2.39.5