From 73b24a41412eb97a9451a8310da0ebab379f7534 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Wed, 23 Aug 2023 09:56:35 +0800 Subject: [PATCH] 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) -- 2.39.2