|
@@ -211,7 +211,11 @@ 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 (/ (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
|
|
(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))
|