ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Backport commit 73b24a414 from Emacs 

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

Make org-mouse compatible with touch screen event emulation
73b24a41412eb97a9451a8310da0ebab379f7534
Po Lu
Wed Aug 23 09:56:35 2023 +0800
This commit is contained in:
Po Lu 2023-08-23 09:56:35 +08:00 committed by Kyle Meyer
parent a7c8c9d8c2
commit 860d4fd169
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-mouse.el
View File

@ -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)