From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 30 Apr 2016 22:45:39 +0000 (+0200)
Subject: Make the legend in describe-categories a link
X-Git-Tag: emacs-26.0.90~2045
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0b0cd667129c3ea8ea834f1a28a994453144cb2;p=emacs.git

Make the legend in describe-categories a link

* lisp/help-fns.el (describe-categories): Make the "see
bottom" text a link (bug#22227).
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index e17586c28fe..040152a2c9f 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)))