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" |