[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b69561e5a4f: ; Fix push-button when triggered by a single keypres
From: |
Eli Zaretskii |
Subject: |
master b69561e5a4f: ; Fix push-button when triggered by a single keypress |
Date: |
Thu, 31 Aug 2023 05:38:29 -0400 (EDT) |
branch: master
commit b69561e5a4ffcd5e0827b68a7b9da84b467ffcf1
Author: Steven Allen <steven@stebalien.com>
Commit: Eli Zaretskii <eliz@gnu.org>
; 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)
---
lisp/button.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b69561e5a4f: ; Fix push-button when triggered by a single keypress,
Eli Zaretskii <=