mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

; Fix push-button when triggered by a single keypress

Browse Source 
* lisp/button.el (push-button): Don't assume the event is
a list, it may be a single key.  (Bug#65539)
This commit is contained in:
Steven Allen 2023-08-25 10:43:43 -07:00 committed by Eli Zaretskii
parent 017bf0f99a
commit b69561e5a4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/button.el
View File

@ -492,7 +492,7 @@ pushing a button, use the `button-describe' command."
(if str-button
;; mode-line, header-line, or display string event.
(button-activate str t)
(if (eq (car pos) 'touchscreen-down)
(if (eq (car-safe pos) 'touchscreen-down)
;; If touch-screen-track tap returns nil, then the
;; tap was cancelled.
(when (touch-screen-track-tap pos)