diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2022-05-02 12:03:08 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-02 12:03:08 +0200 |
commit | 2fba71cf1fadc9d681e6be250d152cc156bf6a00 (patch) | |
tree | 8a5d496f98bfb0c79095c3ae19a919be1b275c0b /lisp/foldout.el | |
parent | f7a6dd4fcc54230630fcba73ca6bda2a413eff24 (diff) | |
download | emacs-2fba71cf1fadc9d681e6be250d152cc156bf6a00.tar.gz |
Fix handling double-click-time nil or t
* lisp/mouse.el (mouse-double-click-time): New function to always
return a number for `double-click-time'.
* lisp/emulation/viper-mous.el (viper-multiclick-timeout):
* lisp/foldout.el (foldout-mouse-swallow-events):
* lisp/help.el (help--read-key-sequence):
* lisp/org/org-mouse.el (org-mouse-show-context-menu): Use
'mouse-double-click-time' instead of 'double-click-time'.
* src/keyboard.c (syms_of_keyboard): Mention
'mouse-double-click-time' in doc string of 'double-click-time'.
* test/lisp/mouse-tests.el (mouse-test-mouse-double-click-time):
New test.
Diffstat (limited to 'lisp/foldout.el')
-rw-r--r-- | lisp/foldout.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/foldout.el b/lisp/foldout.el index 4b192a7b6aa..e00fb40e3ca 100644 --- a/lisp/foldout.el +++ b/lisp/foldout.el @@ -473,7 +473,7 @@ What happens depends on the number of mouse clicks:- "Swallow intervening mouse events so we only get the final click-count. Signal an error if the final event isn't the same type as the first one." (let ((initial-event-type (event-basic-type event))) - (while (null (sit-for (/ double-click-time 1000.0) 'nodisplay)) + (while (null (sit-for (/ (mouse-double-click-time) 1000.0) 'nodisplay)) (setq event (read--potential-mouse-event))) (or (eq initial-event-type (event-basic-type event)) (error ""))) |