master 73b24a41412: Make org-mouse compatible with touch screen event emulation

[Po Lu]

branch: master
commit 73b24a41412eb97a9451a8310da0ebab379f7534
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Make org-mouse compatible with touch screen event emulation
    
    * lisp/org/org-mouse.el (org-mouse-down-mouse): Characterize as
    an `ignored-mouse-command'.
---
 lisp/org/org-mouse.el | 4 ++++
 1 file changed, 4 insertions(+)

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)