; Fix widget button press cancellation
authorPo Lu <luangruo@yahoo.com>
Wed, 1 May 2024 00:56:23 +0000 (08:56 +0800)
committerPo Lu <luangruo@yahoo.com>
Wed, 1 May 2024 03:46:30 +0000 (11:46 +0800)
* 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>.

lisp/wid-edit.el

index 2d82fbe7c894f73bfdd0d30d90ea3e6f12bb41de..3b467434d29f230847b46921d7577b0635c12493 100644 (file)
@@ -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))