/[emacs]/emacs/lisp/help.el
ViewVC logotype

Diff of /emacs/lisp/help.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.276 by monnier, Thu Mar 10 21:43:16 2005 UTC revision 1.277 by monnier, Wed Mar 16 13:08:15 2005 UTC
# Line 703  whose documentation describes the minor Line 703  whose documentation describes the minor
703          (dolist (mode minor-mode-list)          (dolist (mode minor-mode-list)
704            ;; Document a minor mode if it is listed in minor-mode-alist,            ;; Document a minor mode if it is listed in minor-mode-alist,
705            ;; non-nil, and has a function definition.            ;; non-nil, and has a function definition.
706            (and (boundp mode) (symbol-value mode)            (let ((fmode (or (get mode :minor-mode-function) mode)))
707                 (fboundp mode)              (and (boundp mode) (symbol-value mode)
708                 (let ((pretty-minor-mode mode))                   (fboundp fmode)
709                   (if (string-match "\\(-minor\\)?-mode\\'"                   (let ((pretty-minor-mode
710                                     (symbol-name mode))                          (if (string-match "\\(\\(-minor\\)?-mode\\)?\\'"
711                       (setq pretty-minor-mode                                            (symbol-name fmode))
712                             (capitalize                              (capitalize
713                              (substring (symbol-name mode)                               (substring (symbol-name fmode)
714                                         0 (match-beginning 0)))))                                          0 (match-beginning 0)))
715                   (push (list pretty-minor-mode mode                            fmode)))
716                               (format-mode-line (assq mode minor-mode-alist)))                     (push (list fmode pretty-minor-mode
717                         minor-modes))))                                 (format-mode-line (assq mode minor-mode-alist)))
718          (if auto-fill-function                           minor-modes)))))
             ;; copy pure string so we can add face property to it below.  
             (push (list (copy-sequence "Auto Fill") 'auto-fill-mode " Fill")  
                   minor-modes))  
719          (setq minor-modes          (setq minor-modes
720                (sort minor-modes                (sort minor-modes
721                      (lambda (a b) (string-lessp (car a) (car b)))))                      (lambda (a b) (string-lessp (cadr a) (cadr b)))))
722          (when minor-modes          (when minor-modes
723            (princ "Summary of minor modes:\n")            (princ "Summary of minor modes:\n")
724            (make-local-variable 'help-button-cache)            (make-local-variable 'help-button-cache)
725            (with-current-buffer standard-output            (with-current-buffer standard-output
726              (dolist (mode minor-modes)              (dolist (mode minor-modes)
727                (let ((pretty-minor-mode (nth 0 mode))                (let ((mode-function (nth 0 mode))
728                      (mode-function (nth 1 mode))                      (pretty-minor-mode (nth 1 mode))
729                      (indicator (nth 2 mode)))                      (indicator (nth 2 mode)))
730                  (setq indicator (if (zerop (length indicator))                  (setq indicator (if (zerop (length indicator))
731                                      "no indicator"                                      "no indicator"

Legend:
Removed from v.1.276  
changed lines
  Added in v.1.277

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26