From: Po Lu <luangruo@yahoo.com>
Date: Wed, 23 Aug 2023 01:56:35 +0000 (+0800)
Subject: Make org-mouse compatible with touch screen event emulation
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73b24a41412eb97a9451a8310da0ebab379f7534;p=emacs.git

Make org-mouse compatible with touch screen event emulation

* lisp/org/org-mouse.el (org-mouse-down-mouse): Characterize as
an `ignored-mouse-command'.
---

diff --git a/lisp/org/org-mouse.el b/lisp/org/org-mouse.el
index e0671f3d7d5..9c9dfee51a1 100644
--- a/lisp/org/org-mouse.el
+++ b/lisp/org/org-mouse.el
@@ -859,6 +859,10 @@ This means, between the beginning of line and the point."
 	       (org-mouse-in-region-p (posn-point (event-start event))))
     (mouse-drag-region event)))
 
+;; This function conflicts with touch screen gestures as it relays
+;; events to `mouse-drag-region'.
+(put 'org-mouse-down-mouse 'ignored-mouse-command t)
+
 (add-hook 'org-mode-hook
           (lambda ()
             (setq org-mouse-context-menu-function #'org-mouse-context-menu)