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:
Lars Ingebrigtsen 2016-04-27 18:43:02 +02:00
parent 1a08fb0754
commit b3500fc058

View file

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