aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/help.el
diff options
context:
space:
mode:
authorKaroly Lorentey2006-10-14 16:56:21 +0000
committerKaroly Lorentey2006-10-14 16:56:21 +0000
commit3f87f67ee215ffeecbd2f53bd7f342cdf03f47df (patch)
tree16f2af9111af08a94d608d96a957f5c3ec5effcc /lisp/help.el
parent350e4fb815d7413ef6d339dd664014706f742927 (diff)
parent7a210b69c7f92650c524766d1b9d3f3eefdd67c7 (diff)
downloademacs-3f87f67ee215ffeecbd2f53bd7f342cdf03f47df.tar.gz
emacs-3f87f67ee215ffeecbd2f53bd7f342cdf03f47df.zip
Merged from emacs@sv.gnu.org
Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-371 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-372 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-373 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-374 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-375 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-376 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-377 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-378 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-379 Merge from erc--emacs--21 * emacs@sv.gnu.org/emacs--devo--0--patch-380 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-381 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-382 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-383 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-384 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-385 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-386 Update from erc--emacs--22 * emacs@sv.gnu.org/emacs--devo--0--patch-387 Fix ERC bug introduced in last patch * emacs@sv.gnu.org/emacs--devo--0--patch-388 Update from erc--emacs--22 * emacs@sv.gnu.org/emacs--devo--0--patch-389 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-390 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-391 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-392 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-393 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-394 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-395 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-396 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-397 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-398 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-399 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-400 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-401 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-402 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-403 Rcirc update from Ryan Yeske * emacs@sv.gnu.org/emacs--devo--0--patch-404 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-405 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-406 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-407 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-408 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-409 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-410 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-411 Miscellaneous tq-related fixes. * emacs@sv.gnu.org/emacs--devo--0--patch-412 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-121 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-122 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-123 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-124 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-125 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-126 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-127 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-581
Diffstat (limited to 'lisp/help.el')
-rw-r--r--lisp/help.el21
1 files changed, 12 insertions, 9 deletions
diff --git a/lisp/help.el b/lisp/help.el
index 4d92f69cebd..db76efb01a0 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -822,16 +822,13 @@ whose documentation describes the minor mode."
822 (sort minor-modes 822 (sort minor-modes
823 (lambda (a b) (string-lessp (cadr a) (cadr b))))) 823 (lambda (a b) (string-lessp (cadr a) (cadr b)))))
824 (when minor-modes 824 (when minor-modes
825 (princ "Summary of minor modes:\n") 825 (princ "Enabled minor modes:\n")
826 (make-local-variable 'help-button-cache) 826 (make-local-variable 'help-button-cache)
827 (with-current-buffer standard-output 827 (with-current-buffer standard-output
828 (dolist (mode minor-modes) 828 (dolist (mode minor-modes)
829 (let ((mode-function (nth 0 mode)) 829 (let ((mode-function (nth 0 mode))
830 (pretty-minor-mode (nth 1 mode)) 830 (pretty-minor-mode (nth 1 mode))
831 (indicator (nth 2 mode))) 831 (indicator (nth 2 mode)))
832 (setq indicator (if (zerop (length indicator))
833 "no indicator"
834 (format "indicator%s" indicator)))
835 (add-text-properties 0 (length pretty-minor-mode) 832 (add-text-properties 0 (length pretty-minor-mode)
836 '(face bold) pretty-minor-mode) 833 '(face bold) pretty-minor-mode)
837 (save-excursion 834 (save-excursion
@@ -840,16 +837,22 @@ whose documentation describes the minor mode."
840 (push (point-marker) help-button-cache) 837 (push (point-marker) help-button-cache)
841 ;; Document the minor modes fully. 838 ;; Document the minor modes fully.
842 (insert pretty-minor-mode) 839 (insert pretty-minor-mode)
843 (princ (format " minor mode (%s):\n" indicator)) 840 (princ (format " minor mode (%s):\n"
841 (if (zerop (length indicator))
842 "no indicator"
843 (format "indicator%s"
844 indicator))))
844 (princ (documentation mode-function))) 845 (princ (documentation mode-function)))
845 (princ " ")
846 (insert-button pretty-minor-mode 846 (insert-button pretty-minor-mode
847 'action (car help-button-cache) 847 'action (car help-button-cache)
848 'follow-link t 848 'follow-link t
849 'help-echo "mouse-2, RET: show full information") 849 'help-echo "mouse-2, RET: show full information")
850 (princ (format " minor mode (%s):\n" indicator))))) 850 (newline)))
851 (princ "\n(Full information about these minor modes 851 (forward-line -1)
852follows the description of the major mode.)\n\n")) 852 (fill-paragraph nil)
853 (forward-line 1))
854
855 (princ "\n(Information about these minor modes follows the major mode info.)\n\n"))
853 ;; Document the major mode. 856 ;; Document the major mode.
854 (let ((mode mode-name)) 857 (let ((mode mode-name))
855 (with-current-buffer standard-output 858 (with-current-buffer standard-output