[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d0b0cd6 2/2: Make the legend in describe-categories
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master d0b0cd6 2/2: Make the legend in describe-categories a link |
Date: |
Sat, 30 Apr 2016 22:46:23 +0000 |
branch: master
commit d0b0cd667129c3ea8ea834f1a28a994453144cb2
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Make the legend in describe-categories a link
* lisp/help-fns.el (describe-categories): Make the "see
bottom" text a link (bug#22227).
---
lisp/help-fns.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index e17586c..040152a 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -1109,7 +1109,13 @@ BUFFER should be a buffer or a buffer name."
(if (or (not (vectorp docs)) (/= (length docs) 95))
(error "Invalid first extra slot in this category table\n"))
(with-current-buffer standard-output
- (insert "Legend of category mnemonics (see the tail for the longer
description)\n")
+ (setq-default help-button-cache (make-marker))
+ (insert "Legend of category mnemonics ")
+ (insert-button "(longer descriptions at the bottom)"
+ 'action help-button-cache
+ 'follow-link t
+ 'help-echo "mouse-2, RET: show full legend")
+ (insert "\n")
(let ((pos (point)) (items 0) lines n)
(dotimes (i 95)
(if (aref docs i) (setq items (1+ items))))
@@ -1136,6 +1142,7 @@ BUFFER should be a buffer or a buffer name."
"character(s)\tcategory mnemonics\n"
"------------\t------------------")
(describe-vector table 'help-describe-category-set)
+ (set-marker help-button-cache (point))
(insert "Legend of category mnemonics:\n")
(dotimes (i 95)
(let ((elt (aref docs i)))