diff options
| author | Karoly Lorentey | 2006-10-14 16:56:21 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2006-10-14 16:56:21 +0000 |
| commit | 3f87f67ee215ffeecbd2f53bd7f342cdf03f47df (patch) | |
| tree | 16f2af9111af08a94d608d96a957f5c3ec5effcc /lisp/help.el | |
| parent | 350e4fb815d7413ef6d339dd664014706f742927 (diff) | |
| parent | 7a210b69c7f92650c524766d1b9d3f3eefdd67c7 (diff) | |
| download | emacs-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.el | 21 |
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) |
| 852 | follows 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 |