Function: mouse-drag-and-drop-region-display-tooltip

mouse-drag-and-drop-region-display-tooltip is a byte-compiled function defined in mouse.el.gz.

Signature

(mouse-drag-and-drop-region-display-tooltip TOOLTIP)

Documentation

Display TOOLTIP, a tooltip string, using x-show-tip.

Call tooltip-show-help-non-mode instead on non-graphical displays.

Source Code

;; Defined in /usr/src/emacs/lisp/mouse.el.gz
(defun mouse-drag-and-drop-region-display-tooltip (tooltip)
  "Display TOOLTIP, a tooltip string, using `x-show-tip'.
Call `tooltip-show-help-non-mode' instead on non-graphical displays."
  (if (display-graphic-p)
      (let ((params (copy-sequence tooltip-frame-parameters))
	    (fg (face-attribute 'tooltip :foreground))
	    (bg (face-attribute 'tooltip :background)))
	(when (stringp fg)
	  (setf (alist-get 'foreground-color params) fg)
	  (setf (alist-get 'border-color params) fg))
	(when (stringp bg)
	  (setf (alist-get 'background-color params) bg))
        ;; 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)))