diff options
| author | Steven Allen <steven@stebalien.com> | 2023-08-25 10:43:43 -0700 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-08-31 12:37:40 +0300 |
| commit | b69561e5a4ffcd5e0827b68a7b9da84b467ffcf1 (patch) | |
| tree | 1e9b7b1cbe48fb4f231767558a3cb6da7e4763fc /lisp/button.el | |
| parent | 017bf0f99ad549398c4a55445e69f64861c8fefd (diff) | |
; Fix push-button when triggered by a single keypress
* lisp/button.el (push-button): Don't assume the event is
a list, it may be a single key. (Bug#65539)
Diffstat (limited to 'lisp/button.el')
| -rw-r--r-- | lisp/button.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/button.el b/lisp/button.el index b01595943fc..bfe6ccc8d1f 100644 --- a/lisp/button.el +++ b/lisp/button.el @@ -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) |