;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\307\306\310\306\311\306\312\313\314\315\316&\210\317\320\321\322\323DD\324\325\326\327\330\331\332\306\303&\207" [require syntax custom-declare-group tooltip nil "Customization group for the `tooltip' package." :group help gud mouse tools :version "21.1" :tag "Tool Tips" custom-declare-variable tooltip-mode funcall function #[0 "\300\207" [t] 1 ""] "Non-nil if Tooltip mode is enabled.\nSee the `tooltip-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `tooltip-mode'." :set custom-set-minor-mode :initialize custom-initialize-delay :type boolean] 16)
#@846 Toggle Tooltip mode.

This is a minor mode.  If called interactively, toggle the `Tooltip
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='tooltip-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

When this global minor mode is enabled, Emacs displays help
text (e.g. for buttons and menu items that you put the mouse on)
in a pop-up window.

When Tooltip mode is disabled, Emacs displays help text in the
echo area, instead of making a pop-up window.

(fn &optional ARG)
(defalias 'tooltip-mode #[256 "\304 \305\301\306=\203\307\301!?\202!\247\203 \310W\203 \311\202!\312\"\210\313\300!\2038\314\301\"\307\301!\2038\301B	\203O\315\316!\203O\317\320\321\"\210\317\322\323\"\210\202c\313\302!\203Y\n\204^\324\320\321\"\210\324\322\323\"\210	\203k\325\202l\326\327\330\307\301!\203y\331\202z\332\"\210\333\334!\203\242\335\301!\210\304 \203\222\211\304 \232\203\242\336\337\307\301!\203\236\340\202\237\341\342#\210\210\343 \210\307\301!\207" [global-minor-modes tooltip-mode gud-tooltip-mode show-help-function current-message set-default toggle default-value 1 nil t boundp delq fboundp x-show-tip add-hook pre-command-hook tooltip-hide tooltip-functions tooltip-help-tips remove-hook tooltip-show-help tooltip-show-help-non-mode run-hooks tooltip-mode-hook tooltip-mode-on-hook tooltip-mode-off-hook called-interactively-p any customize-mark-as-set message "Tooltip mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 829) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar tooltip-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323%\210\314\324\316\317\325DD\326\322\323%\210\314\327\316\317\330DD\331\322\323%\210\314\332\316\317\333DD\334\322\323%\210\314\335\316\317\336DD\337\322\340%\210\314\341\316\317\342DD\343\322\340%\210\314\344\316\317\345DD\346\322\347\350\351&\210\352\353\354\355\356\353\356\357&\210\314\360\316\317\361DD\362\322\363%\210\364\360\365\366\367$\210\314\370\316\317\371DD\372\322\363\350\373&\207" [tooltip-mode-map tooltip-mode-hook variable-documentation put "Hook run after entering or leaving `tooltip-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode tooltip-mode boundp custom-declare-variable tooltip-delay funcall function #[0 "\300\207" [0.7] 1 #1=""] "Seconds to wait before displaying a tooltip the first time." :type number tooltip-short-delay #[0 "\300\207" [0.1] 1 #1#] "Seconds to wait between subsequent tooltips on different items." tooltip-recent-seconds #[0 "\300\207" [1] 1 #1#] "Display tooltips if changing tip items within this many seconds.\nDo so after `tooltip-short-delay'." tooltip-hide-delay #[0 "\300\207" [10] 1 #1#] "Hide tooltips automatically after this many seconds." tooltip-x-offset #[0 "\300\207" [5] 1 #1#] "X offset, in pixels, for the display of tooltips.\nThe offset is the distance between the X position of the mouse and\nthe left border of the tooltip window.  It must be chosen so that the\ntooltip window doesn't contain the mouse when it pops up, or it may\ninterfere with clicking where you wish.\n\nIf `tooltip-frame-parameters' includes the `left' parameter,\nthe value of `tooltip-x-offset' is ignored." integer tooltip-y-offset #[0 "\300\207" [20] 1 #1#] "Y offset, in pixels, for the display of tooltips.\nThe offset is the distance between the Y position of the mouse and\nthe top border of the tooltip window.  It must be chosen so that the\ntooltip window doesn't contain the mouse when it pops up, or it may\ninterfere with clicking where you wish.\n\nIf `tooltip-frame-parameters' includes the `top' parameter,\nthe value of `tooltip-y-offset' is ignored." tooltip-frame-parameters #[0 "\300\207" [((name . "tooltip") (internal-border-width . 2) (border-width . 1) (no-special-glyphs . t))] 1 #1#] "Frame parameters used for tooltips.\n\nIf `left' or `top' parameters are included, they specify the absolute\nposition to pop up the tooltip.\n\nNote that font and color parameters are ignored, and the attributes\nof the `tooltip' face are used instead." (repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) :version "26.1" custom-declare-face tooltip ((((class color)) :background "lightyellow" :foreground "black" :inherit variable-pitch) (t :inherit variable-pitch)) "Face for tooltips.\n\nWhen using the GTK toolkit, this face will only be used if\n`x-gtk-use-system-tooltips' is non-nil." :group basic-faces tooltip-use-echo-area #[0 "\300\207" [nil] 1 #1#] "Use the echo area instead of tooltip frames for help and GUD tooltips.\nThis variable is obsolete; instead of setting it to t, disable\n`tooltip-mode' (which has a similar effect)." boolean make-obsolete-variable "disable Tooltip mode instead" "24.1" set tooltip-resize-echo-area #[0 "\300\207" [nil] 1 #1#] "If non-nil, using the echo area for tooltips will resize the echo area.\nBy default, when the echo area is used for displaying tooltips,\nthe tooltip text is truncated if it exceeds a single screen line.\nWhen this variable is non-nil, the text is not truncated; instead,\nthe echo area is resized as needed to accommodate the full text\nof the tooltip.\nThis variable has effect only on GUI frames." "27.1"] 8)
#@255 Functions to call to display tooltips.
Each function is called with one argument EVENT which is a copy
of the last mouse movement event that occurred.  If one of these
functions displays the tooltip, it should return non-nil and the
rest are not called.
(defvar tooltip-functions nil (#$ . 6671))
#@56 The id of the timeout started when Emacs becomes idle.
(defvar tooltip-timeout-id nil (#$ . 6974))
#@45 A copy of the last mouse motion event seen.
(defvar tooltip-last-mouse-motion-event nil (#$ . 7079))
#@40 Time when the last tooltip was hidden.
(defvar tooltip-hide-time nil (#$ . 7186))
#@128 Return the buffer over which event EVENT occurred.
This might return nil if the event did not occur over a buffer.

(fn EVENT)
(defalias 'tooltip-event-buffer #[257 "\300
!\211@\262
\211\205\301
!\207" [event-end window-buffer] 4 (#$ . 7275)])
#@51 Return the delay in seconds for the next tooltip.
(defalias 'tooltip-delay #[0 "\203\304\305!	\"\203\n\207\207" [tooltip-hide-time tooltip-recent-seconds tooltip-short-delay tooltip-delay time-less-p time-since] 3 (#$ . 7527)])
#@30 Disable the tooltip timeout.
(defalias 'tooltip-cancel-delayed-tip #[0 "\205\301!\210\302\211\207" [tooltip-timeout-id disable-timeout nil] 2 (#$ . 7768)])
#@60 Add a one-shot timeout to call function `tooltip-timeout'.
(defalias 'tooltip-start-delayed-tip #[0 "\301\302 \303\304#\211\207" [tooltip-timeout-id add-timeout tooltip-delay tooltip-timeout nil] 4 (#$ . 7935)])
#@77 Function called when timer with id `tooltip-timeout-id' fires.

(fn OBJECT)
(defalias 'tooltip-timeout #[257 "\301\302\"\207" [tooltip-last-mouse-motion-event run-hook-with-args-until-success tooltip-functions] 4 (#$ . 8154)])
#@199 Change the value of KEY in alist ALIST to VALUE.
If there's no association for KEY in ALIST, add one, otherwise
change the existing association.  Value is the resulting alist.

(fn ALIST KEY VALUE)
(defalias 'tooltip-set-param #[771 "
\236\211\203\211\241\266\202B\211\262B\262\210\207" [] 6 (#$ . 8389)])
(make-obsolete 'tooltip-set-param "use (setf (alist-get ..) ..) instead" "25.1")
#@483 Show a tooltip window displaying TEXT.

Text larger than `x-max-tooltip-size' is clipped.

If the alist in `tooltip-frame-parameters' includes `left' and `top'
parameters, they determine the x and y position where the tooltip
is displayed.  Otherwise, the tooltip pops at offsets specified by
`tooltip-x-offset' and `tooltip-y-offset' from the current mouse
position.

Optional second arg USE-ECHO-AREA non-nil means to show tooltip
in echo area.

(fn TEXT &optional USE-ECHO-AREA)
(defalias 'tooltip-show #[513 "\211\203\304!\207\3051\210\306!\307\310\311\"\307\310\312\"
;\203P\313\236\211\203+\211\241\266\2026\313B\211\262B\262\210\314\236\211\203E\211\241\266\202P\314B\211\262B\262\210\211;\203o\315\236\211\203d\211\241\266\202o\315B\211\262B\262\210\316\317G\310\320	%\210\321\322 	\n&\266\2030\207\323\324\"\210\325\326!\210\323\327\"\207" [tooltip-frame-parameters tooltip-hide-delay tooltip-x-offset tooltip-y-offset tooltip-show-help-non-mode (error) copy-sequence face-attribute tooltip :foreground :background foreground-color border-color background-color add-face-text-property 0 t x-show-tip selected-frame message "Error while displaying tooltip: %s" sit-for 1 "%s"] 12 (#$ . 8796)])
#@104 Hide a tooltip, if one is displayed.
Value is non-nil if tooltip was open.

(fn &optional IGNORED-ARG)
(defalias 'tooltip-hide #[256 "\301 \210\302 \205\f\303 \211\207" [tooltip-hide-time tooltip-cancel-delayed-tip x-hide-tip float-time] 3 (#$ . 10048)])
#@162 Extract the identifier at POINT, if any.
Value is nil if no identifier exists at point.  Identifier extraction
is based on the current syntax table.

(fn POINT)
(defalias 'tooltip-identifier-from-point #[257 "\212\211b\210\300\301!\210`\302 \303\304!\206\305
8\206\306
8?\205+\307\301!\210`V\205+
`{\266\202)\207" [skip-syntax-backward "w_" syntax-ppss looking-at "[0-9]" 3 4 skip-syntax-forward] 5 (#$ . 10312)])
#@219 Return an expression that should be printed for EVENT.
If a region is active and the mouse is inside the region, print
the region.  Otherwise, figure out the identifier around the point
where the mouse is.

(fn EVENT)
(defalias 'tooltip-expr-to-print #[257 "r\300
!q\210\301\302!!\303 \203&\304 
X\205)\211\305 X\205)\304 \305 {\202)\306
!\262
)\207" [tooltip-event-buffer posn-point event-end use-region-p region-beginning region-end tooltip-identifier-from-point] 4 (#$ . 10740)])
#@171 Return regexp matching the prompt of PROCESS at the end of a string.
The prompt is taken from the value of `comint-prompt-regexp' in
the buffer of PROCESS.

(fn PROCESS)
(defalias 'tooltip-process-prompt-regexp #[257 "r\301
!q\210)\302
\303H\304U\203
\305\306O\202\307\310Q\207" [comint-prompt-regexp process-buffer "\n*" 0 94 1 nil "\\*" "$"] 6 (#$ . 11235)])
#@86 Return OUTPUT with any prompt of PROCESS stripped from its end.

(fn PROCESS OUTPUT)
(defalias 'tooltip-strip-prompt #[514 "\300 \301\302\"\216\303\304!\"\203
\305\211\224O\202
)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match tooltip-process-prompt-regexp 0] 6 (#$ . 11607)])
#@128 The last help message received via `show-help-function'.
This is used by `tooltip-show-help' and
`tooltip-show-help-non-mode'.
(defvar tooltip-help-message nil (#$ . 11951))
#@40 The previous content of the echo area.
(defvar tooltip-previous-message nil (#$ . 12131))
#@146 Function installed as `show-help-function' when Tooltip mode is off.
It is also called if Tooltip mode is on, for text-only displays.

(fn HELP)
(defalias 'tooltip-show-help-non-mode #[257 "\306 ?\205b?\205b\211;\203F\307\310\311#\262
	\2043\312
\313 \"\2043\n;\2030\312\n\313 \"\2043\313 \211\314 ?\206=?\315\316\317\"*\207	;\203W\315\316\317	\"\210\315\211)\207\312\n\313 \"\205b\316\315!\207" [cursor-in-echo-area tooltip-previous-message tooltip-help-message tooltip-resize-echo-area message-log-max message-truncate-lines window-minibuffer-p string-replace "\n" ", " equal-including-properties current-message display-graphic-p nil message "%s"] 5 (#$ . 12228)])
#@125 Function installed as `show-help-function'.
MSG is either a help string to display, or nil to cancel the display.

(fn MSG)
(defalias 'tooltip-show-help #[257 "\301 \203

\204\302 \207\211\232\206\302 \210\303 \207\304
!\207" [tooltip-help-message display-graphic-p tooltip-hide tooltip-start-delayed-tip tooltip-show-help-non-mode] 4 (#$ . 12923)])
#@220 Hook function to display a help tooltip.
This is installed on the hook `tooltip-functions', which
is run when the timer with id `tooltip-timeout-id' fires.
Value is non-nil if this function handled the tip.

(fn EVENT)
(defalias 'tooltip-help-tips #[257 ";\205\302	\"\210\303\207" [tooltip-help-message tooltip-use-echo-area tooltip-show t] 4 (#$ . 13289)])
(provide 'tooltip)