diff options
| author | Steven Allen | 2023-08-25 10:43:43 -0700 |
|---|---|---|
| committer | Eli Zaretskii | 2023-08-31 12:37:40 +0300 |
| commit | b69561e5a4ffcd5e0827b68a7b9da84b467ffcf1 (patch) | |
| tree | 1e9b7b1cbe48fb4f231767558a3cb6da7e4763fc | |
| parent | 017bf0f99ad549398c4a55445e69f64861c8fefd (diff) | |
| download | emacs-b69561e5a4ffcd5e0827b68a7b9da84b467ffcf1.tar.gz emacs-b69561e5a4ffcd5e0827b68a7b9da84b467ffcf1.zip | |
; 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)
| -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." | |||
| 492 | (if str-button | 492 | (if str-button |
| 493 | ;; mode-line, header-line, or display string event. | 493 | ;; mode-line, header-line, or display string event. |
| 494 | (button-activate str t) | 494 | (button-activate str t) |
| 495 | (if (eq (car pos) 'touchscreen-down) | 495 | (if (eq (car-safe pos) 'touchscreen-down) |
| 496 | ;; If touch-screen-track tap returns nil, then the | 496 | ;; If touch-screen-track tap returns nil, then the |
| 497 | ;; tap was cancelled. | 497 | ;; tap was cancelled. |
| 498 | (when (touch-screen-track-tap pos) | 498 | (when (touch-screen-track-tap pos) |