summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2016-04-27 18:43:02 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2016-04-27 18:43:02 +0200
commitb3500fc058ed4f294969b1ef1bf36b28bb3ebe43 (patch)
tree65dc6db55e7da86a68cd9cdf0127deadaf0bdec6 /lisp
parent1a08fb07546a4488511abb65bcae5c0d8b192c20 (diff)
downloademacs-b3500fc058ed4f294969b1ef1bf36b28bb3ebe43.tar.gz
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).
Diffstat (limited to 'lisp')
-rw-r--r--lisp/help.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el
index baccf5988b8..efbae39a002 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -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"