From: Steven Allen <steven@stebalien.com>
Date: Fri, 25 Aug 2023 17:43:43 +0000 (-0700)
Subject: ; Fix push-button when triggered by a single keypress
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b69561e5a4ffcd5e0827b68a7b9da84b467ffcf1;p=emacs.git

; 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)
---

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)