Changeset 4140 for trunk/lisp/help.el
- Timestamp:
- 08/10/06 11:19:54 (2 years ago)
- Files:
-
- trunk/lisp/help.el (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/help.el
r4098 r4140 823 823 (lambda (a b) (string-lessp (cadr a) (cadr b))))) 824 824 (when minor-modes 825 (princ " Summary ofminor modes:\n")825 (princ "Enabled minor modes:\n") 826 826 (make-local-variable 'help-button-cache) 827 827 (with-current-buffer standard-output … … 830 830 (pretty-minor-mode (nth 1 mode)) 831 831 (indicator (nth 2 mode))) 832 (setq indicator (if (zerop (length indicator))833 "no indicator"834 (format "indicator%s" indicator)))835 832 (add-text-properties 0 (length pretty-minor-mode) 836 833 '(face bold) pretty-minor-mode) … … 841 838 ;; Document the minor modes fully. 842 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 845 (princ (documentation mode-function))) 845 (princ " ")846 846 (insert-button pretty-minor-mode 847 847 'action (car help-button-cache) 848 848 'follow-link t 849 849 'help-echo "mouse-2, RET: show full information") 850 (princ (format " minor mode (%s):\n" indicator))))) 851 (princ "\n(Full information about these minor modes 852 follows the description of the major mode.)\n\n")) 850 (newline))) 851 (forward-line -1) 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 856 ;; Document the major mode. 854 857 (let ((mode mode-name))
