Show
Ignore:
Timestamp:
08/10/06 11:19:54 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/lisp/help.el

    r4098 r4140  
    823823                    (lambda (a b) (string-lessp (cadr a) (cadr b))))) 
    824824        (when minor-modes 
    825           (princ "Summary of minor modes:\n") 
     825          (princ "Enabled minor modes:\n") 
    826826          (make-local-variable 'help-button-cache) 
    827827          (with-current-buffer standard-output 
     
    830830                    (pretty-minor-mode (nth 1 mode)) 
    831831                    (indicator (nth 2 mode))) 
    832                 (setq indicator (if (zerop (length indicator)) 
    833                                     "no indicator" 
    834                                   (format "indicator%s" indicator))) 
    835832                (add-text-properties 0 (length pretty-minor-mode) 
    836833                                     '(face bold) pretty-minor-mode) 
     
    841838                  ;; Document the minor modes fully. 
    842839                  (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)))) 
    844845                  (princ (documentation mode-function))) 
    845                 (princ "  ") 
    846846                (insert-button pretty-minor-mode 
    847847                               'action (car help-button-cache) 
    848848                               'follow-link t 
    849849                               '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")) 
    853856        ;; Document the major mode. 
    854857        (let ((mode mode-name))