diff options
| author | Mauro Aranda <maurooaranda@gmail.com> | 2020-09-17 23:46:24 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-17 23:46:24 +0200 |
| commit | 3b3cf6c588f335ae046e4619d4f4f4ce29658c52 (patch) | |
| tree | 69bd670c3736aacc723333ce56e1c4b40c3cc39b /lisp/wid-edit.el | |
| parent | bd6c600687f67ce11fa0cf04b61d44f3dcef9a44 (diff) | |
| download | emacs-3b3cf6c588f335ae046e4619d4f4f4ce29658c52.tar.gz | |
Fix recent change in wid-edit
* lisp/wid-edit.el (widget-button--check-and-call-button): Record the
ending position of event, because we might need it when
the :mouse-down-action function returns non-nil (bug#20664).
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 8be489bf08b..5ac52777f84 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -978,7 +978,8 @@ If nil, point returns to its original position after invoking a button.") If nothing was called, return non-nil." (let* ((oevent event) (mouse-1 (memq (event-basic-type event) '(mouse-1 down-mouse-1))) - newpoint pos) + (pos (widget-event-point event)) + newpoint) (catch 'button-press-cancelled ;; Mouse click on a widget button. Do the following ;; in a save-excursion so that the click on the button |