[Emacs-diffs] master ed9402f: Make forward-button support help-echo function (bug#37515)

[Katsumi Yamaoka]

branch: master
commit ed9402f81907f5810d70fc421b456791d624ba1a
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    Make forward-button support help-echo function (bug#37515)
    
    * lisp/button.el (forward-button): Support help-echo function.
---
 lisp/button.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/button.el b/lisp/button.el
index ca6f0d3..9112e51 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -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)))