diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-05-01 00:45:39 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-05-01 00:45:39 +0200 |
| commit | d0b0cd667129c3ea8ea834f1a28a994453144cb2 (patch) | |
| tree | 4a66ec2d6acbf29b6e8ebdb79673acb1b7dce182 | |
| parent | 28aaa6d20586e3330a23b017a65e56dd6461c003 (diff) | |
Make the legend in describe-categories a link
* lisp/help-fns.el (describe-categories): Make the "see
bottom" text a link (bug#22227).
| -rw-r--r-- | lisp/help-fns.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e17586c28f..040152a2c9 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))) |