# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1154838703 0
# Node ID 12d2238c31b3da6b9521e2fbe6b50518e14632fc
# Parent  23bdb18ffccf33faad1d6b22ac5ccf9d4f438863
(describe-mode): Make minor mode list more concise.

diff -r 23bdb18ffccf -r 12d2238c31b3 lisp/help.el
--- a/lisp/help.el	Sun Aug 06 00:45:53 2006 +0000
+++ b/lisp/help.el	Sun Aug 06 04:31:43 2006 +0000
@@ -822,16 +822,13 @@
 	      (sort minor-modes
 		    (lambda (a b) (string-lessp (cadr a) (cadr b)))))
 	(when minor-modes
-	  (princ "Summary of minor modes:\n")
+	  (princ "Enabled minor modes:\n")
 	  (make-local-variable 'help-button-cache)
 	  (with-current-buffer standard-output
 	    (dolist (mode minor-modes)
 	      (let ((mode-function (nth 0 mode))
 		    (pretty-minor-mode (nth 1 mode))
 		    (indicator (nth 2 mode)))
-		(setq indicator (if (zerop (length indicator))
-				    "no indicator"
-				  (format "indicator%s" indicator)))
 		(add-text-properties 0 (length pretty-minor-mode)
 				     '(face bold) pretty-minor-mode)
 		(save-excursion
@@ -840,16 +837,22 @@
 		  (push (point-marker) help-button-cache)
 		  ;; Document the minor modes fully.
 		  (insert pretty-minor-mode)
-		  (princ (format " minor mode (%s):\n" indicator))
+		  (princ (format " minor mode (%s):\n"
+				 (if (zerop (length indicator))
+				     "no indicator"
+				   (format "indicator%s"
+				   indicator))))
 		  (princ (documentation mode-function)))
-		(princ "  ")
 		(insert-button pretty-minor-mode
 			       'action (car help-button-cache)
 			       'follow-link t
 			       'help-echo "mouse-2, RET: show full information")
-		(princ (format " minor mode (%s):\n" indicator)))))
-	  (princ "\n(Full information about these minor modes
-follows the description of the major mode.)\n\n"))
+		(newline)))
+	    (forward-line -1)
+	    (fill-paragraph nil)
+	    (forward-line 1))
+
+	  (princ "\n(Information about these minor modes follows the major mode info.)\n\n"))
 	;; Document the major mode.
 	(let ((mode mode-name))
 	  (with-current-buffer standard-output