Unbreak `mouse-action' property in text buttons

* lisp/button.el (push-button): Fix regression from 2012-12-06.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49640f8905525a090d1b836727254ac64c767a0c..77a7ec3ac00ba3cbe3512e9458b13d4c8bc7f323 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-01-04  Dmitry Gutov  <dgutov@yandex.ru>
+
+       Unbreak `mouse-action' property in text buttons.
+
+       * button.el (push-button): Fix regression from 2012-12-06.
+
 2015-01-03  Dmitry Gutov  <dgutov@yandex.ru>
 
        * progmodes/xref.el (xref-marker-stack-empty-p): New function.

diff --git a/lisp/button.el b/lisp/button.el
index 2836b89020a12a0ac565a767afa1ed67860af637..189a1c23a4dac362042da42f502f5b9ff2d32364 100644 (file)
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -449,7 +449,7 @@ return t."
          (if (posn-string posn)
              ;; mode-line, header-line, or display string event.
              (button-activate (posn-string posn) t)
-           (push-button (posn-point posn)) t)))
+           (push-button (posn-point posn) t))))
     ;; POS is just normal position
     (let ((button (button-at (or pos (point)))))
       (when button