diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-06-09 16:43:29 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-06-09 16:44:17 +0800 |
| commit | dd8db560c25958f8e3ab9c46d6df560fce7c0a88 (patch) | |
| tree | be31f457b4e57b93b31bf8d0594fe9883de21f70 /lisp/mouse.el | |
| parent | 7e5aab18dd427dee61fd924c16719aea5ce623a7 (diff) | |
| download | emacs-dd8db560c25958f8e3ab9c46d6df560fce7c0a88.tar.gz emacs-dd8db560c25958f8e3ab9c46d6df560fce7c0a88.tar.bz2 emacs-dd8db560c25958f8e3ab9c46d6df560fce7c0a88.zip | |
Disable tooltip timeouts for drag-and-drop tooltips
* lisp/mouse.el (mouse-drag-and-drop-region-display-tooltip):
Don't time out the created tooltip.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 11014fa1c5f..9cf6635a01f 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -3056,7 +3056,10 @@ Call `tooltip-show-help-non-mode' instead on non-graphical displays." (setf (alist-get 'border-color params) fg)) (when (stringp bg) (setf (alist-get 'background-color params) bg)) - (x-show-tip tooltip nil params)) + ;; Don't time out: this leads to very confusing behavior when + ;; Emacs isn't visible, and the only indication that the user + ;; is actually dragging something abruptly disappears. + (x-show-tip tooltip nil params most-positive-fixnum)) (tooltip-show-help-non-mode tooltip))) (declare-function x-hide-tip "xfns.c") |