From abc34b458f6a79333ddca6404bf38f196a804a40 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 4 Oct 2022 17:42:27 -0400 Subject: [PATCH] org-mouse: Make recently ported change compatible with Emacs < 29 * lisp/org-mouse.el (org-mouse-show-context-menu): Conditionally restore old code path, falling back to double-click-time if mouse-double-click-time isn't available. This is a follow-up to the port of Emacs's 2fba71cf1. --- lisp/org-mouse.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el index 0b067f0746..817a2d1b05 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -211,7 +211,11 @@ this function is called. Otherwise, the current major mode menu is used." (interactive "@e \nP") (if (and (= (event-click-count event) 1) (or (not mark-active) - (sit-for (/ (mouse-double-click-time) 1000.0)))) + (sit-for + (/ (if (fboundp 'mouse-double-click-time) ; Emacs >= 29 + (mouse-double-click-time) + double-click-time) + 1000.0)))) (progn (select-window (posn-window (event-start event))) (when (not (org-mouse-mark-active))