forked from mirrors/org-mode
Backport commit 2fba71cf1 from Emacs
* lisp/org-mouse.el (org-mouse-show-context-menu): Use 'mouse-double-click-time' instead of 'double-click-time'. Fix handling double-click-time nil or t 2fba71cf1fadc9d681e6be250d152cc156bf6a00 Stefan Kangas Mon May 2 12:03:08 2022 +0200 [ km: Note that mouse-double-click-time isn't available until Emacs 29; a follow-up commit will add a compatibility kludge. ]
This commit is contained in:
parent
37bb3547c7
commit
c06dc10f39
|
@ -208,7 +208,7 @@ this function is called. Otherwise, the current major mode menu is used."
|
||||||
(interactive "@e \nP")
|
(interactive "@e \nP")
|
||||||
(if (and (= (event-click-count event) 1)
|
(if (and (= (event-click-count event) 1)
|
||||||
(or (not mark-active)
|
(or (not mark-active)
|
||||||
(sit-for (/ double-click-time 1000.0))))
|
(sit-for (/ (mouse-double-click-time) 1000.0))))
|
||||||
(progn
|
(progn
|
||||||
(select-window (posn-window (event-start event)))
|
(select-window (posn-window (event-start event)))
|
||||||
(when (not (org-mouse-mark-active))
|
(when (not (org-mouse-mark-active))
|
||||||
|
|
Loading…
Reference in New Issue