;ELC   
;;; Compiled
;;; in Emacs version 24.5.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'cl-lib)
(defconst popup-version "0.5.3")
#@103 Determines whether the width desired is
character or window proportion based, And returns the result.
(defalias 'popup-calculate-max-width #[(max-width) "\250\203 \207\301!\205 \302\303\304 _!\305\245!\306_\207" [max-width floatp ceiling round window-width 10.0 10] 4 (#$ . 462)])
#@89 Use the optimized column computation routine.
If there is a problem, please set it nil.
(defvar popup-use-optimized-column-computation t (#$ . 755))
#@15 Anaphoric if.
(defalias 'popup-aif '(macro . #[(test then &rest else) "\303\304DC\305\304	\nBBBE\207" [test then else let it if] 6 (#$ . 910)]))
(put 'popup-aif 'lisp-indent-function 2)
#@17 Anaphoric when.
(defalias 'popup-awhen '(macro . #[(test &rest body) "\302\303DC\304\303	BBE\207" [test body let it when] 5 (#$ . 1103)]))
(put 'popup-awhen 'lisp-indent-function 1)
#@96 Convert any object to string effeciently.
This is faster than `prin1-to-string' in many cases.
(defalias 'popup-x-to-string #[(x) ";\203 \2079\203 \301!\207\250\203 \302!\207\303!\203# \302!\207\304\305\"\207" [x symbol-name number-to-string floatp format "%s"] 3 (#$ . 1292)])
#@79 Return a cons cell of substring and remaining string by
splitting with WIDTH.
(defalias 'popup-substring-by-width #[(string width) "\306\307\310#\211G\311\211\312\313\"\313\f:\2033 \f@\n\314!\\\211X\2033 T\fA\211\202 	W\203E \311O\313OB\202G C-\207" [string len w l #1=#:--cl-var-- c replace-regexp-in-string "	" "    " 0 append nil char-width width] 5 (#$ . 1588)])
#@727 Split STRING into fixed width strings and return a cons cell
like (WIDTH . ROWS). Here, the car WIDTH indicates the actual
maxim width of ROWS.

The argument WIDTH specifies the width of filling each
paragraph. WIDTH nil means don't perform any justification and
word wrap. Note that this function doesn't add any padding
characters at the end of each row.

MAX-WIDTH, if WIDTH is nil, specifies the maximum number of
columns.

The optional fourth argument JUSTIFY specifies which kind of
justification to do: `full', `left', `right', `center', or
`none' (equivalent to nil).  A value of t means handle each
paragraph as specified by its text properties.

SQUEEZE nil means leave whitespaces other than line breaks
untouched.
(defalias 'popup-fill-string #[(string &optional width max-width justify squeeze) "\306=\203\n \307\310!\210\203 \311\312!r\nq\210\313\216\314\306\315\316\211\211c\210\317ed\"\210\203C \320ed?$\210eb\210\306`\316\210`{	\203| \321	\"\322\f!]\fB\fGGU\204\210 \fG\316O\211\204T \202\210 \322!]B)`dW\323\324!\210\204H \237.\nB\207" [width max-width #1=#:temp-buffer rows row indent-tabs-mode 0 error "Can't fill string with 0 width" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) 4 1 nil untabify fill-region truncate-string-to-width string-width beginning-of-line 2 kinsoku-limit left-margin fill-column tab-width string justify squeeze line] 7 (#$ . 1985)])
(defalias 'popup-save-buffer-state '(macro . #[(&rest body) "\301\302\303\304\305B\306BBED\207" [body save-excursion let ((buffer-undo-list t) (inhibit-read-only t) (modified (buffer-modified-p))) unwind-protect progn ((set-buffer-modified-p modified))] 6]))
(put 'popup-save-buffer-state 'lisp-indent-function 0)
#@42 A portable version of `vertical-motion'.
(defalias 'popup-vertical-motion #[(column direction) "\303Y\203\f \304	\nB!\207\304\n!\210\305i	\\!\207" [emacs-major-version column direction 23 vertical-motion move-to-column] 3 (#$ . 3803)])
#@65 Return non-nil if the cursor is at the last line of the
buffer.
(defalias 'popup-last-line-of-buffer-p #[nil "\212\300\210\300y\301U)?\207" [nil 0] 2 (#$ . 4046)])
(defalias 'popup-lookup-key-by-event #[#'event "\303	!!\206* 	9\205* 	\304N\211\205) \303\305\n@\306N\206  \307\n\211A@\262\"!!)\207" [function event it vector event-symbol-element-mask logior ascii-character 0] 7])
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\304\301%\210\310\314\315\316\304\301%\210\310\317\320\321\304\301%\210\310\322\323\324\304\301%\207" [custom-declare-group popup nil "Visual Popup User Interface" :group lisp :prefix "popup-" custom-declare-face popup-face ((t (:background "lightgray" :foreground "black"))) "Face for popup." popup-summary-face ((t (:inherit popup-face :foreground "dimgray"))) "Face for popup summary." popup-scroll-bar-foreground-face ((t (:background "black"))) "Foreground face for scroll-bar." popup-scroll-bar-background-face ((t (:background "gray"))) "Background face for scroll-bar."] 8)
#@18 Popup instances.
(defvar popup-instances nil (#$ . 5085))
#@38 Foreground character for scroll-bar.
(defvar popup-scroll-bar-foreground-char (propertize " " 'face 'popup-scroll-bar-foreground-face) (#$ . 5149))
#@38 Background character for scroll-bar.
(defvar popup-scroll-bar-background-char (propertize " " 'face 'popup-scroll-bar-background-face) (#$ . 5303))
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-point--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-point (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-point 'popup)) (aref cl-x 1)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-point compiler-macro #1#] 4] 4)
(defalias 'popup-point #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-point popup 1] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-row--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-row (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-row 'popup)) (aref cl-x 2)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-row compiler-macro #1#] 4] 4)
(defalias 'popup-row #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-row popup 2] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-column--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-column (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-column 'popup)) (aref cl-x 3)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-column compiler-macro #1#] 4] 4)
(defalias 'popup-column #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-column popup 3] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-width--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-width (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-width 'popup)) (aref cl-x 4)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-width compiler-macro #1#] 4] 4)
(defalias 'popup-width #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-width popup 4] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-height--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-height (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-height 'popup)) (aref cl-x 5)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-height compiler-macro #1#] 4] 4)
(defalias 'popup-height #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-height popup 5] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-min-height--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-min-height (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-min-height 'popup)) (aref cl-x 6)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-min-height compiler-macro #1#] 4] 4)
(defalias 'popup-min-height #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-min-height popup 6] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-direction--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-direction (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-direction 'popup)) (aref cl-x 7)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-direction compiler-macro #1#] 4] 4)
(defalias 'popup-direction #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-direction popup 7] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-overlays--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-overlays (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-overlays 'popup)) (aref cl-x 8)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-overlays compiler-macro #1#] 4] 4)
(defalias 'popup-overlays #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-overlays popup 8] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-keymap--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-keymap (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-keymap 'popup)) (aref cl-x 9)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-keymap compiler-macro #1#] 4] 4)
(defalias 'popup-keymap #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-keymap popup 9] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-parent--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-parent (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-parent 'popup)) (aref cl-x 10)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-parent compiler-macro #1#] 4] 4)
(defalias 'popup-parent #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-parent popup 10] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-depth--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-depth (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-depth 'popup)) (aref cl-x 11)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-depth compiler-macro #1#] 4] 4)
(defalias 'popup-depth #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-depth popup 11] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-face--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-face (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-face 'popup)) (aref cl-x 12)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-face compiler-macro #1#] 4] 4)
(defalias 'popup-face #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-face popup 12] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-mouse-face--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-mouse-face (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-mouse-face 'popup)) (aref cl-x 13)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-mouse-face compiler-macro #1#] 4] 4)
(defalias 'popup-mouse-face #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-mouse-face popup 13] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-selection-face--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-selection-face (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-selection-face 'popup)) (aref cl-x 14)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-selection-face compiler-macro #1#] 4] 4)
(defalias 'popup-selection-face #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-selection-face popup 14] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-summary-face--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-summary-face (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-summary-face 'popup)) (aref cl-x 15)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-summary-face compiler-macro #1#] 4] 4)
(defalias 'popup-summary-face #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-summary-face popup 15] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-margin-left--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-margin-left (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-margin-left 'popup)) (aref cl-x 16)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-margin-left compiler-macro #1#] 4] 4)
(defalias 'popup-margin-left #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-margin-left popup 16] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-margin-right--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-margin-right (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-margin-right 'popup)) (aref cl-x 17)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-margin-right compiler-macro #1#] 4] 4)
(defalias 'popup-margin-right #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-margin-right popup 17] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-margin-left-cancel--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-margin-left-cancel (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-margin-left-cancel 'popup)) (aref cl-x 18)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-margin-left-cancel compiler-macro #1#] 4] 4)
(defalias 'popup-margin-left-cancel #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-margin-left-cancel popup 18] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-scroll-bar--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-scroll-bar (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-scroll-bar 'popup)) (aref cl-x 19)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-scroll-bar compiler-macro #1#] 4] 4)
(defalias 'popup-scroll-bar #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-scroll-bar popup 19] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-symbol--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-symbol (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-symbol 'popup)) (aref cl-x 20)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-symbol compiler-macro #1#] 4] 4)
(defalias 'popup-symbol #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-symbol popup 20] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-cursor--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-cursor (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-cursor 'popup)) (aref cl-x 21)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-cursor compiler-macro #1#] 4] 4)
(defalias 'popup-cursor #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-cursor popup 21] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-offset--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-offset (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-offset 'popup)) (aref cl-x 22)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-offset compiler-macro #1#] 4] 4)
(defalias 'popup-offset #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-offset popup 22] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-scroll-top--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-scroll-top (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-scroll-top 'popup)) (aref cl-x 23)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-scroll-top compiler-macro #1#] 4] 4)
(defalias 'popup-scroll-top #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-scroll-top popup 23] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-current-height--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-current-height (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-current-height 'popup)) (aref cl-x 24)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-current-height compiler-macro #1#] 4] 4)
(defalias 'popup-current-height #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-current-height popup 24] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-list--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-list (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-list 'popup)) (aref cl-x 25)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-list compiler-macro #1#] 4] 4)
(defalias 'popup-list #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-list popup 25] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-newlines--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-newlines (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-newlines 'popup)) (aref cl-x 26)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-newlines compiler-macro #1#] 4] 4)
(defalias 'popup-newlines #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-newlines popup 26] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-pattern--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-pattern (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-pattern 'popup)) (aref cl-x 27)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-pattern compiler-macro #1#] 4] 4)
(defalias 'popup-pattern #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-pattern popup 27] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-original-list--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-original-list (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-original-list 'popup)) (aref cl-x 28)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-original-list compiler-macro #1#] 4] 4)
(defalias 'popup-original-list #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-original-list popup 28] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-invis-overlays--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-invis-overlays (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-invis-overlays 'popup)) (aref cl-x 29)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-invis-overlays compiler-macro #1#] 4] 4)
(defalias 'popup-invis-overlays #[(cl-x) "\302H	>\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-invis-overlays popup 29] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #1=#:popup-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-p (and (vectorp cl-x) (>= (length cl-x) 30) (memq (aref cl-x 0) cl-struct-popup-tags) t)) nil] 7]] 3 "\300\301\302\303#\207" [put popup-p compiler-macro #1#] 4] 4)
(defalias 'popup-p #[(cl-x) "\302!\205 G\303Y\205 \304H	>\205 \305\207" [cl-x cl-struct-popup-tags vectorp 30 0 t] 2])
(defalias 'copy-popup #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [byte-code "\300\301\302\"\207" [defalias #2=#:make-popup--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@,\306\315\"A@-\306\316\"A@.\306\317\"A@/\306\320\"A@0\306\321\"A@1\306\322\"A@2\306\323\"A@3\306\324\"A@4\306\325\"A@5\306\326\"A@6\306\327\"A@7\306\330\"A@8\306\331\"A@9\306\332\"A@:\306\333\"A@;\306\334\"A@<\306\335\"A@=\306\336\"A@>\306\337\"A@?\306\340\"A@@\306\341\"A@A\306\342\"A@B\306\343\"A@CDD\203D@\344>\203\375 DAA\211D\202\350 \345>A@\203\f\346\211D\202\350 \347\350D@\"\210\202\346 )\351\352\353\346E\346	\n\f,-./0123456789:;<=>?@ABC&\".\207" [#1# point row column width height plist-member :point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays (:point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays)" cl--defsubst-expand (point row column width height min-height direction overlays keymap parent depth face mouse-face selection-face summary-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list invis-overlays) (cl-block make-popup (vector 'cl-struct-popup point row column width height min-height direction overlays keymap parent depth face mouse-face selection-face summary-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list invis-overlays)) min-height direction overlays keymap parent depth face mouse-face selection-face summary-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list invis-overlays #:--cl-keys-- cl-whole] 36 "\n\n(fn CL-WHOLE &cl-quote &key POINT ROW COLUMN WIDTH HEIGHT MIN-HEIGHT DIRECTION OVERLAYS KEYMAP PARENT DEPTH FACE MOUSE-FACE SELECTION-FACE SUMMARY-FACE MARGIN-LEFT MARGIN-RIGHT MARGIN-LEFT-CANCEL SCROLL-BAR SYMBOL CURSOR OFFSET SCROLL-TOP CURRENT-HEIGHT LIST NEWLINES PATTERN ORIGINAL-LIST INVIS-OVERLAYS)"]] 3 "\300\301\302\303#\207" [put make-popup compiler-macro #2#] 4] 4)
#@290 

(fn &key POINT ROW COLUMN WIDTH HEIGHT MIN-HEIGHT DIRECTION OVERLAYS KEYMAP PARENT DEPTH FACE MOUSE-FACE SELECTION-FACE SUMMARY-FACE MARGIN-LEFT MARGIN-RIGHT MARGIN-LEFT-CANCEL SCROLL-BAR SYMBOL CURSOR OFFSET SCROLL-TOP CURRENT-HEIGHT LIST NEWLINES PATTERN ORIGINAL-LIST INVIS-OVERLAYS)
(defalias 'make-popup #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@+\306\315\"A@,\306\316\"A@-\306\317\"A@.\306\320\"A@/\306\321\"A@0\306\322\"A@1\306\323\"A@2\306\324\"A@3\306\325\"A@4\306\326\"A@5\306\327\"A@6\306\330\"A@7\306\331\"A@8\306\332\"A@9\306\333\"A@:\306\334\"A@;\306\335\"A@<\306\336\"A@=\306\337\"A@>\306\340\"A@?\306\341\"A@@\306\342\"A@A\306\343\"A@BCC\203C@\344>\203\375 CAA\211C\202\350 \345>A@\203\f\346\211C\202\350 \347\350C@\"\210\202\346 )\351\352	\n\f+,-./0123456789:;<=>?@AB&.\207" [#1# point row column width height plist-member :point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays (:point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays)" vector cl-struct-popup min-height direction overlays keymap parent depth face mouse-face selection-face summary-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list invis-overlays #2=#:--cl-keys--] 32 (#$ . 27120)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\210\302\325\315\313#\210\302\326\315\313#\210\302\327\315\313#\210\302\330\315\313#\210\302\331\315\313#\210\302\332\315\313#\210\302\333\315\313#\210\302\334\315\313#\210\302\335\315\313#\210\302\336\315\313#\210\302\337\315\313#\210\302\340\315\313#\210\302\341\315\313#\210\302\342\315\313#\210\302\343\315\313#\210\302\344\315\313#\210\302\345\315\313#\210\302\346\315\313#\210\302\347\315\313#\210\302\350\315\313#\210\302\351\315\313#\210\302\352\315\313#\210\302\353\315\313#\210\302\354\315\313#\210\302\355\315\313#\207" [cl-struct-popup-tags cl-struct-popup put popup cl-struct-slots ((cl-tag-slot) (point) (row) (column) (width) (height) (min-height) (direction) (overlays) (keymap) (parent) (depth) (face) (mouse-face) (selection-face) (summary-face) (margin-left) (margin-right) (margin-left-cancel) (scroll-bar) (symbol) (cursor) (offset) (scroll-top) (current-height) (list) (newlines) (pattern) (original-list) (invis-overlays)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-popup side-effect-free copy-popup popup-p error-free popup-invis-overlays popup-original-list popup-pattern popup-newlines popup-list popup-current-height popup-scroll-top popup-offset popup-cursor popup-symbol popup-scroll-bar popup-margin-left-cancel popup-margin-right popup-margin-left popup-summary-face popup-selection-face popup-mouse-face popup-face popup-depth popup-parent popup-keymap popup-overlays popup-direction popup-min-height popup-height popup-width popup-column popup-row popup-point] 4)
#@92 Same as `propertize' except that this avoids overriding
existed value with `nil' property.
(defalias 'popup-item-propertize #[(item &rest properties) "\306\211\306\211	:\2030 	\211\211A\242\f@\211\203% \307\nD\"	\211AA\262\211\202 \310\311\312!#-\207" [properties #1=#:--cl-var-- k v #2=#:--cl-var-- props nil append apply propertize popup-x-to-string item] 5 (#$ . 31203)])
#@81 Same as `get-text-property' except that this returns nil if
ITEM is not string.
(defalias 'popup-item-property #[(item property) ";\205\n \302\303	#\207" [item property get-text-property 0] 4 (#$ . 31603)])
#@157 Utility function to make popup item. See also
`popup-item-propertize'.

(fn NAME &key VALUE FACE MOUSE-FACE SELECTION-FACE SUBLIST DOCUMENT SYMBOL SUMMARY)
(defalias 'popup-make-item #[(name &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\203n @\317>\203U AA\211\202@ \320>A@\203d \321\211\202@ \322\323@\"\210\202> )\324\301	\325\n\326\304\f\327\330\331\305&.\207" [#1# value face mouse-face selection-face sublist plist-member :value :face :mouse-face :selection-face :sublist :document :symbol :summary (:value :face :mouse-face :selection-face :sublist :document :symbol :summary :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:value :face :mouse-face :selection-face :sublist :document :symbol :summary)" popup-item-propertize popup-face popup-mouse-face document symbol summary #2=#:--cl-keys-- name] 19 (#$ . 31819)])
(defalias 'popup-item-value #[(item) "\301\302\"\207" [item popup-item-property value] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-value byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-value-or-self #[(item) "\301\302\")\206 \207" [item popup-item-property value] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-value-or-self byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-face #[(item) "\301\302\"\207" [item popup-item-property popup-face] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-face byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-mouse-face #[(item) "\301\302\"\207" [item popup-item-property popup-mouse-face] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-mouse-face byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-selection-face #[(item) "\301\302\"\207" [item popup-item-property selection-face] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-selection-face byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-document #[(item) "\301\302\"\207" [item popup-item-property document] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-document byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-summary #[(item) "\301\302\"\207" [item popup-item-property summary] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-summary byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-symbol #[(item) "\301\302\"\207" [item popup-item-property symbol] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-symbol byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-sublist #[(item) "\301\302\"\207" [item popup-item-property sublist] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-sublist byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-documentation #[(item) "\302\303\")\304	!\203 	\211\302\305\")\206 )!	)\207" [item doc popup-item-property document functionp value] 5])
(defalias 'popup-item-show-help-1 #[(item) "\302!\211\205 r\303\304!q\210\305 \210	c\210eb\210\306p!\210)\307)\207" [item doc popup-item-documentation get-buffer-create " *Popup Help*" erase-buffer display-buffer t] 3])
(defalias 'popup-item-show-help-with-event-loop #[(item) "\302 \303\216\304	!\205 \305\306\215*\207" [#1=#:wconfig item current-window-configuration ((set-window-configuration #1#)) popup-item-show-help-1 --cl-block-nil-- (byte-code "\303\304 \210\305\303!\306!\307	\310\"\203 \310 \210\2022 \307	\311\"\203( \311\303!\210\2022 \312\n\"\313\314\303\"\210)\202 " [key #2=#:--cl-var-- unread-command-events nil clear-this-command-keys read-key-sequence-vector key-binding eql scroll-other-window scroll-other-window-down append throw --cl-block-nil--] 3)] 2])
#@247 Display the documentation of ITEM with `display-buffer'. If
PERSIST is nil, the documentation buffer will be closed
automatically, meaning interal event loop ensures the buffer to
be closed. Otherwise, the buffer will be just displayed as
usual.
(defalias 'popup-item-show-help #[(item &optional persist) "\205 	\204\f \302!\207\303!\207" [item persist popup-item-show-help-with-event-loop popup-item-show-help-1] 2 (#$ . 35623)])
(defalias 'popup-set-list #[(popup list) "\305	\"\210\306H\n>\204 \307\310\311\300#\210\211\312\313I\210)\306H\n>\204) \307\310\314\300#\210\211\315	I)\207" [popup list cl-struct-popup-tags #1=#:v #2=#:v popup-set-filtered-list 0 error "%s accessing a non-%s" popup-pattern 27 nil popup-original-list 28] 5])
(defalias 'popup-set-filtered-list #[(popup list) "\306H	>\204 \307\310\311\300#\210\312H\306V\203 \306\2020 \306H	>\204( \307\310\313\300#\210\314H\nGZ\306]\306H	>\204? \307\310\315\300#\210\211\316\nI\210)\306H	>\204U \307\310\317\300#\210\211\320I*\207" [popup cl-struct-popup-tags list offset #1=#:v #2=#:v 0 error "%s accessing a non-%s" popup-direction 7 popup-height 5 popup-list 25 popup-offset 22] 5])
(defalias 'popup-selected-item #[(popup) "\302H	>\204 \303\304\305\300#\210\306H\302H	>\204 \303\304\307\300#\210\310H8\207" [popup cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-cursor 21 popup-list 25] 5])
(defalias 'popup-selected-line #[(popup) "\302H	>\204 \303\304\305\300#\210\306H\302H	>\204 \303\304\307\300#\210\310HZ\207" [popup cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-cursor 21 popup-scroll-top 23] 5])
(defalias 'popup-line-overlay #[(popup line) "\303H	>\204 \304\305\306\300#\210\307H\nH\207" [popup cl-struct-popup-tags line 0 error "%s accessing a non-%s" popup-overlays 8] 4])
(defalias 'popup-selected-line-overlay #[(popup) "\301\302!\"\207" [popup popup-line-overlay popup-selected-line] 4])
(defalias 'popup-hide-line #[(popup line) "\303	\"\304\n\305\306#\210\304\n\307\306#)\207" [popup line overlay popup-line-overlay overlay-put display nil after-string] 4])
(defalias 'popup-line-hidden-p #[(popup line) "\303	\"\304\n\305\"\306=\205 \304\n\307\"\306=)\207" [popup line overlay popup-line-overlay overlay-get display nil after-string] 3])
#@121 

(fn POPUP LINE &key ITEM FACE MOUSE-FACE MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR-CHAR SYMBOL SUMMARY SUMMARY-FACE KEYMAP)
(defalias 'popup-set-line-item #[(popup line &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@&\306\315\"A@'\306\316\"A@(\306\317\"A@)\306\320\"A@**\203~ *@\321>\203e *AA\211*\202P \322>A@\203t \323\211*\202P \324\325*@\"\210\202N )\326+,\"-\327+\330	!\312\f\313\315'\316(\317)&\f.\331/\332-\333\"\332-\334\"\3230\335\331.G\336	.%\210\335\331.G\337.%\210\340/\302.#\203\334 \341/\302.#//\203\341/\302.#\2110\203\335/0\302\n.%\210\3410\302.#\211/\204\341 /\203\335/.G\302\n.%\210\203&\335\331.G\303.%\210\332-\342\"\2032\343\2023\3441\345-1.&R#.\207" [#1# item face mouse-face margin-left margin-right plist-member :item :face :mouse-face :margin-left :margin-right :scroll-bar-char :symbol :summary :summary-face :keymap (:item :face :mouse-face :margin-left :margin-right :scroll-bar-char :symbol :summary :summary-face :keymap :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:item :face :mouse-face :margin-left :margin-right :scroll-bar-char :symbol :summary :summary-face :keymap)" popup-line-overlay popup-create-line-string popup-x-to-string 0 overlay-get prefix postfix put-text-property popup-item keymap get-text-property next-single-property-change dangle after-string display overlay-put scroll-bar-char symbol summary summary-face #2=#:--cl-keys-- popup line overlay content start end prop] 14 (#$ . 37926)])
#@79 

(fn POPUP STRING &key MARGIN-LEFT MARGIN-RIGHT SYMBOL SUMMARY SUMMARY-FACE)
(defalias 'popup-create-line-string #[(popup string &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\203V @\314>\203= AA\211\202( \315>A@\203L \316\211\202( \317\320@\"\210\202& )\321H >\204g \317\322\323\324#\210\325H\326\f!!\326\"!^!\321V\203\211 !\327\\\202\212 \321Z]#\330\"#\"@\"\326\"!\331!#V\203\261 \332\202\262 \321]$\330\f\331$#\321]\"@%\203\324 \333\321%G\334%%\210	\"\335$\336\"%\n\260.\f\207" [#1# margin-left margin-right symbol summary summary-face plist-member :margin-left :margin-right :symbol :summary :summary-face (:margin-left :margin-right :symbol :summary :summary-face :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:margin-left :margin-right :symbol :summary :summary-face)" 0 "%s accessing a non-%s" popup-width popup 4 string-width 2 popup-substring-by-width - 1 put-text-property face make-string 32 #2=#:--cl-keys-- cl-struct-popup-tags summary-width string content-width spacing truncated-summary] 7 (#$ . 39549)])
#@35 Return non-nil if POPUP is alive.
(defalias 'popup-live-p #[(popup) "\205 \302H	>\204 \303\304\305\300#\210\306H\205 \307\207" [popup cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-overlays 8 t] 4 (#$ . 40722)])
(defalias 'popup-child-point #[(popup &optional offset) "\302\303	\206\n \304!\"!\207" [popup offset overlay-end popup-line-overlay popup-selected-line] 5])
#@143 Return a proper direction when displaying a popup on this
window. HEIGHT is the a height of the popup, and ROW is a line
number at the point.
(defalias 'popup-calculate-direction #[(height row) "\306\307\310 \203\f \306\202 \311	\203 \306\202 \311#]\312\313 `\"Z\fV\f\nX\2035 \2045 \314\2026 \306+\207" [mode-line-format header-line-format remaining-rows row height enough-space-above 1 - window-height 0 count-lines window-start -1 enough-space-below] 5 (#$ . 41118)])
#@1279 Create a popup instance at POINT with WIDTH and HEIGHT.

MIN-HEIGHT is a minimal height of the popup. The default value is
0.

MAX-WIDTH is the maximum width of the popup. The default value is
nil (no limit). If a floating point, the value refers to the ratio of
the window. If an integer, limit is in characters.

If AROUND is non-nil, the popup will be displayed around the
point but not at the point.

FACE is a background face of the popup. The default value is POPUP-FACE.

SELECTION-FACE is a foreground (selection) face of the popup The
default value is POPUP-FACE.

If SCROLL-BAR is non-nil, the popup will have a scroll bar at the
right.

If MARGIN-LEFT is non-nil, the popup will have a margin at the
left.

If MARGIN-RIGHT is non-nil, the popup will have a margin at the
right.

SYMBOL is a single character which indicates a kind of the item.

PARENT is a parent popup instance. If PARENT is omitted, the
popup will be a root instance.

PARENT-OFFSET is a row offset from the parent popup.

KEYMAP is a keymap that will be put on the popup contents.

(fn POINT WIDTH HEIGHT &key MIN-HEIGHT MAX-WIDTH AROUND (FACE 'popup-face) MOUSE-FACE (SELECTION-FACE face) (SUMMARY-FACE 'popup-summary-face) SCROLL-BAR MARGIN-LEFT MARGIN-RIGHT SYMBOL PARENT PARENT-OFFSET KEYMAP)
(defalias 'popup-create #[(point width height &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"\206 \313A@\306\314\"A@\306\315\"\2061 \316\fDA@@\306\317\"\206= \320A@A\306\321\"A@B\306\322\"A@C\306\323\"A@D\306\324\"A@E\306\325\"A@F\306\326\"A@G\306\327\"A@HII\203\254 I@\330>\203\223 IAA\211I\202~ \331>A@\203\242 \316\211I\202~ \332\333I@\"\210\202| )C\204\265 \334CD\204\275 \334DJ\204\323 F\203\320 \335FG\"\202\321 `J\n\203\337 K\336\n!^K\212Jb\210\337\340 !\211LAML@N\341O\316\"P\342KB\203\343\202\334CDE\203\344\202\334%Q\316R\345 S\346 &\347 '\350 (NQ\\\211T(V\205>TQYUF?\205KNQYVF\203iF\334HW>\204b\332\351\352\353#\210F\354H\206o\355OM\"XF\203\216F\334HW>\204\206\332\351\356\353#\210F\357HT\202\217\334Y\334O\360Jd\"Z\203\242\343\202\243\334\\]Z\316\211[\\Z\334V\203\314\212\361\211\362 ]^_\363\216db\210\364Z\365\"c\210-U\203V\203\357N\366QCD#ZN\204\367N!\210\202`\204Q(NZZTaQaZQKaZK)NCZN\202NCZNF\2048N\334W\2038\334NQCZQ\361RO\334bcbcW\203\242\316\211\211\361\370\211defghi\203d\371NX\"\210\372\212\373 \210`)\212\374 \210`)\"j\316kj:\203\307j@k\375k\353\"\204\276\375k\376\"\204\276\375k\377\"\204\244\375k\201p \"\203\276k\375k\201p \"D[B[\201q k\201p \370#\210jA\211j\202y*\361\337\340 !@\211\\NW\203\365\364\\\334U\203\350'\\Z\202\351\334N\\Z\\\201r \"e`hQeG\\gl\204g\334V\203\316fg\201s \316f!Zg\316u\210\202 g\334W\2030\364g[\201r \"d\201t h`\"i\201q i\353\361#\210\201q i\201S S#\210\201q i\201f f#\210\201q i\201e e#\210\201q i\201d d#\210\201q i\201K K#\210PX\334V\203\214b\202\223\366Ob\343#iI\210.bT\211b\202A*\201u Y\201v _Zl\201w P\316\"\237m\316im:\203\341m@i\201q i\201x l#\210lTlmA\211m\202\276+\201y \201z JMNKO	XPHFY\f@ACDRBE\334\211\211\211\316Z\316\211[&\211noBon.\"\207" [#1# min-height max-width around face mouse-face plist-member :min-height :max-width :around :face (nil popup-face) :mouse-face :selection-face nil :summary-face (nil popup-summary-face) :scroll-bar :margin-left :margin-right :symbol :parent :parent-offset :keymap (:min-height :max-width :around :face :mouse-face :selection-face :summary-face :scroll-bar :margin-left :margin-right :symbol :parent :parent-offset :keymap :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:min-height :max-width :around :face :mouse-face :selection-face :summary-face :scroll-bar :margin-left :margin-right :symbol :parent :parent-offset :keymap)" 0 popup-child-point popup-calculate-max-width posn-col-row posn-at-point make-vector + 1 2 selected-window window-start window-hscroll window-width "%s accessing a non-%s" popup-direction popup 7 popup-calculate-direction popup-depth 11 count-lines t buffer-modified-p ((set-buffer-modified-p modified)) make-string 10 - move-to-column "" popup-vertical-motion overlays-in beginning-of-visual-line end-of-visual-line overlay-get popup-item invisible selection-face summary-face scroll-bar margin-left margin-right symbol parent parent-offset keymap #2=#:--cl-keys-- point width col-row row column height overlays popup-width margin-left-cancel window right overflow foldable cl-struct-popup-tags direction depth newlines invis-overlays current-column modified inhibit-read-only buffer-undo-list truncate-lines d i --dotimes-limit-- postfix prefix dangle w begin overlay #3=#:--cl-var-- ov p #4=#:--cl-var-- it popup-instances display overlay-put 32 char-width make-overlay 10000 1000 append priority vector cl-struct-popup] 32 (#$ . 41608)])
#@24 Delete POPUP instance.
(defalias 'popup-delete #[(popup) "\306!\203\215 \307!\210\310\311\312H	>\204 \313\314\315\300#\210\316H\"\210\312H	>\204- \313\314\315\300#\210\211\316\317I\210)\320\"\312H	>\204H \313\314\321\300#\210\322H\211\312V\203\214 \212\323\211\324 \325\216db\210\f\312W\203\212 `Sf\203\201 `Sf\326U\203\201 \327\330!\210T\211\202i .)\317\207" [popup cl-struct-popup-tags #1=#:v popup-instances newlines modified popup-live-p popup-hide mapc delete-overlay 0 error "%s accessing a non-%s" popup-overlays 8 nil delq popup-newlines 26 t buffer-modified-p ((set-buffer-modified-p modified)) 10 delete-char -1 inhibit-read-only buffer-undo-list i --dotimes-limit--] 7 (#$ . 46619)])
#@13 Draw POPUP.
(defalias 'popup-draw #[(popup) "\306H	>\204 \307\310\311\300#\210\312H\313\211\313\n:\2036 \n@\211\211A\242@\314\315\316#\210\nA\211\202 ,\306H	>\204E \307\310\317\300#\210\320H@\306H	>\204X \307\310\321\300#\210\322HA\306H	>\204k \307\310\323\300#\210\324H\306H	>\204~ \307\310\325\300#\210\326HB\306H	>\204\221 \307\310\327\300#\210\330H4\306H	>\204\244 \307\310\331\300#\210\332HC\306H	>\204\267 \307\310\333\300#\210\334H\211DGE@\211_E\335]\245\335]F\336E\335]\\@\245G\306H	>\204\346 \307\310\337\300#\210\340HH\341\306H	>\204\372 \307\310\342\300#\210\343H\203\306\202\306H	>\204\307\310\344\300#\210\345H\346\"I\341\306H	>\204(\307\310\347\300#\210\350H\346\"J\306H	>\204=\307\310\351\300#\210\352H9\306H	>\204P\307\310\353\300#\210\354HK\306H	>\204c\307\310\355\300#\210\356HL\306H	>\204v\307\310\357\300#\210\360HM\306H	>\204\211\307\310\361\300#\210\362HNMOLPLD\233Q\313\211RS\313\2117T\313\211UV\313\211W:O@W\203\305Q:\203\305Q@RFOF\245_SPKU\203\354RR\363R\364\")\206\3734\202\373RR\363R\323\")\206\3737PKU?\205CT\365\366\3677#UH\203TH\370=\204*G\335X\203*U\202UG\335V\203OKSG_Y\203OKSF\\G_W\203OX\202UY\202U\316V9\203o\366RR\363R\371\")\206k\366P\202p\316WRR\363R\372\")\206\200\316:\373O\374R\3757\376B\377I\201] J\201^ V\201_ W\201` :\201a T\201b N&\210OTOPTPQAQ\202\265\306H	>\204\325\307\310\201c \300#\210\211Z\201d OMZI\210)H\203\362\365\366\367#\202\363\3169\203\374\366\202\375\3169V\306H	>\204\307\310\201e \300#\210\201f H\306V\203lA\203SOAW\203S\373O\374\316\375\377I\201] J\201^ V\201_ 9\201` \316&\210OT\211O\202\"O@W\203\320\201g O\"\210OT\211O\202UA\203y@AZ\202{M[\306OM\\O\\W\203\317O[W\203\234\201g O\"\210O[Y\203\306\373O\374\316\375\377I\201] J\201^ V\201_ 9\201` \316&\210OT\211O\202\206+.\313\207" [popup cl-struct-popup-tags #1=#:--cl-var-- ov olddisplay #2=#:--cl-var-- 0 error "%s accessing a non-%s" popup-invis-overlays 29 nil overlay-put display "" popup-height 5 popup-min-height 6 popup-face 12 popup-mouse-face 13 popup-selection-face 14 popup-summary-face 15 popup-list 25 1 0.0 popup-scroll-bar 19 make-string popup-margin-left-cancel 18 popup-margin-left 16 32 popup-margin-right 17 popup-symbol 20 popup-cursor 21 popup-scroll-top 23 popup-offset 22 popup-keymap 9 popup-item-property selection-face propertize " " face :always symbol summary popup-set-line-item :item :face :mouse-face :margin-left height min-height mouse-face summary-face-0 list length thum-size page-size scroll-bar margin-left margin-right cursor scroll-top offset keymap o i #3=#:--cl-var-- item page-index summary-face empty-char scroll-bar-char sym popup-scroll-bar-foreground-char popup-scroll-bar-background-char #4=#:v h #5=#:--cl-var-- :margin-right :scroll-bar-char :symbol :summary :summary-face :keymap popup-current-height 24 popup-direction 7 popup-hide-line] 24 (#$ . 47352)])
#@13 Hide POPUP.
(defalias 'popup-hide #[(popup) "\306H	>\204 \307\310\311\300#\210\312H\313\211\313\n:\2036 \n@\211\211A\242@\314\315\f#\210\nA\211\202 ,\306H	>\204E \307\310\316\300#\210\317H\306W\205d \320\"\210T\211\202O *\207" [popup cl-struct-popup-tags #1=#:--cl-var-- ov olddisplay #2=#:--cl-var-- 0 error "%s accessing a non-%s" popup-invis-overlays 29 nil overlay-put display popup-height 5 popup-hide-line i --dotimes-limit--] 5 (#$ . 50447)])
#@36 Return non-nil if POPUP is hidden.
(defalias 'popup-hidden-p #[(popup) "\305\306	!\2033 	\307H\n>\204 \310\311\312\301#\210	\313H\307\fW\2032 \314	\"\204+ \315T\211\202 *)\207" [hidden popup cl-struct-popup-tags i --dotimes-limit-- t popup-live-p 0 error "%s accessing a non-%s" popup-height 5 popup-line-hidden-p nil] 5 (#$ . 50935)])
#@59 Jump to a position specified by CURSOR of POPUP and draw.
(defalias 'popup-jump #[(popup cursor) "\306H	>\204 \307\310\311\300#\210\312H\211X\2030 \n\306H	>\204( \307\310\313\300#\210\314H\\W\204F \306H	>\204> \307\310\311\300#\210\211\312I\210)\306H	>\204T \307\310\315\300#\210\211\316I\210)\317!)\207" [popup cl-struct-popup-tags scroll-top cursor #1=#:v #2=#:v 0 error "%s accessing a non-%s" popup-scroll-top 23 popup-height 5 popup-cursor 21 popup-draw] 7 (#$ . 51288)])
#@41 Select the item at I of POPUP and draw.
(defalias 'popup-select #[(popup i) "	\304H\n>\204 \305\306\307\301#\210	\310H\\\304X\205K 	\304H\n>\204) \305\306\311\301#\210	\312HW\205K 	\304H\n>\204> \305\306\313\301#\210	\211\314I\210)\315	!\210\316\207" [i popup cl-struct-popup-tags #1=#:v 0 error "%s accessing a non-%s" popup-offset 22 popup-height 5 popup-cursor 21 popup-draw t] 6 (#$ . 51788)])
#@41 Select the next item of POPUP and draw.
(defalias 'popup-next #[(popup) "\306H	>\204 \307\310\311\300#\210\312H\306H	>\204 \307\310\313\300#\210\314HT\306H	>\2041 \307\310\315\300#\210\316H\306H	>\204B \307\310\317\300#\210\320HG\f\nY\203W \306\211\202h \f\\U\203h T\nZ\306]^\306H	>\204v \307\310\313\300#\210\211\314\fI\210)\306H	>\204\215 \307\310\315\300#\210\211\316I\210)\321!,\207" [popup cl-struct-popup-tags length scroll-top cursor height 0 error "%s accessing a non-%s" popup-height 5 popup-cursor 21 popup-scroll-top 23 popup-list 25 popup-draw #1=#:v #2=#:v] 8 (#$ . 52199)])
#@45 Select the previous item of POPUP and draw.
(defalias 'popup-previous #[(popup) "\306H	>\204 \307\310\311\300#\210\312H\306H	>\204 \307\310\313\300#\210\314HS\306H	>\2041 \307\310\315\300#\210\316H\306H	>\204B \307\310\317\300#\210\320HG\f\306W\203\\ \nS\nZ\306]\202f \fSU\203f S\306H	>\204t \307\310\313\300#\210\211\314\fI\210)\306H	>\204\213 \307\310\315\300#\210\211\316I\210)\321!,\207" [popup cl-struct-popup-tags length scroll-top cursor height 0 error "%s accessing a non-%s" popup-height 5 popup-cursor 21 popup-scroll-top 23 popup-list 25 popup-draw #1=#:v #2=#:v] 8 (#$ . 52824)])
#@79 Select next item of POPUP per `popup-height' range.
Pages down through POPUP.
(defalias 'popup-page-next #[(popup) "\304H	>\204 \305\306\307\300#\210\310HS\304\nW\205& \311!\210\nT\211\202 *\207" [popup cl-struct-popup-tags counter --dotimes-limit-- 0 error "%s accessing a non-%s" popup-height 5 popup-next] 5 (#$ . 53452)])
#@81 Select previous item of POPUP per `popup-height' range.
Pages up through POPUP.
(defalias 'popup-page-previous #[(popup) "\304H	>\204 \305\306\307\300#\210\310HS\304\nW\205& \311!\210\nT\211\202 *\207" [popup cl-struct-popup-tags counter --dotimes-limit-- 0 error "%s accessing a non-%s" popup-height 5 popup-previous] 5 (#$ . 53793)])
#@34 Scroll down N of POPUP and draw.
(defalias 'popup-scroll-down #[(popup &optional n) "\306H	>\204 \307\310\311\300#\210\312H\n\206 \313\\\306H	>\204% \307\310\314\300#\210\315HG\306H	>\2047 \307\310\316\300#\210\317HZ^\306H	>\204K \307\310\320\300#\210\211\321I\210)\306H	>\204a \307\310\311\300#\210\211\312I\210)\322!)\207" [popup cl-struct-popup-tags n scroll-top #1=#:v #2=#:v 0 error "%s accessing a non-%s" popup-scroll-top 23 1 popup-list 25 popup-height 5 popup-cursor 21 popup-draw] 7 (#$ . 54144)])
#@32 Scroll up N of POPUP and draw.
(defalias 'popup-scroll-up #[(popup &optional n) "\306H	>\204 \307\310\311\300#\210\312H\n\206 \313Z\306]\306H	>\204( \307\310\314\300#\210\211\315I\210)\306H	>\204> \307\310\311\300#\210\211\312I\210)\316!)\207" [popup cl-struct-popup-tags n scroll-top #1=#:v #2=#:v 0 error "%s accessing a non-%s" popup-scroll-top 23 1 popup-cursor 21 popup-draw] 5 (#$ . 54676)])
(custom-declare-face 'popup-isearch-match '((t (:background "sky blue"))) "Popup isearch match face." :group 'popup)
(defvar popup-isearch-cursor-color "blue")
(defvar popup-isearch-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\311#\210)\207" [map make-sparse-keymap define-key "" popup-isearch-cancel "" popup-isearch-close [left] "" popup-isearch-delete ""] 4))
#@56 Function used for showing quick help by `popup-menu*'.
(defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help (#$ . 55524))
(defalias 'popup-isearch-char-p #[(char) "\250\205 \301X\205 \302X\207" [char 32 126] 2])
(byte-code "\300\301\302\303#\207" [put popup-isearch-char-p byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-isearch-filter-list #[(pattern list) "\306!\n\307\211:\203M @\211;\204 \310\311\f!\312\f#\313	\f\"\203F \314\224\314\225\315\314\fG\316\317\f%\210\320\316\321\f%\210\f*BA\211\202 \237,\207" [pattern regexp list #1=#:--cl-var-- item #2=#:--cl-var-- regexp-quote nil popup-item-propertize popup-x-to-string value string-match 0 alter-text-property face #[(prop) "\301=?\205 \207" [prop popup-isearch-match] 2] put-text-property popup-isearch-match end beg] 7])
(defalias 'popup-isearch-prompt #[(popup pattern) "\303\304\305H	>\204 \306\307\310\300#\210\311HG\305U\203! \312\n\313\314#\202\" \n\"\207" [popup cl-struct-popup-tags pattern format "Pattern: %s" 0 error "%s accessing a non-%s" popup-list 25 propertize face isearch-fail] 6])
(defalias 'popup-isearch-update #[(popup filter pattern &optional callback) "\306H	>\204 \307\310\311\300#\210\211\312\306I\210)\306H	>\204$ \307\310\313\300#\210\211\314\306I\210)\306H	>\204: \307\310\315\300#\210\211\316I\210)\306H	>\204S \307\310\317\300#\210\320H\"\321\"\210\203j !\210)\322!\207" [popup cl-struct-popup-tags #1=#:v #2=#:v #3=#:v pattern 0 error "%s accessing a non-%s" popup-cursor 21 popup-scroll-top 23 popup-pattern 27 popup-original-list 28 popup-set-filtered-list popup-draw filter list callback] 7])
#@769 Start isearch on POPUP. This function is synchronized, meaning
event loop waits for quiting of isearch.

FILTER is function with two argumenst to perform popup items filtering.

CURSOR-COLOR is a cursor color during isearch. The default value
is `popup-isearch-cursor-color'.

KEYMAP is a keymap which is used when processing events during
event loop. The default value is `popup-isearch-keymap'.

CALLBACK is a function taking one argument. `popup-isearch' calls
CALLBACK, if specified, after isearch finished or isearch
canceled. The arguments is whole filtered list of items.

HELP-DELAY is a delay of displaying helps.

(fn POPUP &key (FILTER 'popup-isearch-filter-list) (CURSOR-COLOR popup-isearch-cursor-color) (KEYMAP popup-isearch-keymap) CALLBACK HELP-DELAY)
(defalias 'popup-isearch #[(popup &rest #1=#:--cl-rest--) "\306\307\"\206 \310A@\306\311\"\206 \312\nDA@\306\313\"\206\" \312\fDA@\306\314\"A@\306\315\"A@ !!\203h !@\316>\203O !AA\211!\202: \317>A@\203^ \312\211!\202: \320\321!@\"\210\2028 )\322H\">\204y \320\323\324\325#\210\326H\322H\">\204\215 \320\323\327\325#\210\330H\206\225 \331\332\333 \303\"\312\211\211#$%&'(\334\216\335\336\215.\f\207" [#1# filter popup-isearch-cursor-color cursor-color popup-isearch-keymap keymap plist-member :filter (nil popup-isearch-filter-list) :cursor-color nil :keymap :callback :help-delay (:filter :cursor-color :keymap :callback :help-delay :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:filter :cursor-color :keymap :callback :help-delay)" 0 "%s accessing a non-%s" popup-original-list popup 28 popup-pattern 27 #2="" frame-parameter selected-frame ((byte-code "\203 \301!\210\301\207" [old-cursor-color set-cursor-color] 2)) --cl-block-nil-- (byte-code "\203 \306!\210\307	\n\"\310\f#\211\2040 	\311\312$\204 \313 \210\314!B\202 \315\f\";\203_ \316H\211 \250\205S \317 X\205S  \320X)\203_ \nP\202\317 \321=\203n \322\323\311\"\210\202\317 \324=\203\206 \325	!\326\"$\210\322\323\327\"\210\202\317 \330=\203\250 \325	!\326\"$\210\331\332!\"\322\323\311\"\210\202\317 \333=\203\300 \nG\316V\203\317 \n\316\nGSO\202\317 \331\332!\"\322\323\311\"\210\325	!\n\"$\210\202 " [cursor-color popup pattern prompt keymap help-delay set-cursor-color popup-isearch-prompt popup-menu-read-key-sequence nil :prompt clear-this-command-keys read-event lookup-key 0 32 126 popup-isearch-done throw --cl-block-nil-- popup-isearch-cancel popup-isearch-update #2# t popup-isearch-close append listify-key-sequence popup-isearch-delete key popup-menu-show-quick-help-function unread-command-events binding char filter callback] 6) callback help-delay #3=#:--cl-keys-- cl-struct-popup-tags binding key prompt old-cursor-color pattern list] 7 (#$ . 57214)])
(custom-declare-face 'popup-tip-face '((t (:background "khaki1" :foreground "black"))) "Face for popup tip." :group 'popup)
(defvar popup-tip-max-width 80)
#@652 Show a tooltip of STRING at POINT. This function is
synchronized unless NOWAIT specified. Almost arguments are same
as `popup-create' except for TRUNCATE, NOWAIT, and PROMPT.

If TRUNCATE is non-nil, the tooltip can be truncated.

If NOWAIT is non-nil, this function immediately returns the
tooltip instance without entering event loop.

If `NOSTRIP` is non-nil, `STRING` properties are not stripped.

PROMPT is a prompt string when reading events during event loop.

(fn STRING &key POINT (AROUND t) WIDTH (HEIGHT 15) MIN-HEIGHT MAX-WIDTH TRUNCATE MARGIN MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR PARENT PARENT-OFFSET NOWAIT NOSTRIP PROMPT &aux TIP LINES)
(defalias 'popup-tip #[(string &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206 \311A@\306\312\"A@\306\313\"\206! \314A@\306\315\"A@\306\316\"A@1\306\317\"A@2\306\320\"A@3\306\321\"A@4\306\322\"A@5\306\323\"A@6\306\324\"A@7\306\325\"A@8\306\326\"A@9\306\327\"A@:\306\330\"A@;\331\211<=>>\203\274 >@\332>\203\243 >AA\211>\202\216 \333>A@\203\262 \331\211>\202\216 \334\335>@\"\210\202\214 )\336?!\203\316 r?q\210\337 )?:\204\331 \340?!?3\341=\203\343 \34234\204\354 345\204\365 35\343?@#\211A@AA=)\344	\f\315\3161\310\n\3214\3225\3236\345\346\3247\3258&<\347\216<\350HB>\2049\334\351\352\353#\210<\354H\350V\205\241<\350HB>\204S\334\351\352\353#\210<\354H=\204~2\204~<\350HB>\204p\334\351\352\353#\210<\354H\343?\211#A=\355<=\"\210\356<!\2109\203\224<\202\241\357 \210\360;!CBC\341.\207" [#1# point around width height min-height plist-member :point :around (nil t) :width :height (nil 15) :min-height :max-width :truncate :margin :margin-left :margin-right :scroll-bar :parent :parent-offset :nowait :nostrip :prompt nil (:point :around :width :height :min-height :max-width :truncate :margin :margin-left :margin-right :scroll-bar :parent :parent-offset :nowait :nostrip :prompt :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:point :around :width :height :min-height :max-width :truncate :margin :margin-left :margin-right :scroll-bar :parent :parent-offset :nowait :nostrip :prompt)" bufferp buffer-string substring-no-properties t 1 popup-fill-string popup-create :face popup-tip-face ((byte-code "\204 \302	!\210\302\207" [nowait tip popup-delete] 2)) 0 "%s accessing a non-%s" popup-width popup 4 popup-set-list popup-draw clear-this-command-keys read-event max-width truncate margin margin-left margin-right scroll-bar parent parent-offset nowait nostrip prompt tip lines #2=#:--cl-keys-- string popup-tip-max-width it cl-struct-popup-tags unread-command-events] 23 (#$ . 60204)])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\303\304\305%\210\300\310\311\312\304\305%\210\300\313\314\315\304\305%\207" [custom-declare-face popup-menu-face ((t (:inherit popup-face))) "Face for popup menu." :group popup popup-menu-mouse-face ((t (:background "blue" :foreground "white"))) popup-menu-selection-face ((t (:background "steelblue" :foreground "white"))) "Face for popup menu selection." popup-menu-summary-face ((t (:inherit popup-summary-face))) "Face for popup summary."] 6)
#@68 Function used for showing tooltip by `popup-menu-show-quick-help'.
(defvar popup-menu-show-tip-function 'popup-tip (#$ . 63391))
(defalias 'popup-menu-show-help #[(menu &optional persist item) "\303\206 \304	!\n\"\207" [item menu persist popup-item-show-help popup-selected-item] 3])
(defalias 'popup-menu-documentation #[(menu &optional item) "\302\206 \303	!!\207" [item menu popup-item-documentation popup-selected-item] 3])
(defalias 'popup-menu-show-quick-help #[(menu &optional item &rest args) "\306\307\"\306\310\"\206 \n\311H>\204 \312\313\314\315#\210\n\316H\211\n\311H>\204- \312\313\317\315#\210\n\320H^\321\n\311H>\204C \312\313\322\315#\210\n\323H\324\n\"\211;\205\201 \325\n!\203e \326\321\211\202g \321\321 \327!\307	\310\f\330\331\332\n\333&).\207" [args point menu cl-struct-popup-tags height min-height plist-get :point :height 0 error "%s accessing a non-%s" popup-height popup 5 popup-current-height 24 nil popup-offset 22 popup-menu-documentation popup-hidden-p t apply :min-height :around :parent :parent-offset around parent-offset item doc popup-use-optimized-column-computation popup-menu-show-tip-function] 17])
(defalias 'popup-menu-item-of-mouse-event #[(event) ":\205$ @\303>\205$ \211A@\262\211\304\234\211:\205# \305\nA\306\n@#*\207" [event position object (mouse-1 mouse-2 mouse-3 mouse-4 mouse-5) 4 get-text-property popup-item] 5])
(defalias 'popup-menu-read-key-sequence #[(keymap &optional prompt timeout) "\300\301\215\207" [timeout (byte-code "\205	 \306\307\310#\311 \312 \312 \313\314\211\n$\210\315\n\316\317\320\"#\210\315\n\321\317\322\"#\210\323	\"\210\324 \203@ \315	\325\317\324 \326\"#\210\327\216\330\n!\210\331 \210\307 !\332\216!\203a \333  \334\335!\"\210\336\307!.\207" [timeout overriding-terminal-local-map temp-global-map old-global-map timer keymap run-with-timer nil #[nil "\300\301 G!\205\f \302\303\304\"\207" [zerop this-command-keys throw timeout nil] 3] current-global-map make-sparse-keymap substitute-key-definition keyboard-quit define-key [menu-bar] lookup-key [menu-bar] [tool-bar] [tool-bar] set-keymap-parent current-local-map [menu-bar] [menu-bar] ((byte-code "\302!\210	\203\f \303	!\210\302\207" [old-global-map timer use-global-map cancel-timer] 2)) use-global-map clear-this-command-keys ((byte-code "\203 	\203 \302\303	\"\210\202 \302\304!\210\304\207" [#1=#:with-temp-message #2=#:current-message message #3="%s" nil] 3)) current-message message #3# read-key-sequence prompt #2# #1#] 6)] 2])
(defalias 'popup-menu-fallback #[(event default) "\300\207" [nil] 1])
#@145 

(fn MENU KEYMAP FALLBACK &key PROMPT HELP-DELAY ISEARCH ISEARCH-FILTER ISEARCH-CURSOR-COLOR ISEARCH-KEYMAP ISEARCH-CALLBACK &aux KEY BINDING)
(defalias 'popup-menu-event-loop #[(menu keymap fallback &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\316\211\203l @\317>\203S AA\211\202> \320>A@\203b \316\211\202> \321\322@\"\210\202< )\323\324\215.	\207" [#1# prompt help-delay isearch isearch-filter isearch-cursor-color plist-member :prompt :help-delay :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback nil (:prompt :help-delay :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:prompt :help-delay :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback)" --cl-block-nil-- (byte-code "\306!\205\357	\203 \307\310\n\311\312\f\313\314@&\203 \315 \210\316AB@#\211C\2053 \317AC\"DC\203B \320CG!\203\\ E\321\322B$\204  \323 \210\324B!FBF\202  \317\325 C\"\315=\203r \315 \210\326\327\321\"\210\202  D\330=\203\226 \331HG>\204\210 \332\333\334\335#\210\336H\203  \326\327\321\"\210\202  D\337>\203k\340C\331\234!\206\251 \341!H\342H\331HG>\204\275 \332\333\343\335#\210\344H\"IHH\345H\346\")&I\204\331 \326\327\321\"\210&\203I\321J\347&\350\321\351\331HG>\204\366 \332\333\352\335#\210\353H\354\331HG>\204	\332\333\355\335#\210\356H\357\331HG>\204\332\333\360\335#\210\361H\362\363I\314@\364	\365\n\366\367\f\370&)\211K\203EK\203E\326\327K\"\210)\202gD\371=\203g\326\327H\211HH\345H\372\")\206dH)\"\210+\202  D\373=\203y\373!\210\202  D\374=\203\207\374!\210\202  D\375=\203\225\375!\210\202  D\376=\203\243\376!\210\202  D\377=\203\263\201M !\210\202  D\307=\203\315\307\310\302\311\312\f\313\314@&\210\202  \201N D!\203\340\201O D!\210\202  LC\201P C!\"\210\202  \207" [menu isearch isearch-filter isearch-cursor-color isearch-keymap isearch-callback popup-live-p popup-isearch :filter :cursor-color :keymap :callback :help-delay keyboard-quit popup-menu-read-key-sequence lookup-key zerop nil :prompt clear-this-command-keys read-event current-global-map throw --cl-block-nil-- popup-close 0 error "%s accessing a non-%s" popup-parent popup 10 (popup-select popup-open) popup-menu-item-of-mouse-event popup-selected-item cl-position popup-list 25 popup-item-property sublist popup-cascade-menu :around :margin-left popup-margin-left 16 :margin-right popup-margin-right 17 :scroll-bar popup-scroll-bar 19 :parent :parent-offset :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback popup-select value popup-next popup-previous popup-page-next popup-page-previous popup-help help-delay keymap prompt key binding popup-menu-show-quick-help-function unread-command-events cl-struct-popup-tags item index popup-use-optimized-column-computation it fallback popup-menu-show-help commandp call-interactively key-binding] 27) isearch-keymap isearch-callback key binding #2=#:--cl-keys--] 4 (#$ . 66007)])
#@54 Return the preferred width to show LIST beautifully.
(defalias 'popup-preferred-width #[(list) "\306	\307\211\307\211\n:\203X \n@\211\310\304\")\311\312!!\203/ ]\2021 )\f;\203Q \311\f!\313\\\203L ]\202N )\nA\211\202 \206] \314\206c \314\\\315\316\245!\317_.\207" [tab-width list #1=#:--cl-var-- item summary width 4 nil popup-item-property string-width popup-x-to-string 2 0 ceiling 10.0 10 summary-width #2=#:--cl-var-- #3=#:--cl-var-- total] 4 (#$ . 69204)])
(defvar popup-menu-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\311#\210\302\313\314#\210\302\315\314#\210\302\316\317#\210\302\320\317#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\326#\210\302\330\331#\210\302\332\304#\210\302\333\317#\210\302\334\314#\210)\207" [map make-sparse-keymap define-key "" popup-select "" popup-open [right] "" popup-close [left] "" popup-next [down] "" popup-previous [up] [next] popup-page-next [prior] popup-page-previous [f1] popup-help "" "" popup-isearch [mouse-1] [mouse-4] [mouse-5]] 4))
#@1951 Show a popup menu of LIST at POINT. This function returns a
value of the selected item. Almost arguments are same as
`popup-create' except for KEYMAP, FALLBACK, HELP-DELAY, PROMPT,
ISEARCH, ISEARCH-FILTER, ISEARCH-CURSOR-COLOR, ISEARCH-KEYMAP, and
ISEARCH-CALLBACK.

If KEYMAP is a keymap which is used when processing events during
event loop.

If FALLBACK is a function taking two arguments; a key and a
command. FALLBACK is called when no special operation is found on
the key. The default value is `popup-menu-fallback', which does
nothing.

HELP-DELAY is a delay of displaying helps.

If NOWAIT is non-nil, this function immediately returns the menu
instance without entering event loop.

PROMPT is a prompt string when reading events during event loop.

If ISEARCH is non-nil, do isearch as soon as displaying the popup
menu.

ISEARCH-FILTER is a filtering function taking two arguments:
search pattern and list of items. Returns a list of matching items.

ISEARCH-CURSOR-COLOR is a cursor color during isearch. The
default value is `popup-isearch-cursor-color'.

ISEARCH-KEYMAP is a keymap which is used when processing events
during event loop. The default value is `popup-isearch-keymap'.

ISEARCH-CALLBACK is a function taking one argument.  `popup-menu'
calls ISEARCH-CALLBACK, if specified, after isearch finished or
isearch canceled. The arguments is whole filtered list of items.

If `INITIAL-INDEX' is non-nil, this is an initial index value for
`popup-select'. Only positive integer is valid.

(fn LIST &key POINT (AROUND t) (WIDTH (popup-preferred-width list)) (HEIGHT 15) MAX-WIDTH MARGIN MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR SYMBOL PARENT PARENT-OFFSET CURSOR (KEYMAP popup-menu-keymap) (FALLBACK 'popup-menu-fallback) HELP-DELAY NOWAIT PROMPT ISEARCH (ISEARCH-FILTER 'popup-isearch-filter-list) (ISEARCH-CURSOR-COLOR popup-isearch-cursor-color) (ISEARCH-KEYMAP popup-isearch-keymap) ISEARCH-CALLBACK INITIAL-INDEX &aux MENU EVENT)
(defalias 'popup-menu* #[(list &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206 \311A@\306\312\"\206 \313\314!DA@\306\315\"\206) \316A@\306\317\"A@;\306\320\"A@<\306\321\"A@=\306\322\"A@>\306\323\"A@?\306\324\"A@@\306\325\"A@A\306\326\"A@B\306\327\"A@C\306\330\"\206 \313DDA@E\306\331\"\206\213 \332A@F\306\333\"A@G\306\334\"A@H\306\335\"A@I\306\336\"A@J\306\337\"\206\267 \340A@K\306\341\"\206\306 \313LDA@M\306\342\"\206\325 \313NDA@O\306\343\"A@P\306\344\"A@Q\313\211RSTT\203\"T@\345>\203	TAA\211T\202\364 \346>A@\203\313\211T\202\364 \347\350T@\"\210\202\362 )<\351=\203-\352<=\2046<=>\204?<>?\203V>\250\203V>\353V\203V>S>\354	\f\317;\310\n\355\356\357\360\361\362\363\364\321=\322>\323?\324@\325A\326B&R\365\216\366R\"\210C\203\224\367RC\"\210\202\231\370R!\210Q\203\300GSQ^\353UVUVW\203\277\371R!\210UT\211U\202\253*H\203\312R\202\350\372REF\335I\333G\336J\337K\341M\342O\343P&.\207" [#1# point around list width height plist-member :point :around (nil t) :width nil popup-preferred-width :height (nil 15) :max-width :margin :margin-left :margin-right :scroll-bar :symbol :parent :parent-offset :cursor :keymap :fallback (nil popup-menu-fallback) :help-delay :nowait :prompt :isearch :isearch-filter (nil popup-isearch-filter-list) :isearch-cursor-color :isearch-keymap :isearch-callback :initial-index (:point :around :width :height :max-width :margin :margin-left :margin-right :scroll-bar :symbol :parent :parent-offset :cursor :keymap :fallback :help-delay :nowait :prompt :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback :initial-index :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:point :around :width :height :max-width :margin :margin-left :margin-right :scroll-bar :symbol :parent :parent-offset :cursor :keymap :fallback :help-delay :nowait :prompt :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback :initial-index)" t 1 0 popup-create :face popup-menu-face :mouse-face popup-menu-mouse-face :selection-face popup-menu-selection-face :summary-face popup-menu-summary-face ((byte-code "\204 \302	!\210\302\207" [nowait menu popup-delete] 2)) popup-set-list popup-jump popup-draw popup-next popup-menu-event-loop max-width margin margin-left margin-right scroll-bar symbol parent parent-offset cursor popup-menu-keymap keymap fallback help-delay nowait prompt isearch isearch-filter popup-isearch-cursor-color isearch-cursor-color popup-isearch-keymap isearch-keymap isearch-callback initial-index menu event #2=#:--cl-keys-- _i --dotimes-limit--] 29 (#$ . 70342)])
#@197 Same as `popup-menu' except that an element of LIST can be
also a sub-menu if the element is a cons cell formed (ITEM
. SUBLIST) where ITEM is an usual item and SUBLIST is a list of
the sub menu.
(defalias 'popup-cascade-menu #[(list &rest args) "\302\303\304\305\"\306\307	%\207" [list args apply popup-menu* mapcar #[(item) ":\203 \301@\302A\303\304%\207\207" [item popup-make-item :sublist :symbol ">"] 6] :symbol t] 6 (#$ . 75013)])
(provide 'popup)