Commit d9400748 authored by Dmitry Gutov's avatar Dmitry Gutov

Unbreak `mouse-action' property in text buttons

* lisp/button.el (push-button): Fix regression from 2012-12-06.
parent 5395106b
2015-01-04 Dmitry Gutov <>
Unbreak `mouse-action' property in text buttons.
* button.el (push-button): Fix regression from 2012-12-06.
2015-01-03 Dmitry Gutov <>
* progmodes/xref.el (xref-marker-stack-empty-p): New function.
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment