mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

Make the legend in describe-categories a link

Browse Source 
* lisp/help-fns.el (describe-categories): Make the "see
bottom" text a link (bug#22227).
This commit is contained in:
Lars Ingebrigtsen 2016-05-01 00:45:39 +02:00
parent 28aaa6d205
commit d0b0cd6671
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/help-fns.el
View File

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