mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

Make forward-button support help-echo function (bug#37515)

Browse Source 
* lisp/button.el (forward-button): Support help-echo function.
This commit is contained in:
Katsumi Yamaoka 2019-09-26 21:43:48 +00:00
parent 648a6b7e91
commit ed9402f819
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/button.el
View File

@ -513,6 +513,9 @@ Returns the button found."
nil
(user-error (if wrap "No buttons!" "No more buttons")))
(let ((msg (and display-message (button-get button 'help-echo))))
(when (functionp msg)
(setq msg (funcall msg (selected-window) (current-buffer)
(button-start button))))
(when msg
(message "%s" msg)))
button)))