;ELC   
;;; Compiled
;;; in Emacs version 30.2
;;; with all optimizations.


#@156 Face used for the info popup.
In order to use a smaller face for the popupinfo, use for example:
  (set-face-attribute \='corfu-popupinfo nil :height 0.8)
(require 'corfu)
(custom-declare-face 'corfu-popupinfo '((t :inherit corfu-default)) '(#$ . 84) :group 'corfu-faces)#@581 Automatically update info popup after that number of seconds.

The value can be a pair of two floats to specify initial and
subsequent delay.  If the value is non-nil or the car of the pair
is non-nil, the popup will automatically appear for the
preselected candidate.  Otherwise the popup can be requested
manually via `corfu-popupinfo-toggle',
`corfu-popupinfo-documentation' and `corfu-popupinfo-location'.

It is *not recommended* to use a short delay or even 0, since
this will create high load for Emacs.  Retrieving the
documentation from the backend is usually expensive.#@2 #@58 Hide the popup during the transition between candidates.#@49 Margin at the left and right side of the popup.#@52 The maximum width of the info popup in characters.#@52 The minimum width of the info popup in characters.#@53 The maximum height of the info popup in characters.#@53 The minimum height of the info popup in characters.#@49 Resize the info popup automatically if non-nil.#@46 Preferred directions for the popup in order.#@56 Additional keymap activated by `corfu-popupinfo-mode'.
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\321\310\311&\210\300\322\302\303\323DD\324\306\321\310\311&\210\300\325\302\303\326DD\327\306\321\310\311&\210\300\330\302\303\331DD\332\306\321\310\311&\210\300\333\302\303\334DD\335\306\321\310\311&\210\300\336\302\303\337DD\340\306\315\310\311&\210\300\341\302\303\342DD\343\306\344\310\311&\207" [custom-declare-variable corfu-popupinfo-delay funcall function #[0 "\300\207" [(2.0 . 0.5)] 1 (#$ . 946)] (#$ . 362) :type (choice (const :tag "Never" nil) (number :tag "Delay in seconds") (cons :tag "Two Delays" (choice :tag "Initial   " (choice (const nil) number)) (choice :tag "Subsequent" (choice (const nil) number)))) :group corfu corfu-popupinfo-hide #[0 "\300\207" [nil] 1 (#$ . 946)] (#$ . 952) boolean corfu-popupinfo-margin-width #[0 "\300\207" [1] 1 (#$ . 946)] (#$ . 1014) natnum corfu-popupinfo-max-width #[0 "\300\207" [80] 1 (#$ . 946)] (#$ . 1067) corfu-popupinfo-min-width #[0 "\300\207" [30] 1 (#$ . 946)] (#$ . 1123) corfu-popupinfo-max-height #[0 "\300\207" [10] 1 (#$ . 946)] (#$ . 1179) corfu-popupinfo-min-height #[0 "\300\207" [1] 1 (#$ . 946)] (#$ . 1236) corfu-popupinfo-resize #[0 "\300\207" [t] 1 (#$ . 946)] (#$ . 1293) corfu-popupinfo-direction #[0 "\300\207" [(right left vertical)] 1 (#$ . 946)] (#$ . 1346) (repeat (choice (const left) (const right) (const vertical) (const force-left) (const force-right) (const force-vertical)))] 8)
(defvar corfu-popupinfo-map (define-keymap "M-t" 'corfu-popupinfo-toggle "<remap> <corfu-info-documentation>" 'corfu-popupinfo-documentation "<remap> <corfu-info-location>" 'corfu-popupinfo-location "<remap> <scroll-other-window>" 'corfu-popupinfo-scroll-up "<remap> <scroll-other-window-down>" 'corfu-popupinfo-scroll-down "<remap> <end-of-buffer-other-window>" 'corfu-popupinfo-end "<remap> <beginning-of-buffer-other-window>" 'corfu-popupinfo-beginning) (#$ . 1396))#@97 Additional child frame buffer parameters.
It is recommended to avoid changing these parameters.
(defvar corfu-popupinfo--buffer-parameters '((truncate-partial-width-windows) (truncate-lines) (word-wrap . t) (char-property-alias-alist (face font-lock-face))) (#$ . 3443))#@25 Info popup child frame.
(defvar corfu-popupinfo--frame nil (#$ . 3719))#@38 Corfu info popup auto display timer.
(defvar corfu-popupinfo--timer nil (#$ . 3796))#@15 Toggle state.
(defvar corfu-popupinfo--toggle 'init (#$ . 3886))#@49 Function called to obtain documentation string.
(defvar corfu-popupinfo--function 'corfu-popupinfo--get-documentation (#$ . 3956))#@42 Completion candidate for the info popup.
(defvar corfu-popupinfo--candidate nil (#$ . 4092))#@107 Geometry of the candidate popup.
The list has the form (LEFT TOP WIDTH HIEGHT) with the values in pixels.
(defvar corfu-popupinfo--geometry nil (#$ . 4191))#@46 Locked position direction of the info popup.
(defvar corfu-popupinfo--lock-dir nil (#$ . 4353))#@27 Buffer used by the popup.
(defconst corfu-popupinfo--buffer " *corfu-popupinfo*" (#$ . 4454))#@42 Initial state of `corfu-popupinfo-mode'.#@10 

(fn K)
(defconst corfu-popupinfo--initial-state (mapcar #[257 "\211JB\207" [] 3 (#$ . 4599)] '(corfu-popupinfo--candidate corfu-popupinfo--geometry corfu-popupinfo--lock-dir corfu-popupinfo--toggle corfu-popupinfo--function)) (#$ . 4553))#@59 Return non-nil if FRAME is visible.

(fn &optional FRAME)
(defalias 'corfu-popupinfo--visible-p #[256 "\211\206 \262\301!\205 \302!\207" [corfu-popupinfo--frame frame-live-p frame-visible-p] 3 (#$ . 4846)])#@54 Get source at location of CANDIDATE.

(fn CANDIDATE)
(defalias 'corfu-popupinfo--get-location #[257 "\212\306 \307C\310\311#\216\312\313!\211\205 \3141 \211!0\202 \210\307\211\205R \315@!\2030 @\206Q \316@!\206Q \317\307\317\307\320\317\211\321C\322@\317\".\240\211\205\243 r\242q\210\212\214~\210eb\210A\211\203z \315@!\203v \211b\266\202{ \211Sy\210\210`\323_y\210\203\214 \324`\"\210\211`{\211\325\307\326\317$\266\204?\205\240 \211+\266\202*\207" [find-file-hook delay-mode-hooks non-essential enable-local-variables enable-dir-local-variables inhibit-redisplay buffer-list nil make-closure #[0 "\303\302!\203 \n\203 \304\305!\203 \305 \210\300\242\205$ \300\242\301>?\205$ \306\300\242!\207" [V0 V1 hl-line-mode boundp fboundp hl-line-highlight kill-buffer] 2] corfu--metadata-get company-location (error) bufferp get-file-buffer t :safe global-font-lock-mode-enable-in-buffer find-file-noselect 10 jit-lock-fontify-now "\\`[ 	\n]*\\'" string-match message-log-max inhibit-message corfu-popupinfo-max-height jit-lock-mode] 17 (#$ . 5064)])#@54 Get the documentation for CANDIDATE.

(fn CANDIDATE)
(defalias 'corfu-popupinfo--get-documentation #[257 "\306\307!\211\205) \212\310	_\311K\312\313\314\313\315\316\"\216\311M\210!.\266\203\211\205f \317\320!\203A \203A \321\322!\203A \322 \210r\211\242\206H \211q\210\323\324\325\326\327 #!\262\211\330\314\331\313$\266\204?\205e \211)\207" [corfu-popupinfo-max-width corfu-popupinfo-max-height print-length print-level inhibit-redisplay message-log-max corfu--metadata-get company-doc-buffer #[0 "\300\301!\207" [get-buffer-create " *corfu-info*"] 2] help-buffer 3 t nil make-closure #[0 "\301\300M\207" [V0 help-buffer] 2] boundp hl-line-mode fboundp hl-line-highlight string-trim replace-regexp-in-string "[\n	 ]*\\[back\\][\n	 ]*" "" buffer-string "\\`[ 	\n]*\\'" string-match inhibit-message] 12 (#$ . 6153)])#@60 Compute popup size from buffer content and return as pair.
(defalias 'corfu-popupinfo--compute-size #[0 "\305 \306 \307__	_\n_\203V r\fq\210\310 \311\312\"\216\313\314\211\"\210p\315 \311\316\"\216\317\314\"\210\320\314ed	\321_%\211@X\205P @\\A	]^B+\266\204\206[ \\B\207" [corfu-popupinfo-margin-width corfu-popupinfo-max-height corfu-popupinfo-max-width corfu-popupinfo-resize corfu-popupinfo--buffer default-font-width default-line-height 2 window-dedicated-p make-closure #[0 "\301\302\300\"\207" [V0 set-window-dedicated-p nil] 3] set-window-dedicated-p nil window-buffer #[0 "\301\302\300\"\300\207" [V0 set-window-buffer nil] 4] set-window-buffer window-text-pixel-size 3] 15 (#$ . 6995)])#@133 Check if SIZE fits into the AREA.
SIZE is in the form (WIDTH . HEIGHT).
AREA is in the form (X Y WIDTH HEIGHT DIR).

(fn SIZE AREA)
(defalias 'corfu-popupinfo--fits-p #[514 "\3008@Y\205 \3018AY\207" [2 3] 4 (#$ . 7719)])#@117 Check if AREA1 is larger than AREA2.
AREA1 and AREA2 are both in the form (X Y WIDTH HEIGHT DIR).

(fn AREA1 AREA2)
(defalias 'corfu-popupinfo--larger-p #[514 "\3008\3018_\3008\3018_Y\207" [2 3] 6 (#$ . 7951)])#@157 Calculate possible display areas for the info popup.
PS is the pixel size of the popup.  Return a list of left area, right
area and vertical area.

(fn PS)
(defalias 'corfu-popupinfo--possible-areas #[257 "\302 \242\243\303!\203 	\202 \304\305!\306!\307!\310\311\"\211\242\243\211\242\243\211\242\243\211\242\243\312\313_\310\314\"\310\315\"$\313_\\\312\316 A@\317 \320`!\3138\262A\206[ \304$Y\211\206e W\211\203n 	\202{ \304\321\\\211$]\203\211 \fZ\202\223 \\ZZ^\304ZZ]Z^\322\257\\[\\\211\321\211$^\323\257\321\211$^\203\365 \n\\[\\\321$^\324\257\202ZZ^\304ZZ]\324\257\262E\207" [corfu--frame corfu-border-width default-line-height display-graphic-p 0 frame-parent frame-pixel-width frame-pixel-height frame-parameter corfu--geometry + 2 left-fringe right-fringe window-inside-pixel-edges window-tab-line-height posn-at-point - left right vertical] 35 (#$ . 8172)])#@152 Calculate the display area for the info popup.
PS is the pixel size of the popup.  The calculated area is in the
form (X Y WIDTH HEIGHT DIR).

(fn PS)
(defalias 'corfu-popupinfo--area #[257 "\304!\211\242\243\211\242\243\211\242\243\2035 \305\306 	_\307 \n_B\310\267\2020 \2021 \2021 \2021 \311\"\2047 \311\311\211\211:\203\313 @\262\312=\203O \202\272 \313=\203Z \202\272 \314=\203e 	\202\272 \315=\203p 	\202\272 \316=\203z \202\272 \317=\203\204 \202\272 \320\267\202\246 \305\f	\"\205\272 \202\272 \305\f\"\205\272 	\202\272 \317=\204\260 \311\202\272 \305\f\"\205\272 \211\262?\211\262\203\313 A\262\202; \266\203\206\347 \321\"\203\334 \202\335 \321\"\203\347 \210\207\207" [corfu-popupinfo--lock-dir corfu-popupinfo-min-width corfu-popupinfo-min-height corfu-popupinfo-direction corfu-popupinfo--possible-areas corfu-popupinfo--fits-p default-font-width default-line-height #s(hash-table test eq purecopy t data (left 35 right 40 vertical 44)) nil force-right right force-left left force-vertical vertical #s(hash-table test eq purecopy t data (right 138 left 152)) corfu-popupinfo--larger-p] 15 (#$ . 9180)])#@52 Show the info popup for CANDIDATE.

(fn CANDIDATE)
(defalias 'corfu-popupinfo--show #[257 "\203\n \306!\210\307\310	!\205\362 \310 \205 \311\n\"?\312	\313\"\211\232?\203\211 \f!\211\203\200 r\314!q\210\315 \316\211 \316!\317\320\"\216\321 \210c\210eb,\266\"\211\203b \211@\322@A\"\266A\202P \210#$#%\323\324\325&\">\211\203z \211\326\240\210)\266\202\211 \327 \210\307\262\266\307\204\221 \211\205\360 '\330\203\235 \331 \202\252 \312\313\"\3328\3338B\262!\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243rq\210\334'\n	%)'\316()'=?\205\356 \335\336'!\"\266\214\266\203\207" [corfu-popupinfo--timer corfu--frame corfu-popupinfo--candidate corfu-popupinfo--geometry corfu-popupinfo--function corfu-popupinfo--buffer cancel-timer nil corfu-popupinfo--visible-p equal-including-properties frame-parameter corfu--geometry corfu--make-buffer buffer-modified-p t make-closure #[0 "\300\301>\205	 \302\300!\207" [V0 (nil autosaved) restore-buffer-modified-p] 2] erase-buffer set-local corfu-default alist-get default corfu-popupinfo corfu-popupinfo--hide corfu-popupinfo--area corfu-popupinfo--compute-size 2 3 corfu--make-frame set-window-buffer frame-root-window buffer-undo-list inhibit-read-only inhibit-modification-hooks corfu-popupinfo--buffer-parameters corfu-popupinfo-margin-width left-margin-width right-margin-width face-remapping-alist corfu-popupinfo--frame corfu-popupinfo--toggle corfu-popupinfo--lock-dir] 23 (#$ . 10357)])#@50 Clear the info popup buffer content and hide it.
(defalias 'corfu-popupinfo--hide #[0 "\301!\207" [corfu-popupinfo--frame corfu--hide-frame] 2 (#$ . 11869)])#@248 Scroll text of info popup window to its end.
If N is omitted or nil, scroll to end.  If a numerical value, put point
N/10 of the way from the end.  If the info popup is not visible, the
other window is moved to beginning or end.

(fn &optional N)
(defalias 'corfu-popupinfo-end #[256 "\302 \203 \303 p\304\305#\216\306\307\"\210r	q\210\310!*\207\311!\207" [corfu-popupinfo--frame corfu-popupinfo--buffer corfu-popupinfo--visible-p selected-frame make-closure #[0 "\302\301!\203 \303\301\304\"\210\305\300!\205 \300q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord end-of-buffer end-of-buffer-other-window] 7 (#$ . 12034) "P"])#@123 Scroll text of info popup window to beginning of buffer.

See `corfu-popupinfo-end' for the argument N.

(fn &optional N)
(defalias 'corfu-popupinfo-beginning #[256 "\300\301\247\203 \202\f \302Z!\207" [corfu-popupinfo-end 10 0] 4 (#$ . 12714) "P"])#@226 Scroll text of info popup window upward N lines.
If ARG is omitted or nil, scroll upward by a near full screen.  See
`scroll-up' for details.  If the info popup is not visible, the other
window is scrolled.

(fn &optional N)
(defalias 'corfu-popupinfo-scroll-up #[256 "\302 \203 \303 p\304\305#\216\306\307\"\210r	q\210\310!*\207\311!\207" [corfu-popupinfo--frame corfu-popupinfo--buffer corfu-popupinfo--visible-p selected-frame make-closure #[0 "\302\301!\203 \303\301\304\"\210\305\300!\205 \300q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord scroll-up-command scroll-other-window] 7 (#$ . 12973) "P"])#@116 Scroll text of info popup window down N lines.
See `corfu-popupinfo-scroll-up' for more details.

(fn &optional N)
(defalias 'corfu-popupinfo-scroll-down #[256 "\302 \203 \303 p\304\305#\216\306\307\"\210r	q\210\310!*\207\311!\207" [corfu-popupinfo--frame corfu-popupinfo--buffer corfu-popupinfo--visible-p selected-frame make-closure #[0 "\302\301!\203 \303\301\304\"\210\305\300!\205 \300q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord scroll-down-command scroll-other-window-down] 7 (#$ . 13634) "P"])#@58 Set documentation getter FUN and toggle popup.

(fn FUN)
(defalias 'corfu-popupinfo--toggle #[257 "\305W\203 \306 \210\307\310!\210\311 \205 	=?\211\204 \306 \207\211\312\f8\313!\210\311 ?\205? \307\314\315\316\317!\320\"!@\321!#\207" [corfu--index corfu-popupinfo--function corfu-popupinfo--toggle corfu-popupinfo--candidate corfu--candidates 0 corfu-popupinfo--hide user-error "No candidate selected" corfu-popupinfo--visible-p nil corfu-popupinfo--show "No %s available for `%s'" last split-string symbol-name "-+" substring-no-properties] 9 (#$ . 14193)])#@77 Show or hide documentation in popup.
Behaves like `corfu-popupinfo-toggle'.
(defalias 'corfu-popupinfo-documentation #[0 "\300\301!\207" [corfu-popupinfo--toggle corfu-popupinfo--get-documentation] 2 (#$ . 14771) nil])#@72 Show or hide location in popup.
Behaves like `corfu-popupinfo-toggle'.
(defalias 'corfu-popupinfo-location #[0 "\300\301!\207" [corfu-popupinfo--toggle corfu-popupinfo--get-location] 2 (#$ . 14995) nil])#@203 Toggle the info popup display or hide.

When using this command to manually hide the info popup, it will
not be displayed until this command is called again, even if
`corfu-popupinfo-delay' is non-nil.
(defalias 'corfu-popupinfo-toggle #[0 "\301!\207" [corfu-popupinfo--function corfu-popupinfo--toggle] 2 (#$ . 15205) nil])#@122 Non-nil if Corfu-Popupinfo mode is enabled.
See the `corfu-popupinfo-mode' command
for a description of this minor mode.#@633 Show candidate documentation in a popup.

This is a global minor mode.  If called interactively, toggle the
`Corfu-Popupinfo 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 \='corfu-popupinfo-mode)'.

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

(fn &optional ARG)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable corfu-popupinfo-mode funcall function #[0 "\300\207" [nil] 1 (#$ . 946)] (#$ . 15537) :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group corfu] 12)
(defalias 'corfu-popupinfo-mode #[256 "\301 \302\303\304=\203 \305\303!?\202! \247\203  \306W\203  \307\202! \310\"\210\311\300!\2038 \312\303\"\305\303!\2038 \303B\313\314\305\303!\203D \315\202E \316\"\210\317\320!\203n \321\303!\210\301 \203] \211\301 \232\203n \322\323\324\305\303!\203j \325\202k \326\327$\210\210\330 \210\305\303!\207" [global-minor-modes current-message set-default corfu-popupinfo-mode toggle default-value 1 nil t boundp delq run-hooks corfu-popupinfo-mode-hook corfu-popupinfo-mode-on-hook corfu-popupinfo-mode-off-hook called-interactively-p any customize-mark-as-set message "%s %sabled%s" "Corfu-Popupinfo mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 15664) (byte-code "\203\n \301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar corfu-popupinfo-mode-hook nil)#@12 

(fn BUF)
(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\310\320%\210\314\321\322\323\310\324%\210\325\211\203I \211@\303\326\327#\266A\2028 \210\330\331!\207" [corfu-popupinfo-mode-map corfu-popupinfo-mode-hook variable-documentation put "Hook run after entering or leaving `corfu-popupinfo-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 corfu-popupinfo-mode boundp cl-generic-define-method corfu--exhibit (:after) (&context (corfu-popupinfo-mode (eql t))) #[0 "\205\230 \306	\236\n\203 \241\266\202 \306B\211\262	B\266\203) \307!\210\310\f\311Y\203\226 \312!\203\226 \f8\313\"?:\203X \314=\203Q \315\202R \316!\202Z \211\203\217 \203\217 \312 \203\205 \211\311V\203\205 \203} \203} \317 \210\202\205 \203\205 \320!\210\321\310\320$\211\207\205\225 \317 \207\317 \207" [completion-in-region-mode minor-mode-overriding-map-alist corfu-popupinfo-map corfu-popupinfo--timer corfu--index corfu--frame corfu-popupinfo-mode cancel-timer nil 0 corfu-popupinfo--visible-p equal-including-properties init car cdr corfu-popupinfo--hide corfu-popupinfo--show run-at-time corfu-popupinfo--candidate corfu--candidates corfu-popupinfo-delay corfu-popupinfo--toggle corfu-popupinfo-hide] 9] corfu--teardown (:before) (_buf &context (corfu-popupinfo-mode (eql t))) #[257 "\302 \210\303\211:\203\" @\262\211A\262\262\242\211L\210A\262\202 \266\304\305	\"\211\207" [corfu-popupinfo--initial-state minor-mode-overriding-map-alist corfu-popupinfo--hide nil assq-delete-all corfu-popupinfo-mode] 6 (#$ . 17427)] (corfu-popupinfo-scroll-down corfu-popupinfo-scroll-up corfu-popupinfo-documentation corfu-popupinfo-location corfu-popupinfo-beginning corfu-popupinfo-end corfu-popupinfo-toggle) completion-predicate ignore provide corfu-popupinfo] 6)