mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (require 'cl-lib)
16 (defconst popup-version "0.5.3")
17 #@103 Determines whether the width desired is
18 character or window proportion based, And returns the result.
19 (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 (#$ . 460)])
20 #@89 Use the optimized column computation routine.
21 If there is a problem, please set it nil.
22 (defvar popup-use-optimized-column-computation t (#$ . 753))
23 #@15 Anaphoric if.
24 (defalias 'popup-aif '(macro . #[(test then &rest else) "\303\304DC\305\304    \nBBBE\207" [test then else let it if] 6 (#$ . 908)]))
25 (byte-code "\300\301\302\303#\300\207" [function-put popup-aif lisp-indent-function 2] 4)
26 #@17 Anaphoric when.
27 (defalias 'popup-awhen '(macro . #[(test &rest body) "\302\303DC\304\303    BBE\207" [test body let it when] 5 (#$ . 1150)]))
28 (byte-code "\300\301\302\303#\300\207" [function-put popup-awhen lisp-indent-function 1] 4)
29 #@96 Convert any object to string effeciently.
30 This is faster than `prin1-to-string' in many cases.
31 (defalias 'popup-x-to-string #[(x) ";\203\2079\203\301!\207\250\203\302!\207\303!\203#\302!\207\304\305\"\207" [x symbol-name number-to-string floatp format "%s"] 3 (#$ . 1388)])
32 #@79 Return a cons cell of substring and remaining string by
33 splitting with WIDTH.
34 (defalias 'popup-substring-by-width #[(string width) "\306\307\310#\211G\311\211\312\313\"\313\f:\2033\f@\n\314 !\\\211 X\2033 T\fA\211\202     W\203E\311 O \313OB\202GC-\207" [string len w l #1=#:--cl-var-- c replace-regexp-in-string "    " "    " 0 append nil char-width width] 5 (#$ . 1684)])
35 #@727 Split STRING into fixed width strings and return a cons cell
36 like (WIDTH . ROWS). Here, the car WIDTH indicates the actual
37 maxim width of ROWS.
38
39 The argument WIDTH specifies the width of filling each
40 paragraph. WIDTH nil means don't perform any justification and
41 word wrap. Note that this function doesn't add any padding
42 characters at the end of each row.
43
44 MAX-WIDTH, if WIDTH is nil, specifies the maximum number of
45 columns.
46
47 The optional fourth argument JUSTIFY specifies which kind of
48 justification to do: `full', `left', `right', `center', or
49 `none' (equivalent to nil).  A value of t means handle each
50 paragraph as specified by its text properties.
51
52 SQUEEZE nil means leave whitespaces other than line breaks
53 untouched.
54 (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\211c\210\317ed\"\210\203C\320ed?$\210eb\210\306`\316\210`{    \203|\321    \"\322\f!]\f B\fGGU\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*" #[nil "\301!\205    \302!\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 (#$ . 2081)])
55 (defalias 'popup-save-buffer-state '(macro . #[(&rest body) "\301\302\303\304\305B\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]))
56 (byte-code "\300\301\302\303#\300\207" [function-put popup-save-buffer-state lisp-indent-function 0] 4)
57 #@42 A portable version of `vertical-motion'.
58 (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 (#$ . 3932)])
59 #@65 Return non-nil if the cursor is at the last line of the
60 buffer.
61 (defalias 'popup-last-line-of-buffer-p #[nil "\212\300\210\300y\301U)?\207" [nil 0] 2 (#$ . 4175)])
62 (defalias 'popup-lookup-key-by-event #[#'event "\303    !!\206'    9\205'    \304N\211\205&\303\305\n@\306N\206 \307\nA@\"!!)\207" [function event it vector event-symbol-element-mask logior ascii-character 0] 6])
63 (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 (:inherit default :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)
64 #@18 Popup instances.
65 (defvar popup-instances nil (#$ . 5222))
66 #@38 Foreground character for scroll-bar.
67 (defvar popup-scroll-bar-foreground-char (propertize " " 'face 'popup-scroll-bar-foreground-face) (#$ . 5286))
68 #@38 Background character for scroll-bar.
69 (defvar popup-scroll-bar-background-char (propertize " " 'face 'popup-scroll-bar-background-face) (#$ . 5440))
70 #@40 compiler-macro for inlining `popup-p'.
71 (defalias '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 (memq (type-of cl-x) cl-struct-popup-tags) t)) nil] 7 (#$ . 5594)])
72 (put 'popup-p 'compiler-macro 'popup-p--cmacro)
73 (defalias 'popup-p #[(cl-x) "\302!    >\205    \303\207" [cl-x cl-struct-popup-tags type-of t] 2])
74 (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put popup-p side-effect-free error-free put popup cl-deftype-satisfies] 5)
75 #@44 compiler-macro for inlining `popup-point'.
76 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 1)) nil] 7 (#$ . 6127)])
77 (put 'popup-point 'compiler-macro 'popup-point--cmacro)
78 #@45 Access slot "point" of `popup' struct CL-X.
79 (defalias 'popup-point #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 1] 4 (#$ . 6480)])
80 (byte-code "\300\301\302\303#\300\207" [function-put popup-point side-effect-free t] 4)
81 #@42 compiler-macro for inlining `popup-row'.
82 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 2)) nil] 7 (#$ . 6784)])
83 (put 'popup-row 'compiler-macro 'popup-row--cmacro)
84 #@43 Access slot "row" of `popup' struct CL-X.
85 (defalias 'popup-row #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 2] 4 (#$ . 7127)])
86 (byte-code "\300\301\302\303#\300\207" [function-put popup-row side-effect-free t] 4)
87 #@45 compiler-macro for inlining `popup-column'.
88 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 3)) nil] 7 (#$ . 7425)])
89 (put 'popup-column 'compiler-macro 'popup-column--cmacro)
90 #@46 Access slot "column" of `popup' struct CL-X.
91 (defalias 'popup-column #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 3] 4 (#$ . 7783)])
92 (byte-code "\300\301\302\303#\300\207" [function-put popup-column side-effect-free t] 4)
93 #@44 compiler-macro for inlining `popup-width'.
94 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 4)) nil] 7 (#$ . 8090)])
95 (put 'popup-width 'compiler-macro 'popup-width--cmacro)
96 #@45 Access slot "width" of `popup' struct CL-X.
97 (defalias 'popup-width #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 4] 4 (#$ . 8443)])
98 (byte-code "\300\301\302\303#\300\207" [function-put popup-width side-effect-free t] 4)
99 #@45 compiler-macro for inlining `popup-height'.
100 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 5)) nil] 7 (#$ . 8747)])
101 (put 'popup-height 'compiler-macro 'popup-height--cmacro)
102 #@46 Access slot "height" of `popup' struct CL-X.
103 (defalias 'popup-height #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 5] 4 (#$ . 9105)])
104 (byte-code "\300\301\302\303#\300\207" [function-put popup-height side-effect-free t] 4)
105 #@49 compiler-macro for inlining `popup-min-height'.
106 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 6)) nil] 7 (#$ . 9412)])
107 (put 'popup-min-height 'compiler-macro 'popup-min-height--cmacro)
108 #@50 Access slot "min-height" of `popup' struct CL-X.
109 (defalias 'popup-min-height #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 6] 4 (#$ . 9790)])
110 (byte-code "\300\301\302\303#\300\207" [function-put popup-min-height side-effect-free t] 4)
111 #@48 compiler-macro for inlining `popup-direction'.
112 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 7)) nil] 7 (#$ . 10109)])
113 (put 'popup-direction 'compiler-macro 'popup-direction--cmacro)
114 #@49 Access slot "direction" of `popup' struct CL-X.
115 (defalias 'popup-direction #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 7] 4 (#$ . 10483)])
116 (byte-code "\300\301\302\303#\300\207" [function-put popup-direction side-effect-free t] 4)
117 #@47 compiler-macro for inlining `popup-overlays'.
118 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 8)) nil] 7 (#$ . 10800)])
119 (put 'popup-overlays 'compiler-macro 'popup-overlays--cmacro)
120 #@48 Access slot "overlays" of `popup' struct CL-X.
121 (defalias 'popup-overlays #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 8] 4 (#$ . 11169)])
122 (byte-code "\300\301\302\303#\300\207" [function-put popup-overlays side-effect-free t] 4)
123 #@45 compiler-macro for inlining `popup-keymap'.
124 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 9)) nil] 7 (#$ . 11483)])
125 (put 'popup-keymap 'compiler-macro 'popup-keymap--cmacro)
126 #@46 Access slot "keymap" of `popup' struct CL-X.
127 (defalias 'popup-keymap #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 9] 4 (#$ . 11842)])
128 (byte-code "\300\301\302\303#\300\207" [function-put popup-keymap side-effect-free t] 4)
129 #@45 compiler-macro for inlining `popup-parent'.
130 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 10)) nil] 7 (#$ . 12150)])
131 (put 'popup-parent 'compiler-macro 'popup-parent--cmacro)
132 #@46 Access slot "parent" of `popup' struct CL-X.
133 (defalias 'popup-parent #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 10] 4 (#$ . 12510)])
134 (byte-code "\300\301\302\303#\300\207" [function-put popup-parent side-effect-free t] 4)
135 #@44 compiler-macro for inlining `popup-depth'.
136 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 11)) nil] 7 (#$ . 12819)])
137 (put 'popup-depth 'compiler-macro 'popup-depth--cmacro)
138 #@45 Access slot "depth" of `popup' struct CL-X.
139 (defalias 'popup-depth #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 11] 4 (#$ . 13174)])
140 (byte-code "\300\301\302\303#\300\207" [function-put popup-depth side-effect-free t] 4)
141 #@43 compiler-macro for inlining `popup-face'.
142 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 12)) nil] 7 (#$ . 13480)])
143 (put 'popup-face 'compiler-macro 'popup-face--cmacro)
144 #@44 Access slot "face" of `popup' struct CL-X.
145 (defalias 'popup-face #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 12] 4 (#$ . 13830)])
146 (byte-code "\300\301\302\303#\300\207" [function-put popup-face side-effect-free t] 4)
147 #@49 compiler-macro for inlining `popup-mouse-face'.
148 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 13)) nil] 7 (#$ . 14133)])
149 (put 'popup-mouse-face 'compiler-macro 'popup-mouse-face--cmacro)
150 #@50 Access slot "mouse-face" of `popup' struct CL-X.
151 (defalias 'popup-mouse-face #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 13] 4 (#$ . 14513)])
152 (byte-code "\300\301\302\303#\300\207" [function-put popup-mouse-face side-effect-free t] 4)
153 #@53 compiler-macro for inlining `popup-selection-face'.
154 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 14)) nil] 7 (#$ . 14834)])
155 (put 'popup-selection-face 'compiler-macro 'popup-selection-face--cmacro)
156 #@54 Access slot "selection-face" of `popup' struct CL-X.
157 (defalias 'popup-selection-face #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 14] 4 (#$ . 15234)])
158 (byte-code "\300\301\302\303#\300\207" [function-put popup-selection-face side-effect-free t] 4)
159 #@51 compiler-macro for inlining `popup-summary-face'.
160 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 15)) nil] 7 (#$ . 15567)])
161 (put 'popup-summary-face 'compiler-macro 'popup-summary-face--cmacro)
162 #@52 Access slot "summary-face" of `popup' struct CL-X.
163 (defalias 'popup-summary-face #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 15] 4 (#$ . 15957)])
164 (byte-code "\300\301\302\303#\300\207" [function-put popup-summary-face side-effect-free t] 4)
165 #@50 compiler-macro for inlining `popup-margin-left'.
166 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 16)) nil] 7 (#$ . 16284)])
167 (put 'popup-margin-left 'compiler-macro 'popup-margin-left--cmacro)
168 #@51 Access slot "margin-left" of `popup' struct CL-X.
169 (defalias 'popup-margin-left #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 16] 4 (#$ . 16669)])
170 (byte-code "\300\301\302\303#\300\207" [function-put popup-margin-left side-effect-free t] 4)
171 #@51 compiler-macro for inlining `popup-margin-right'.
172 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 17)) nil] 7 (#$ . 16993)])
173 (put 'popup-margin-right 'compiler-macro 'popup-margin-right--cmacro)
174 #@52 Access slot "margin-right" of `popup' struct CL-X.
175 (defalias 'popup-margin-right #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 17] 4 (#$ . 17383)])
176 (byte-code "\300\301\302\303#\300\207" [function-put popup-margin-right side-effect-free t] 4)
177 #@57 compiler-macro for inlining `popup-margin-left-cancel'.
178 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 18)) nil] 7 (#$ . 17710)])
179 (put 'popup-margin-left-cancel 'compiler-macro 'popup-margin-left-cancel--cmacro)
180 #@58 Access slot "margin-left-cancel" of `popup' struct CL-X.
181 (defalias 'popup-margin-left-cancel #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 18] 4 (#$ . 18130)])
182 (byte-code "\300\301\302\303#\300\207" [function-put popup-margin-left-cancel side-effect-free t] 4)
183 #@49 compiler-macro for inlining `popup-scroll-bar'.
184 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 19)) nil] 7 (#$ . 18475)])
185 (put 'popup-scroll-bar 'compiler-macro 'popup-scroll-bar--cmacro)
186 #@50 Access slot "scroll-bar" of `popup' struct CL-X.
187 (defalias 'popup-scroll-bar #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 19] 4 (#$ . 18855)])
188 (byte-code "\300\301\302\303#\300\207" [function-put popup-scroll-bar side-effect-free t] 4)
189 #@45 compiler-macro for inlining `popup-symbol'.
190 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 20)) nil] 7 (#$ . 19176)])
191 (put 'popup-symbol 'compiler-macro 'popup-symbol--cmacro)
192 #@46 Access slot "symbol" of `popup' struct CL-X.
193 (defalias 'popup-symbol #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 20] 4 (#$ . 19536)])
194 (byte-code "\300\301\302\303#\300\207" [function-put popup-symbol side-effect-free t] 4)
195 #@45 compiler-macro for inlining `popup-cursor'.
196 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 21)) nil] 7 (#$ . 19845)])
197 (put 'popup-cursor 'compiler-macro 'popup-cursor--cmacro)
198 #@46 Access slot "cursor" of `popup' struct CL-X.
199 (defalias 'popup-cursor #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 21] 4 (#$ . 20205)])
200 (byte-code "\300\301\302\303#\300\207" [function-put popup-cursor side-effect-free t] 4)
201 #@45 compiler-macro for inlining `popup-offset'.
202 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 22)) nil] 7 (#$ . 20514)])
203 (put 'popup-offset 'compiler-macro 'popup-offset--cmacro)
204 #@46 Access slot "offset" of `popup' struct CL-X.
205 (defalias 'popup-offset #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 22] 4 (#$ . 20874)])
206 (byte-code "\300\301\302\303#\300\207" [function-put popup-offset side-effect-free t] 4)
207 #@49 compiler-macro for inlining `popup-scroll-top'.
208 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 23)) nil] 7 (#$ . 21183)])
209 (put 'popup-scroll-top 'compiler-macro 'popup-scroll-top--cmacro)
210 #@50 Access slot "scroll-top" of `popup' struct CL-X.
211 (defalias 'popup-scroll-top #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 23] 4 (#$ . 21563)])
212 (byte-code "\300\301\302\303#\300\207" [function-put popup-scroll-top side-effect-free t] 4)
213 #@53 compiler-macro for inlining `popup-current-height'.
214 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 24)) nil] 7 (#$ . 21884)])
215 (put 'popup-current-height 'compiler-macro 'popup-current-height--cmacro)
216 #@54 Access slot "current-height" of `popup' struct CL-X.
217 (defalias 'popup-current-height #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 24] 4 (#$ . 22284)])
218 (byte-code "\300\301\302\303#\300\207" [function-put popup-current-height side-effect-free t] 4)
219 #@43 compiler-macro for inlining `popup-list'.
220 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 25)) nil] 7 (#$ . 22617)])
221 (put 'popup-list 'compiler-macro 'popup-list--cmacro)
222 #@44 Access slot "list" of `popup' struct CL-X.
223 (defalias 'popup-list #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 25] 4 (#$ . 22967)])
224 (byte-code "\300\301\302\303#\300\207" [function-put popup-list side-effect-free t] 4)
225 #@47 compiler-macro for inlining `popup-newlines'.
226 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 26)) nil] 7 (#$ . 23270)])
227 (put 'popup-newlines 'compiler-macro 'popup-newlines--cmacro)
228 #@48 Access slot "newlines" of `popup' struct CL-X.
229 (defalias 'popup-newlines #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 26] 4 (#$ . 23640)])
230 (byte-code "\300\301\302\303#\300\207" [function-put popup-newlines side-effect-free t] 4)
231 #@46 compiler-macro for inlining `popup-pattern'.
232 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 27)) nil] 7 (#$ . 23955)])
233 (put 'popup-pattern 'compiler-macro 'popup-pattern--cmacro)
234 #@47 Access slot "pattern" of `popup' struct CL-X.
235 (defalias 'popup-pattern #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 27] 4 (#$ . 24320)])
236 (byte-code "\300\301\302\303#\300\207" [function-put popup-pattern side-effect-free t] 4)
237 #@52 compiler-macro for inlining `popup-original-list'.
238 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 28)) nil] 7 (#$ . 24632)])
239 (put 'popup-original-list 'compiler-macro 'popup-original-list--cmacro)
240 #@53 Access slot "original-list" of `popup' struct CL-X.
241 (defalias 'popup-original-list #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 28] 4 (#$ . 25027)])
242 (byte-code "\300\301\302\303#\300\207" [function-put popup-original-list side-effect-free t] 4)
243 #@53 compiler-macro for inlining `popup-invis-overlays'.
244 (defalias '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 (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 29)) nil] 7 (#$ . 25357)])
245 (put 'popup-invis-overlays 'compiler-macro 'popup-invis-overlays--cmacro)
246 #@54 Access slot "invis-overlays" of `popup' struct CL-X.
247 (defalias 'popup-invis-overlays #[(cl-x) "\302!    >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 29] 4 (#$ . 25757)])
248 (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put popup-invis-overlays side-effect-free t defalias copy-popup copy-sequence] 4)
249 #@350 compiler-macro for inlining `make-popup'.
250
251 (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)
252 (defalias '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@CDD\203D@\344>\203\375DAA\211D\202\350\345>A@\203\f\346\211D\202\350\347\350D@\"\210\202\346)\351\352\353\346E\346    \n \f ,-./0123456789:;<=>?@ABC&\".\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 (record '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 #2=#:--cl-keys-- cl-whole] 36 (#$ . 26135)])
253 (put 'make-popup 'compiler-macro 'make-popup--cmacro)
254 #@330 Constructor for objects of type `popup'.
255
256 (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)
257 (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@BCC\203C@\344>\203\375CAA\211C\202\350\345>A@\203\f\346\211C\202\350\347\350C@\"\210\202\346)\351\352    \n \f +,-./0123456789:;<=>?@AB&.\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)" record 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 (#$ . 29193)])
258 (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&    \207" [function-put make-popup side-effect-free t cl-struct-define popup nil cl-structure-object record ((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-popup-tags] 11)
259 #@92 Same as `propertize' except that this avoids overriding
260 existed value with `nil' property.
261 (defalias 'popup-item-propertize #[(item &rest properties) "\306\211\306\211    :\203-    \211\211A\242\f@\211\203%\307 \n D\"    AA\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 (#$ . 32086)])
262 #@81 Same as `get-text-property' except that this returns nil if
263 ITEM is not string.
264 (defalias 'popup-item-property #[(item property) ";\205\n\302\303    #\207" [item property get-text-property 0] 4 (#$ . 32477)])
265 #@157 Utility function to make popup item. See also
266 `popup-item-propertize'.
267
268 (fn NAME &key VALUE FACE MOUSE-FACE SELECTION-FACE SUBLIST DOCUMENT SYMBOL SUMMARY)
269 (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>\203UAA\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 (#$ . 32693)])
270 (defalias 'popup-item-value #[(item) "\301\302\"\207" [item popup-item-property value] 3])
271 (put 'popup-item-value 'byte-optimizer 'byte-compile-inline-expand)
272 (defalias 'popup-item-value-or-self #[(item) "\301\302\")\206 \207" [item popup-item-property value] 3])
273 (put 'popup-item-value-or-self 'byte-optimizer 'byte-compile-inline-expand)
274 (defalias 'popup-item-face #[(item) "\301\302\"\207" [item popup-item-property popup-face] 3])
275 (put 'popup-item-face 'byte-optimizer 'byte-compile-inline-expand)
276 (defalias 'popup-item-mouse-face #[(item) "\301\302\"\207" [item popup-item-property popup-mouse-face] 3])
277 (put 'popup-item-mouse-face 'byte-optimizer 'byte-compile-inline-expand)
278 (defalias 'popup-item-selection-face #[(item) "\301\302\"\207" [item popup-item-property selection-face] 3])
279 (put 'popup-item-selection-face 'byte-optimizer 'byte-compile-inline-expand)
280 (defalias 'popup-item-document #[(item) "\301\302\"\207" [item popup-item-property document] 3])
281 (put 'popup-item-document 'byte-optimizer 'byte-compile-inline-expand)
282 (defalias 'popup-item-summary #[(item) "\301\302\"\207" [item popup-item-property summary] 3])
283 (put 'popup-item-summary 'byte-optimizer 'byte-compile-inline-expand)
284 (defalias 'popup-item-symbol #[(item) "\301\302\"\207" [item popup-item-property symbol] 3])
285 (put 'popup-item-symbol 'byte-optimizer 'byte-compile-inline-expand)
286 (defalias 'popup-item-sublist #[(item) "\301\302\"\207" [item popup-item-property sublist] 3])
287 (put 'popup-item-sublist 'byte-optimizer 'byte-compile-inline-expand)
288 (defalias 'popup-item-documentation #[(item) "\302\303\")\304    !\203    \211\302\305\")\206)!    )\207" [item doc popup-item-property document functionp value] 5])
289 (defalias 'popup-item-show-help-1 #[(item) "\302!\211\205r\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])
290 (defalias 'popup-item-show-help-with-event-loop #[(item) "\305 \306\216\307    !\205@\3102@\311\312 \210\313\311!\314\n!\211\315\267\202/\316 \210\2029\317\311!\210\2029\320\n\f\"\321\310\311\"\210)\202)\3110*\207" [#1=#:wconfig item key #2=#:temp unread-command-events current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] popup-item-show-help-1 --cl-block-nil-- nil clear-this-command-keys read-key-sequence-vector key-binding #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scroll-other-window 34 scroll-other-window-down 40)) scroll-other-window scroll-other-window-down append throw] 4])
291 #@247 Display the documentation of ITEM with `display-buffer'. If
292 PERSIST is nil, the documentation buffer will be closed
293 automatically, meaning interal event loop ensures the buffer to
294 be closed. Otherwise, the buffer will be just displayed as
295 usual.
296 (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 (#$ . 36283)])
297 (defalias 'popup-set-list #[(popup list) "\305    \"\210\306!\n>\204\307\310\300D\"\210\211\311\312I\210)\306!\n>\204+\307\310\300D\"\210\211\313    I)\207" [popup list cl-struct-popup-tags #1=#:v #2=#:v popup-set-filtered-list type-of signal wrong-type-argument 27 nil 28] 5])
298 (defalias 'popup-set-filtered-list #[(popup list) "\306!    >\204\307\310\300D\"\210\311H\312V\203\312\2022\306!    >\204*\307\310\300D\"\210\313H\nGZ\312]\306!    >\204B\307\310\300D\"\210\211\314\nI\210)\306!    >\204Y\307\310\300D\"\210\211\315 I*\207" [popup cl-struct-popup-tags list offset #1=#:v #2=#:v type-of signal wrong-type-argument 7 0 5 25 22] 5])
299 (defalias 'popup-selected-item #[(popup) "\302!    >\204\303\304\300D\"\210\305H\302!    >\204!\303\304\300D\"\210\306H8\207" [popup cl-struct-popup-tags type-of signal wrong-type-argument 21 25] 5])
300 (defalias 'popup-selected-line #[(popup) "\302!    >\204\303\304\300D\"\210\305H\302!    >\204!\303\304\300D\"\210\306HZ\207" [popup cl-struct-popup-tags type-of signal wrong-type-argument 21 23] 5])
301 (defalias 'popup-line-overlay #[(popup line) "\303!    >\204\304\305\300D\"\210\306H\nH\207" [popup cl-struct-popup-tags line type-of signal wrong-type-argument 8] 4])
302 (defalias 'popup-selected-line-overlay #[(popup) "\301\302!\"\207" [popup popup-line-overlay popup-selected-line] 4])
303 (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])
304 (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])
305 #@121 
306
307 (fn POPUP LINE &key ITEM FACE MOUSE-FACE MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR-CHAR SYMBOL SUMMARY SUMMARY-FACE KEYMAP)
308 (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\"\3230\335\331.G\336    .%\210\335\331.G\337.%\210\340/\302.#\203\334\341/\302.#//\203\341/\302.#\2110\203\335/0\302\n.%\210\3410\302.#\211/\204\341/\203\335/.G\302\n.%\210 \203&\335\331.G\303 .%\210\332-\342\"\2032\343\2023\3441\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 (#$ . 38436)])
309 #@79 
310
311 (fn POPUP STRING &key MARGIN-LEFT MARGIN-RIGHT SYMBOL SUMMARY SUMMARY-FACE)
312 (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&)\321!!>\204i\322\323\324D\"\210\325H\"\326\f!#\"\326$!^\"#\327V\203\213#\330\\\202\214\327Z]%\331$%\"@$\326$!\332\"##\"V\203\263\333\202\264\327]&\331\f\332\"&#\327]\"@' \203\326\334\327'G\335 '%\210    $\336&\337\"' \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)" type-of signal wrong-type-argument popup 4 string-width 0 2 popup-substring-by-width - 1 put-text-property face make-string 32 #2=#:--cl-keys-- cl-struct-popup-tags popup-width summary-width string content-width spacing truncated-summary] 7 (#$ . 40059)])
313 #@35 Return non-nil if POPUP is alive.
314 (defalias 'popup-live-p #[(popup) "\205\302!    >\204\303\304\300D\"\210\305H\205\306\207" [popup cl-struct-popup-tags type-of signal wrong-type-argument 8 t] 4 (#$ . 41244)])
315 (defalias 'popup-child-point #[(popup &optional offset) "\302\303    \206\n\304!\"!\207" [popup offset overlay-end popup-line-overlay popup-selected-line] 5])
316 #@143 Return a proper direction when displaying a popup on this
317 window. HEIGHT is the a height of the popup, and ROW is a line
318 number at the point.
319 (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 (#$ . 41627)])
320 #@1283 Create a popup instance at POINT with WIDTH and HEIGHT.
321
322 MIN-HEIGHT is a minimal height of the popup. The default value is
323 0.
324
325 MAX-WIDTH is the maximum width of the popup. The default value is
326 nil (no limit). If a floating point, the value refers to the ratio of
327 the window. If an integer, limit is in characters.
328
329 If AROUND is non-nil, the popup will be displayed around the
330 point but not at the point.
331
332 FACE is a background face of the popup. The default value is POPUP-FACE.
333
334 SELECTION-FACE is a foreground (selection) face of the popup The
335 default value is POPUP-FACE.
336
337 If SCROLL-BAR is non-nil, the popup will have a scroll bar at the
338 right.
339
340 If MARGIN-LEFT is non-nil, the popup will have a margin at the
341 left.
342
343 If MARGIN-RIGHT is non-nil, the popup will have a margin at the
344 right.
345
346 SYMBOL is a single character which indicates a kind of the item.
347
348 PARENT is a parent popup instance. If PARENT is omitted, the
349 popup will be a root instance.
350
351 PARENT-OFFSET is a row offset from the parent popup.
352
353 KEYMAP is a keymap that will be put on the popup contents.
354
355 (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)
356 (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@HII\203\254I@\330>\203\223IAA\211I\202~\331>A@\203\242\316\211I\202~\332\333I@\"\210\202|)C\204\265\334CD\204\275\334DJ\204\323F\203\320\335FG\"\202\321`J\n\203\337K\336\n!^K\212Jb\210\337\340 !\211LAML@N\341O\316\"P\342KB\203\343\202\334CDE\203\344\202\334%Q\316R\345 S\346 &\347 '\350 (NQ\\\211T(V\205>TQYUF?\205KNQYVF\203k\351F!W>\204d\352\353\354FD\"\210F\355H\206q\356OM\"XF\203\222\351F!W>\204\212\352\353\354FD\"\210F\357HT\202\223\334Y\334O\360Jd\"Z \203\246\343\202\247\334\\]Z\316\211[\\Z\334V\203\320\212\361\211\362 ]^_\363\216db\210\364Z\365\"c\210-U\203V\203\363N\366QCD#ZN \204#\367N!\210\202#`\204Q(NZZTaQaZQKaZK)NCZN\202#NCZNF\204<N\334W\203<\334NQCZQ\361RO\334bcbcW\203\246\316\211\211\361\370\211defghi \203h\371NX\"\210\372\212\373 \210`)\212\374 \210`)\"j\316kj:\203\313j@k\375k\354\"\204\302\375k\376\"\204\302\375k\377\"\204\250\375k\201p\"\203\302k\375k\201p\"D[B[\201qk\201p\370#\210jA\211j\202}*\361\337\340 !@\211\\NW\203\371\364\\\334U\203\354'\\Z\202\355\334N\\Z\\\201r\"e`hQeG\\gl\204#g\334V\203#\316fg\201s\316f!Zg\316u\210\202g\334W\2034\364g[\201r\"d\201th`\"i\201qi\354\361#\210\201qi\201SS#\210\201qi\201ff#\210\201qi\201ee#\210\201qi\201dd#\210\201qi\201KK#\210PX\334V\203\220b\202\227\366Ob\343#iI\210.bT\211b\202E*\201uY\201v_Zl\201wP\316\"\237m\316im:\203\345m@i\201qi\201xl#\210lTlmA\211m\202\302+\201y\354JMNKO    XPHFY\f @ACDRBE\334\211\211\211\316Z\316\211[&\211noBon.\"\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 type-of signal wrong-type-argument popup 7 popup-calculate-direction 11 count-lines t buffer-modified-p #[nil "\301!\207" [modified set-buffer-modified-p] 2] 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 record] 32 (#$ . 42117)])
357 #@24 Delete POPUP instance.
358 (defalias 'popup-delete #[(popup) "\306!\203\220\307!\210\310\311\312!    >\204\313\314\300D\"\210\315H\"\210\312!    >\204/\313\314\300D\"\210\211\315\316I\210)\317 \"\312!    >\204K\313\314\300D\"\210\320H\211\321V\203\217\212\322\211\323 \324\216db\210\f\321W\203\215`Sf\203\204`Sf\325U\203\204\326\327!\210T\211\202l.)\316\207" [popup cl-struct-popup-tags #1=#:v popup-instances newlines modified popup-live-p popup-hide mapc delete-overlay type-of signal wrong-type-argument 8 nil delq 26 0 t buffer-modified-p #[nil "\301!\207" [modified set-buffer-modified-p] 2] 10 delete-char -1 inhibit-read-only buffer-undo-list i --dotimes-limit--] 7 (#$ . 47117)])
359 #@13 Draw POPUP.
360 (defalias 'popup-draw #[(popup) "\306!    >\204\307\310\300D\"\210\311H\312\211\312\n:\2037\n@\211\211A\242 @\313 \314\315#\210\nA\211\202,\306!    >\204G\307\310\300D\"\210\316H:\306!    >\204[\307\310\300D\"\210\317H;\306!    >\204o\307\310\300D\"\210\320H%\306!    >\204\203\307\310\300D\"\210\321H<\306!    >\204\227\307\310\300D\"\210\322H$\306!    >\204\253\307\310\300D\"\210\323H=\306!    >\204\277\307\310\300D\"\210\324H\211>G?:\211_?\325]\245\325]@\326?\325]\\:\245A\306!    >\204\357\307\310\300D\"\210\327HB\330\306!    >\204\307\310\300D\"\210\331H\203\332\202 \306!    >\204\307\310\300D\"\210\333H\334\"C\330\306!    >\2044\307\310\300D\"\210\335H\334\"D\306!    >\204J\307\310\300D\"\210\336H*\306!    >\204^\307\310\300D\"\210\337HE\306!    >\204r\307\310\300D\"\210\340HF\306!    >\204\206\307\310\300D\"\210\341HG\306!    >\204\232\307\310\300D\"\210\342HHGIFJF>\233K\312\211LM\312\211(N\312\211OP\312\211Q+I:W\203\312K:\203\312K@L@I@\245_MJEU\203\375LL\343L\344\")\206\f$\202\fLL\343L\345\")\206\f%(JEU?\205=N\346\347\350(#OB\203eB\351=\204;A\325X\203;O\202fA\325V\203`EMA_Y\203`EM@\\A_W\203`R\202fS\202f\315P*\203\200\347LL\343L\352\")\206|\347P\202\201\315QLL\343L\353\")\206\221\315+\354I\355L\356(\357<\360C\361D\362P\363Q\364+\365N\366H&\210ITIJTJKAK\202\306\306!    >\204\331\307\310\300D\"\210\211T\367IGZI\210)B\203\364\346\347\350%#\202\365\315*\203\376\347\202\377\315*P\306!    >\204\307\310\300D\"\210\370H\332V\203a;\203JI;W\203J\354I\355\315\356%\360C\361D\362P\363*\364\315&\210IT\211I\202!I:W\203\273\371I\"\210IT\211I\202L;\203n:;Z\202pGU\332IGVIVW\203\272IUW\203\217\371I\"\210IUY\203\261\354I\355\315\356%\360C\361D\362P\363*\364\315&\210IT\211I\202{+.\312\207" [popup cl-struct-popup-tags #1=#:--cl-var-- ov olddisplay #2=#:--cl-var-- type-of signal wrong-type-argument 29 nil overlay-put display "" 5 6 12 13 14 15 25 1 0.0 19 make-string 18 0 16 32 17 20 21 23 22 9 popup-item-property selection-face popup-face propertize " " face :always symbol summary popup-set-line-item :item :face :mouse-face :margin-left :margin-right :scroll-bar-char :symbol :summary :summary-face :keymap 24 7 popup-hide-line 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--] 24 (#$ . 47842)])
361 #@13 Hide POPUP.
362 (defalias 'popup-hide #[(popup) "\306!    >\204\307\310\300D\"\210\311H\312\211\312\n:\2037\n@\211\211A\242 @\313 \314\f#\210\nA\211\202,\306!    >\204G\307\310\300D\"\210\315H\316W\205f\317\"\210T\211\202Q*\207" [popup cl-struct-popup-tags #1=#:--cl-var-- ov olddisplay #2=#:--cl-var-- type-of signal wrong-type-argument 29 nil overlay-put display 5 0 popup-hide-line i --dotimes-limit--] 5 (#$ . 50576)])
363 #@36 Return non-nil if POPUP is hidden.
364 (defalias 'popup-hidden-p #[(popup) "\305\306    !\2034\307    !\n>\204\310\311\301    D\"\210    \312H\313 \fW\2033\314     \"\204,\315 T\211\202*)\207" [hidden popup cl-struct-popup-tags i --dotimes-limit-- t popup-live-p type-of signal wrong-type-argument 5 0 popup-line-hidden-p nil] 5 (#$ . 51033)])
365 #@59 Jump to a position specified by CURSOR of POPUP and draw.
366 (defalias 'popup-jump #[(popup cursor) "\306!    >\204\307\310\300D\"\210\311H\211 X\2032 \n\306!    >\204*\307\310\300D\"\210\312H\\W\204I\306!    >\204A\307\310\300D\"\210\211\311 I\210)\306!    >\204X\307\310\300D\"\210\211\313 I\210)\314!)\207" [popup cl-struct-popup-tags scroll-top cursor #1=#:v #2=#:v type-of signal wrong-type-argument 23 5 21 popup-draw] 7 (#$ . 51377)])
367 #@41 Select the item at I of POPUP and draw.
368 (defalias 'popup-select #[(popup i) "\304    !\n>\204\305\306\301    D\"\210    \307H\\\310X\205N\304    !\n>\204+\305\306\301    D\"\210    \311HW\205N\304    !\n>\204A\305\306\301    D\"\210    \211\312I\210)\313    !\210\314\207" [i popup cl-struct-popup-tags #1=#:v type-of signal wrong-type-argument 22 0 5 21 popup-draw t] 6 (#$ . 51833)])
369 #@41 Select the next item of POPUP and draw.
370 (defalias 'popup-next #[(popup) "\306!    >\204\307\310\300D\"\210\311H\306!    >\204!\307\310\300D\"\210\312HT\306!    >\2044\307\310\300D\"\210\313H\306!    >\204F\307\310\300D\"\210\314HG\f\nY\203[\315\211\202l\f \\U\203l T\n Z\315]^\306!    >\204{\307\310\300D\"\210\211\312\fI\210)\306!    >\204\223\307\310\300D\"\210\211\313 I\210)\316!,\207" [popup cl-struct-popup-tags length scroll-top cursor height type-of signal wrong-type-argument 5 21 23 25 0 popup-draw #1=#:v #2=#:v] 8 (#$ . 52207)])
371 #@45 Select the previous item of POPUP and draw.
372 (defalias 'popup-previous #[(popup) "\306!    >\204\307\310\300D\"\210\311H\306!    >\204!\307\310\300D\"\210\312HS\306!    >\2044\307\310\300D\"\210\313H\306!    >\204F\307\310\300D\"\210\314HG\f\315W\203`\nS\n Z\315]\202j\f SU\203j S\306!    >\204y\307\310\300D\"\210\211\312\fI\210)\306!    >\204\221\307\310\300D\"\210\211\313 I\210)\316!,\207" [popup cl-struct-popup-tags length scroll-top cursor height type-of signal wrong-type-argument 5 21 23 25 0 popup-draw #1=#:v #2=#:v] 8 (#$ . 52777)])
373 #@79 Select next item of POPUP per `popup-height' range.
374 Pages down through POPUP.
375 (defalias 'popup-page-next #[(popup) "\304!    >\204\305\306\300D\"\210\307HS\310\n W\205'\311!\210\nT\211\202*\207" [popup cl-struct-popup-tags counter --dotimes-limit-- type-of signal wrong-type-argument 5 0 popup-next] 5 (#$ . 53349)])
376 #@81 Select previous item of POPUP per `popup-height' range.
377 Pages up through POPUP.
378 (defalias 'popup-page-previous #[(popup) "\304!    >\204\305\306\300D\"\210\307HS\310\n W\205'\311!\210\nT\211\202*\207" [popup cl-struct-popup-tags counter --dotimes-limit-- type-of signal wrong-type-argument 5 0 popup-previous] 5 (#$ . 53681)])
379 #@34 Scroll down N of POPUP and draw.
380 (defalias 'popup-scroll-down #[(popup &optional n) "\306!    >\204\307\310\300D\"\210\311H\n\206\312\\\306!    >\204'\307\310\300D\"\210\313HG\306!    >\204:\307\310\300D\"\210\314HZ^\306!    >\204O\307\310\300D\"\210\211\315 I\210)\306!    >\204f\307\310\300D\"\210\211\311 I\210)\316!)\207" [popup cl-struct-popup-tags n scroll-top #1=#:v #2=#:v type-of signal wrong-type-argument 23 1 25 5 21 popup-draw] 7 (#$ . 54023)])
381 #@32 Scroll up N of POPUP and draw.
382 (defalias 'popup-scroll-up #[(popup &optional n) "\306!    >\204\307\310\300D\"\210\311H\n\206\312Z\313]\306!    >\204*\307\310\300D\"\210\211\314 I\210)\306!    >\204A\307\310\300D\"\210\211\311 I\210)\315!)\207" [popup cl-struct-popup-tags n scroll-top #1=#:v #2=#:v type-of signal wrong-type-argument 23 1 0 21 popup-draw] 5 (#$ . 54499)])
383 (custom-declare-face 'popup-isearch-match '((t (:inherit default :background "sky blue"))) "Popup isearch match face." :group 'popup)
384 (defvar popup-isearch-cursor-color "blue")
385 (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\302\313\314#\210)\207" [map make-sparse-keymap define-key "" popup-isearch-cancel "" popup-isearch-close [left] "" popup-isearch-delete "" "" popup-isearch-yank] 4))
386 #@56 Function used for showing quick help by `popup-menu*'.
387 (defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help (#$ . 55377))
388 #@171 Function used to construct a regexp from a pattern. You may for instance
389   provide a function that replaces spaces by '.+' if you like helm or ivy style
390   of completion.
391 (custom-declare-variable 'popup-isearch-regexp-builder-function '#'regexp-quote '(#$ . 55525) :type 'function)
392 (defalias 'popup-isearch-char-p #[(char) "\250\205\301X\205\302X\207" [char 32 126] 2])
393 (put 'popup-isearch-char-p 'byte-optimizer 'byte-compile-inline-expand)
394 (defalias 'popup-isearch-filter-list #[(pattern list) "    ! \306\211\f:\203P\f@\211;\204 \307\310 !\311 #\312\n \"\203I\313\224\313\225\314\313 G\315\316 %\210\317\315\320 %\210 *B\fA\211\202\f\237,\207" [popup-isearch-regexp-builder-function pattern regexp list #1=#:--cl-var-- item 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 #2=#:--cl-var-- end beg] 7])
395 (defalias 'popup-isearch-prompt #[(popup pattern) "\303\304\305!    >\204\306\307\300D\"\210\310HG\311U\203\"\312\n\313\314#\202#\n\"\207" [popup cl-struct-popup-tags pattern format "Pattern: %s" type-of signal wrong-type-argument 25 0 propertize face isearch-fail] 6])
396 (defalias 'popup-isearch-update #[(popup filter pattern &optional callback) "\306!    >\204\307\310\300D\"\210\211\311\312I\210)\306!    >\204&\307\310\300D\"\210\211\313\312I\210)\306!    >\204=\307\310\300D\"\210\211\314 I\210) \306!    >\204W\307\310\300D\"\210\315H\"\316\"\210\203n!\210)\317!\207" [popup cl-struct-popup-tags #1=#:v #2=#:v #3=#:v pattern type-of signal wrong-type-argument 21 0 23 27 28 popup-set-filtered-list popup-draw filter list callback] 7])
397 #@771 Start isearch on POPUP. This function is synchronized, meaning
398 event loop waits for quiting of isearch.
399
400 FILTER is function with two argumenst to perform popup items filtering.
401
402 CURSOR-COLOR is a cursor color during isearch. The default value
403 is `popup-isearch-cursor-color'.
404
405 KEYMAP is a keymap which is used when processing events during
406 event loop. The default value is `popup-isearch-keymap'.
407
408 CALLBACK is a function taking one argument. `popup-isearch' calls
409 CALLBACK, if specified, after isearch finished or isearch
410 canceled. The arguments is whole filtered list of items.
411
412 HELP-DELAY is a delay of displaying helps.
413
414 (fn POPUP &key (FILTER \='popup-isearch-filter-list) (CURSOR-COLOR popup-isearch-cursor-color) (KEYMAP popup-isearch-keymap) CALLBACK HELP-DELAY)
415 (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@1\306\315\"A@233\203h3@\316>\203O3AA\2113\202:\317>A@\203^\312\2113\202:\320\3213@\"\210\2028)\322!4>\204{\323\324\325D\"\210\326H\322!4>\204\221\323\324\325D\"\210\327H\206\231\330\331\332 \303\"\312\211\21156789:\333\216\3342\267 \203\273\335 !\210\3369\"7\337 72#\2116\204\353;\312\3407$\204\273\341 \210\3427!<B<\202\273\343 6\"56;\2036\344H\211=\250\205\345=X\205=\346X)\20396P9\202\2525\347=\203+\350\334\312\"\210\202\2525\351=\203C\352    \3301$\210\350\334\353\"\210\202\2525\354=\203e\352    \3301$\210\355\3566!<\"<\350\334\312\"\210\202\2525\357=\203\2019G\344V\203\2529\3449GSO9\202\2525\360=\203\233\352    >@1$\210\350\334\312\"\210\202\252\355\3566!<\"<\350\334\312\"\210\352    91$\210\202\273.\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)" type-of signal wrong-type-argument popup 28 27 "" frame-parameter selected-frame #[nil "\205\301!\207" [old-cursor-color set-cursor-color] 2] --cl-block-nil-- set-cursor-color popup-isearch-prompt popup-menu-read-key-sequence :prompt clear-this-command-keys read-event lookup-key 0 32 126 popup-isearch-done throw popup-isearch-cancel popup-isearch-update t popup-isearch-close append listify-key-sequence popup-isearch-delete popup-isearch-yank callback help-delay #2=#:--cl-keys-- cl-struct-popup-tags binding key prompt old-cursor-color pattern list popup-menu-show-quick-help-function unread-command-events char kill-ring] 7 (#$ . 57273)])
416 (custom-declare-face 'popup-tip-face '((t (:background "khaki1" :foreground "black"))) "Face for popup tip." :group 'popup)
417 (defvar popup-tip-max-width 80)
418 #@649 Show a tooltip of STRING at POINT. This function is
419 synchronized unless NOWAIT specified. Almost all arguments are
420 the same as in `popup-create', except for TRUNCATE, NOWAIT, and
421 PROMPT.
422
423 If TRUNCATE is non-nil, the tooltip can be truncated.
424
425 If NOWAIT is non-nil, this function immediately returns the
426 tooltip instance without entering event loop.
427
428 If `NOSTRIP` is non-nil, `STRING` properties are not stripped.
429
430 PROMPT is a prompt string when reading events during event loop.
431
432 (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)
433 (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@2\306\317\"A@3\306\320\"A@4\306\321\"A@5\306\322\"A@6\306\323\"A@7\306\324\"A@8\306\325\"A@9\306\326\"A@:\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\316r@q\210\337 )@;\204\331\340@!@4\341=\203\343\34245\204\354456\204\36546\343@ A#\211B@BA>)\344     \f\315 \3162\310\n\3215\3226\3237\345\346\3248\3259&=\347\216\350=!C>\204;\351\352\353=D\"\210=\354H\355V\205\247 \350=!C>\204W\351\352\353=D\"\210=\354H=\204\2043\204\204\350=!C>\204v\351\352\353=D\"\210=\354H\343@ \211#A>\356=>\"\210\357=!\210:\203\232=\202\247\360 \210\361<!DBD\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 #[nil "?\205\302    !\207" [nowait tip popup-delete] 2] type-of signal wrong-type-argument popup 4 0 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 (#$ . 60196)])
434 (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 (:inherit default :background "steelblue" :foreground "white"))) "Face for popup menu selection." popup-menu-summary-face ((t (:inherit popup-summary-face))) "Face for popup summary."] 6)
435 #@68 Function used for showing tooltip by `popup-menu-show-quick-help'.
436 (defvar popup-menu-show-tip-function 'popup-tip (#$ . 63388))
437 (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])
438 (defalias 'popup-menu-documentation #[(menu &optional item) "\302\206\303    !!\207" [item menu popup-item-documentation popup-selected-item] 3])
439 (defalias 'popup-menu-show-quick-help #[(menu &optional item &rest args) "\306\307\"\306\310\"\206\311\n! >\204\312\313\314\nD\"\210\n\315H\211\311\n! >\204/\312\313\314\nD\"\210\n\316H^\317\311\n! >\204F\312\313\314\nD\"\210\n\320H\321\n\"\211;\205\204\322\n!\203h\323\317\211\202j\317\317\324\307    \310\f\325 \326\327\n\330&).\207" [args point menu cl-struct-popup-tags height min-height plist-get :point :height type-of signal wrong-type-argument popup 5 24 nil 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])
440 (defalias 'popup-menu-item-of-mouse-event #[(event) ":\205!@\303>\205!A@\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])
441 (defalias 'popup-menu-read-key-sequence #[(keymap &optional prompt timeout) "\3002k\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 \203D\315    \325\317\324 \326\"#\210\327\216\330\n!\210\331 \210\307 !\332\216!\203e\333  \334\335!\"\210\336\307!.0\207" [timeout overriding-terminal-local-map temp-global-map old-global-map timer keymap run-with-timer nil #[nil "\300 G\301U\205\f\302\303\304\"\207" [this-command-keys 0 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] #[nil "\302!\210    \205 \303    !\207" [old-global-map timer use-global-map cancel-timer] 2] use-global-map clear-this-command-keys #[nil "\205    \203 \302\303    \"\207\302\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])
442 (defalias 'popup-menu-fallback #[(event default) "\300\207" [nil] 1])
443 #@128 
444
445 (fn MENU KEYMAP FALLBACK &key PROMPT HELP-DELAY ISEARCH ISEARCH-FILTER ISEARCH-CURSOR-COLOR ISEARCH-KEYMAP ISEARCH-CALLBACK)
446 (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@A\316\211BCDD\203lD@\317>\203SDAA\211D\202>\320>A@\203b\316\211D\202>\321\322D@\"\210\202<)\3232\324E!\205~ \203\223\325E\326\f\327 \330@\331A\310\n& \203\223\332 \210\333F    \n#\211B\205\245\334FB\"CB\203\264BG\335U\203\315GE\316\307    $\204q\336 \210\337    !HBH\202q\334\340 B\"\332=\203\343\332 \210\341\323\316\"\210\202qC\342=\203 \343E!I>\204\374\344\345\346ED\"\210E\347H\203q\341\323\316\"\210\202qC\350>\203\363\351B\335\234!\206\352E!J\353J\343E!I>\2046\344\345\346ED\"\210E\354H\"KJJ\355J\356\").K\204S\341\323\316\"\210.\203\321\316L\357.\360\316\361\343E!I>\204s\344\345\346ED\"\210E\362H\363\343E!I>\204\212\344\345\346ED\"\210E\364H\365\343E!I>\204\241\344\345\346ED\"\210E\366H\367E\370K\310\n\311 \312\f\313 \314@\315A&)\211M\203\315M\203\315\341\323M\"\210)\202\357C\371=\203\357\341\323J\211JJ\355J\372\")\206\354J)\"\210+\202qC\373=\203\373E!\210\202qC\374=\203\374E!\210\202qC\375=\203 \375E!\210\202qC\376=\203/\376E!\210\202qC\377=\203@\201OE!\210\202qC\325=\203\\\325E\326\f\327 \330@\331A\310\n& \210\202q\201PC!\203o\201QC!\210\202qNB\201RB!\"\210\202q0.    \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-- popup-live-p popup-isearch :filter :cursor-color :keymap :callback keyboard-quit popup-menu-read-key-sequence lookup-key 0 clear-this-command-keys read-event current-global-map throw popup-close type-of signal wrong-type-argument popup 10 (popup-select popup-open) popup-menu-item-of-mouse-event popup-selected-item cl-position 25 popup-item-property sublist popup-cascade-menu :around :margin-left 16 :margin-right 17 :scroll-bar 19 :parent :parent-offset popup-select value popup-next popup-previous popup-page-next popup-page-previous popup-help isearch-keymap isearch-callback key binding #2=#:--cl-keys-- menu keymap 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 (#$ . 65875)])
447 #@54 Return the preferred width to show LIST beautifully.
448 (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=#:temp #3=#:temp total] 4 (#$ . 68749)])
449 (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))
450 #@1951 Show a popup menu of LIST at POINT. This function returns a
451 value of the selected item. Almost all arguments are the same as in
452 `popup-create', except for KEYMAP, FALLBACK, HELP-DELAY, PROMPT,
453 ISEARCH, ISEARCH-FILTER, ISEARCH-CURSOR-COLOR, ISEARCH-KEYMAP, and
454 ISEARCH-CALLBACK.
455
456 If KEYMAP is a keymap which is used when processing events during
457 event loop.
458
459 If FALLBACK is a function taking two arguments; a key and a
460 command. FALLBACK is called when no special operation is found on
461 the key. The default value is `popup-menu-fallback', which does
462 nothing.
463
464 HELP-DELAY is a delay of displaying helps.
465
466 If NOWAIT is non-nil, this function immediately returns the menu
467 instance without entering event loop.
468
469 PROMPT is a prompt string when reading events during event loop.
470
471 If ISEARCH is non-nil, do isearch as soon as displaying the popup
472 menu.
473
474 ISEARCH-FILTER is a filtering function taking two arguments:
475 search pattern and list of items. Returns a list of matching items.
476
477 ISEARCH-CURSOR-COLOR is a cursor color during isearch. The
478 default value is `popup-isearch-cursor-color'.
479
480 ISEARCH-KEYMAP is a keymap which is used when processing events
481 during event loop. The default value is `popup-isearch-keymap'.
482
483 ISEARCH-CALLBACK is a function taking one argument.  `popup-menu'
484 calls ISEARCH-CALLBACK, if specified, after isearch finished or
485 isearch canceled. The arguments is whole filtered list of items.
486
487 If `INITIAL-INDEX' is non-nil, this is an initial index value for
488 `popup-select'. Only positive integer is valid.
489
490 (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)
491 (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\313DDA@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\313LDA@M\306\342\"\206\325\313NDA@O\306\343\"A@P\306\344\"A@Q\313\211RSTT\203\"T@\345>\203    TAA\211T\202\364\346>A@\203\313\211T\202\364\347\350T@\"\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@\325A\326B&R\365\216\366R \"\210C\203\224\367RC\"\210\202\231\370R!\210Q\203\300 GSQ^\353UVUVW\203\277\371R!\210UT\211U\202\253*H\203\312R\202\350\372REF\335I\333G\336J\337K\341M\342O\343P&.\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 #[nil "?\205\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 (#$ . 69875)])
492 #@197 Same as `popup-menu' except that an element of LIST can be
493 also a sub-menu if the element is a cons cell formed (ITEM
494 . SUBLIST) where ITEM is an usual item and SUBLIST is a list of
495 the sub menu.
496 (defalias 'popup-cascade-menu #[(list &rest args) "\302\303\304\305\"\306\307    %\207" [list args apply popup-menu* mapcar #[(item) ":\203\301@\302A\303\304%\207\207" [item popup-make-item :sublist :symbol ">"] 6] :symbol t] 6 (#$ . 74532)])
497 (provide 'popup)