mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
Make the minor modes in help buffers into buttons
* lisp/help.el (describe-mode): Make the minor modes into buttons to enable easier documentation traversal (bug#1149).
This commit is contained in:
parent
1a08fb0754
commit
b3500fc058
1 changed files with 4 additions and 3 deletions
|
|
@ -946,14 +946,15 @@ documentation for the major and minor modes of that buffer."
|
|||
(let ((mode-function (nth 0 mode))
|
||||
(pretty-minor-mode (nth 1 mode))
|
||||
(indicator (nth 2 mode)))
|
||||
(add-text-properties 0 (length pretty-minor-mode)
|
||||
'(face bold) pretty-minor-mode)
|
||||
(save-excursion
|
||||
(goto-char (point-max))
|
||||
(princ "\n\f\n")
|
||||
(push (point-marker) help-button-cache)
|
||||
;; Document the minor modes fully.
|
||||
(insert pretty-minor-mode)
|
||||
(insert-text-button
|
||||
pretty-minor-mode 'type 'help-function
|
||||
'help-args (list mode-function)
|
||||
'button '(t))
|
||||
(princ (format " minor mode (%s):\n"
|
||||
(if (zerop (length indicator))
|
||||
"no indicator"
|
||||
|
|
|
|||
Loading…
Reference in a new issue