1 files changed, 3 insertions, 0 deletions

diff --git a/lisp/button.el b/lisp/button.el
index ca6f0d3b6ea..9112e518b0d 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)))