From: Po Lu <luangruo@yahoo.com>
Date: Wed, 1 May 2024 00:56:23 +0000 (+0800)
Subject: ; Fix widget button press cancellation
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=328ec435bc5d2b779c45fc3c338613c0c0416082;p=emacs.git

; Fix widget button press cancellation

* lisp/wid-edit.el (widget-button--check-and-call-button): Throw
nil if a mouse-button-derived press is canceled.  Reported by
David Ponce <da_vid@orange.fr>.

(cherry picked from commit 294335b2304028cc97aca036bd37adf2f8e1c508)
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 2d82fbe7c89..3b467434d29 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1153,7 +1153,7 @@ If nothing was called, return non-nil."
                                 (when (and mouse-1 (mouse-movement-p event))
                                   (push event unread-command-events)
                                   (setq event oevent)
-                                  (throw 'button-press-cancelled t))
+                                  (throw 'button-press-cancelled nil))
                                 (unless (or (integerp event)
                                             (memq (car event)
                                                   '(switch-frame select-window))