procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Unbreak `mouse-action' property in text buttons

Browse source 
* lisp/button.el (push-button): Fix regression from 2012-12-06.
This commit is contained in:
Dmitry Gutov 2015-01-04 03:24:53 +03:00
parent 5395106b0e
commit d94007484a
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

2
lisp/button.el
View file

@ -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