/
popup.elc
237 lines (222 loc) · 63.4 KB
/
popup.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
;ELC
;;; Compiled by philipp@philipp-desktop on Mon May 31 17:07:34 2010
;;; from file /home/philipp/elisp/auto-complete-1.3/popup.el
;;; in Emacs version 23.1.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`popup.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@88 Use optimized column computation routine.
If there is a problem, please set it to nil.
(defvar popup-use-optimized-column-computation t (#$ . 590))(if macro-declaration-function (funcall macro-declaration-function (quote popup-aif) (quote (declare (indent 2)))))
#@67 Anaphoric if. Temporary variable `it' is the result of test-form.
(defalias 'popup-aif '(macro . #[(test-form then-form &rest else-forms) "\303\304DC\305\304 \nBBBE\207" [test-form then-form else-forms let it if] 6 (#$ . 859)]))
#@94 Convert any object to string effeciently.
This is faster than prin1-to-string in many cases.
(defalias 'popup-x-to-string #[(x) ";\203 \2079\203 \302!\207\250\203 \303!\207\211\247\205# \250?)\203+ \303!\207\304\305\"\207" [x object symbol-name number-to-string format "%s"] 4 (#$ . 1095)])
#@59 Return cons of substring and remaining string by `WIDTH'.
(defalias 'popup-substring-by-width #[(string width) "\306\307\310#\211G\311\211\312\313\" \313 \f:\2033 \f@\n\314!\\\211X\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] 6 (#$ . 1406)])
#@726 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 (#$ . 1783)])(if macro-declaration-function (funcall macro-declaration-function (quote popup-save-buffer-state) (quote (declare (indent 0)))))
(defalias 'popup-save-buffer-state '(macro . #[(&rest body) "\301\302\303\304\305B\306BBED\207" [body save-excursion let ((buffer-undo-list t) (buffer-read-only nil) (modified (buffer-modified-p))) unwind-protect progn ((set-buffer-modified-p modified))] 6]))
#@61 Return preferred width of popup 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 \314\206^ \315\206d \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 ceiling 0 10.0 10 summary-width #2=#:--cl-var-- #3=#:--cl-var--] 4 (#$ . 3675)])
(defalias 'popup-window-full-width-p #[(&optional window) "\301\302!\203\n \302!\207\303!\304\305\206 \306 !!U\207" [window fboundp window-full-width-p window-width frame-width window-frame selected-window] 4])
(defalias 'popup-truncated-partial-width-window-p #[(&optional window) "\204 \302 \303!?\205$ \304\305\306!\"\211\250\203\" \307! W\202# )\207" [window t-p-w-w selected-window popup-window-full-width-p buffer-local-value truncate-partial-width-windows window-buffer window-width] 5])
(defalias 'popup-current-physical-column #[nil "\203\" \303 \304=\203\" i\305 \204 \n\204 \306 W\205 )\206' \307\310 !@\207" [popup-use-optimized-column-computation current-column truncate-lines window-hscroll 0 popup-truncated-partial-width-window-p window-width posn-col-row posn-at-point] 2])
(defalias 'popup-last-line-of-buffer-p #[nil "\212\300\210\300y\301U)?\207" [nil 0] 2])
(defalias 'popup-lookup-key-by-event #[#'event "\304 !!\206* 9\205* \305N\211\205) \304\306\n@\307N\206 \310\n\211A@)\"!!)\207" [function event it x vector event-symbol-element-mask logior ascii-character 0] 6])
(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%\207" [custom-declare-group popup nil "Visual popup interface" :group lisp :prefix "popup-" custom-declare-face popup-face ((t (:background "lightgray" :foreground "black"))) "Face for popup." 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 (#$ . 5818))
#@38 Foreground character for scroll-bar.
(defvar popup-scroll-bar-foreground-char (propertize " " 'face 'popup-scroll-bar-foreground-face) (#$ . 5882))
#@38 Background character for scroll-bar.
(defvar popup-scroll-bar-background-char (propertize " " 'face 'popup-scroll-bar-background-face) (#$ . 6036))
(byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put popup-point cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-point (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "popup-point accessing a non-popup")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-point #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-point accessing a non-popup" 1] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-point setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-point #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 1] 6] popup-row cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-row (or #1# (error "popup-row accessing a non-popup")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-row #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-row accessing a non-popup" 2] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-row setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-row #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 2] 6] popup-column cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-column (or #1# (error "popup-column accessing a non-popup")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-column #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-column accessing a non-popup" 3] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-column setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-column #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 3] 6] popup-width cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-width (or #1# (error "popup-width accessing a non-popup")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-width #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-width accessing a non-popup" 4] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-width setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-width #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 4] 6] popup-height cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-height (or #1# (error "popup-height accessing a non-popup")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-height #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-height accessing a non-popup" 5] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-height setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-height #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 5] 6] popup-min-height cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-min-height (or #1# (error "popup-min-height accessing a non-popup")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-min-height #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-min-height accessing a non-popup" 6] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-min-height setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-min-height #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 6] 6] popup-direction cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-direction (or #1# (error "popup-direction accessing a non-popup")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-direction #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-direction accessing a non-popup" 7] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-direction setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-direction #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 7] 6] popup-overlays cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-overlays (or #1# (error "popup-overlays accessing a non-popup")) (aref cl-x 8)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-overlays #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-overlays accessing a non-popup" 8] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-overlays setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-overlays #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 8] 6] popup-parent cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-parent (or #1# (error "popup-parent accessing a non-popup")) (aref cl-x 9)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-parent #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-parent accessing a non-popup" 9] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-parent setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-parent #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 9] 6] popup-depth cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-depth (or #1# (error "popup-depth accessing a non-popup")) (aref cl-x 10)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-depth #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-depth accessing a non-popup" 10] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-depth setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-depth #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 10] 6] popup-face cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-face (or #1# (error "popup-face accessing a non-popup")) (aref cl-x 11)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-face #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-face accessing a non-popup" 11] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-face setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-face #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 11] 6] popup-selection-face cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-selection-face (or #1# (error "popup-selection-face accessing a non-popup")) (aref cl-x 12)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-selection-face #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-selection-face accessing a non-popup" 12] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-selection-face setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-selection-face #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 12] 6] popup-margin-left cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-margin-left (or #1# (error "popup-margin-left accessing a non-popup")) (aref cl-x 13)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-margin-left #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-margin-left accessing a non-popup" 13] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-margin-left setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-margin-left #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 13] 6] popup-margin-right cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-margin-right (or #1# (error "popup-margin-right accessing a non-popup")) (aref cl-x 14)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-margin-right #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-margin-right accessing a non-popup" 14] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-margin-right setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-margin-right #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 14] 6] popup-margin-left-cancel cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-margin-left-cancel (or #1# (error "popup-margin-left-cancel accessing a non-popup")) (aref cl-x 15)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-margin-left-cancel #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-margin-left-cancel accessing a non-popup" 15] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-margin-left-cancel setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-margin-left-cancel #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 15] 6] popup-scroll-bar cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-scroll-bar (or #1# (error "popup-scroll-bar accessing a non-popup")) (aref cl-x 16)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-scroll-bar #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-scroll-bar accessing a non-popup" 16] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-scroll-bar setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-scroll-bar #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 16] 6] popup-symbol cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-symbol (or #1# (error "popup-symbol accessing a non-popup")) (aref cl-x 17)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-symbol #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-symbol accessing a non-popup" 17] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-symbol setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-symbol #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 17] 6] popup-cursor cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-cursor (or #1# (error "popup-cursor accessing a non-popup")) (aref cl-x 18)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-cursor #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-cursor accessing a non-popup" 18] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-cursor setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-cursor #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 18] 6] popup-offset cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-offset (or #1# (error "popup-offset accessing a non-popup")) (aref cl-x 19)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-offset #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-offset accessing a non-popup" 19] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-offset setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-offset #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 19] 6] popup-scroll-top cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-scroll-top (or #1# (error "popup-scroll-top accessing a non-popup")) (aref cl-x 20)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-scroll-top #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-scroll-top accessing a non-popup" 20] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-scroll-top setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-scroll-top #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 20] 6] popup-current-height cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-current-height (or #1# (error "popup-current-height accessing a non-popup")) (aref cl-x 21)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-current-height #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-current-height accessing a non-popup" 21] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-current-height setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-current-height #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 21] 6] popup-list cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-list (or #1# (error "popup-list accessing a non-popup")) (aref cl-x 22)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-list #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-list accessing a non-popup" 22] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-list setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-list #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 22] 6] popup-newlines cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-newlines (or #1# (error "popup-newlines accessing a non-popup")) (aref cl-x 23)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-newlines #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-newlines accessing a non-popup" 23] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-newlines setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-newlines #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 23] 6] popup-pattern cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-pattern (or #1# (error "popup-pattern accessing a non-popup")) (aref cl-x 24)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-pattern #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-pattern accessing a non-popup" 24] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-pattern setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-pattern #1=(and (memq (aref cl-x 0) cl-struct-popup-tags)) 24] 6] popup-original-list cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-original-list (or #1# (error "popup-original-list accessing a non-popup")) (aref cl-x 25)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-original-list #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-popup-tags 0 error "popup-original-list accessing a non-popup" 25] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put popup-original-list setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander popup popup-original-list (and #1=(memq (aref cl-x 0) cl-struct-popup-tags)) 25] 6] popup-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block popup-p (and (vectorp cl-x) (>= (length cl-x) 26) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'popup-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-popup-tags vectorp 26 0 t] 2])
(defalias 'copy-popup #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put make-popup cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ (\314>A@ )\315>A@ *\316>A@ +\317>A@ ,\320>A@ -\321>A@ .\322>A@ /\323>A@ 0\324>A@ 1\325>A@ 2\326>A@ 3\327>A@ 4\330>A@ 5\331>A@ 6\332>A@ 7\333>A@ 8\334>A@ 9\335>A@ :\336>A@ ; <<\203\335 <@\337>\203\304 <AA\211<\202\257 \340>A@\203\323 \341\211<\202\257 \342\343<@\"\210\202\255 )\344\345\346\347=\341 \n \f()*+,-./0123456789:;& .\207" [#1# point row column width height :point :row :column :width :height :min-height :direction :overlays :parent :depth :face :selection-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list (:point :row :column :width :height :min-height :direction :overlays :parent :depth :face :selection-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:point :row :column :width :height :min-height :direction :overlays :parent :depth :face :selection-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list)" cl-defsubst-expand (point row column width height min-height direction overlays parent depth face selection-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list) (block make-popup (vector 'cl-struct-popup point row column width height min-height direction overlays parent depth face selection-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list)) t min-height direction overlays parent depth face selection-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list #:--cl-keys-- cl-whole] 32 "Not documented\n\n(fn CL-WHOLE &cl-quote &key POINT ROW COLUMN WIDTH HEIGHT MIN-HEIGHT DIRECTION OVERLAYS PARENT DEPTH FACE SELECTION-FACE MARGIN-LEFT MARGIN-RIGHT MARGIN-LEFT-CANCEL SCROLL-BAR SYMBOL CURSOR OFFSET SCROLL-TOP CURRENT-HEIGHT LIST NEWLINES PATTERN ORIGINAL-LIST)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@258 Not documented
(fn &key POINT ROW COLUMN WIDTH HEIGHT MIN-HEIGHT DIRECTION OVERLAYS PARENT DEPTH FACE SELECTION-FACE MARGIN-LEFT MARGIN-RIGHT MARGIN-LEFT-CANCEL SCROLL-BAR SYMBOL CURSOR OFFSET SCROLL-TOP CURRENT-HEIGHT LIST NEWLINES PATTERN ORIGINAL-LIST)
(defalias 'make-popup #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ &\314>A@ '\315>A@ (\316>A@ )\317>A@ *\320>A@ +\321>A@ ,\322>A@ -\323>A@ .\324>A@ /\325>A@ 0\326>A@ 1\327>A@ 2\330>A@ 3\331>A@ 4\332>A@ 5\333>A@ 6\334>A@ 7\335>A@ 8\336>A@ 9 ::\203\335 :@\337>\203\304 :AA\211:\202\257 \340>A@\203\323 \341\211:\202\257 \342\343:@\"\210\202\255 )\344\345 \n \f&'()*+,-./0123456789&.\207" [#1# point row column width height :point :row :column :width :height :min-height :direction :overlays :parent :depth :face :selection-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list (:point :row :column :width :height :min-height :direction :overlays :parent :depth :face :selection-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:point :row :column :width :height :min-height :direction :overlays :parent :depth :face :selection-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list)" vector cl-struct-popup min-height direction overlays parent depth face selection-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list #2=#:--cl-keys--] 28 (#$ . 27121)])
(byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\210\304\330\317\315#\210\304\331\317\315#\210\304\332\317\315#\210\304\333\317\315#\210\304\334\317\315#\210\304\335\317\315#\210\304\336\317\315#\210\304\337\317\315#\210\304\340\317\315#\210\304\341\317\315#\210\304\342\317\315#\210\304\343\317\315#\210\304\344\317\315#\210\304\345\317\315#\210\304\346\317\315#\210\304\347\317\315#\210\304\350\317\315#\210\304\351\317\315#\210\304\352\317\315#\210\304\353\317\315#\207" [custom-print-functions cl-struct-popup-tags #[(cl-x cl-s cl-n) "\303!\205\246G\304Y\205\246\305H >\205\246\306\307\n\"\210\306\310\n\"\210\311\305H >\204, \312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D \312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\ \312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t \312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214 \312\327!\210\330H\n\"\210\306\331\n\"\210\311\305H >\204\244 \312\332!\210\333H\n\"\210\306\334\n\"\210\311\305H >\204\274 \312\335!\210\336H\n\"\210\306\337\n\"\210\311\305H >\204\324 \312\340!\210\341H\n\"\210\306\342\n\"\210\311\305H >\204\354 \312\343!\210\344H\n\"\210\306\345\n\"\210\311\305H >\204\312\346!\210\347H\n\"\210\306\350\n\"\210\311\305H >\204 \312\351!\210\352H\n\"\210\306\353\n\"\210\311\305H >\2044\312\354!\210\355H\n\"\210\306\356\n\"\210\311\305H >\204L\312\357!\210\360H\n\"\210\306\361\n\"\210\311\305H >\204d\312\362!\210\363H\n\"\210\306\364\n\"\210\311\305H >\204|\312\365!\210\366H\n\"\210\306\367\n\"\210\311\305H >\204\224\312\370!\210\371H\n\"\210\306\372\n\"\210\311\305H >\204\254\312\373!\210\374H\n\"\210\306\375\n\"\210\311\305H >\204\304\312\376!\210\377H\n\"\210\306\201@ \n\"\210\311\305H >\204\340\312\201A !\210\201B H\n\"\210\306\201C \n\"\210\311\305H >\204\376\312\201D !\210\201E H\n\"\210\306\201F \n\"\210\311\305H >\204 \312\201G !\210\201H H\n\"\210\306\201I \n\"\210\311\305H >\204:\312\201J !\210\201K H\n\"\210\306\201L \n\"\210\311\305H >\204X\312\201M !\210\201N H\n\"\210\306\201O \n\"\210\311\305H >\204v\312\201P !\210\201Q H\n\"\210\306\201R \n\"\210\311\305H >\204\224\312\201S !\210\201T H\n\"\210\306\201U \n\"\210\201V \207" [cl-x cl-struct-popup-tags cl-s vectorp 26 0 princ "#S(popup" " point" prin1 error "popup-point accessing a non-popup" 1 " row" "popup-row accessing a non-popup" 2 " column" "popup-column accessing a non-popup" 3 " width" "popup-width accessing a non-popup" 4 " height" "popup-height accessing a non-popup" 5 " min-height" "popup-min-height accessing a non-popup" 6 " direction" "popup-direction accessing a non-popup" 7 " overlays" "popup-overlays accessing a non-popup" 8 " parent" "popup-parent accessing a non-popup" 9 " depth" "popup-depth accessing a non-popup" 10 " face" "popup-face accessing a non-popup" 11 " selection-face" "popup-selection-face accessing a non-popup" 12 " margin-left" "popup-margin-left accessing a non-popup" 13 " margin-right" "popup-margin-right accessing a non-popup" 14 " margin-left-cancel" "popup-margin-left-cancel accessing a non-popup" 15 " scroll-bar" "popup-scroll-bar accessing a non-popup" 16 " symbol" "popup-symbol accessing a non-popup" 17 " cursor" "popup-cursor accessing a non-popup" 18 " offset" "popup-offset accessing a non-popup" 19 " scroll-top" "popup-scroll-top accessing a non-popup" 20 " current-height" "popup-current-height accessing a non-popup" 21 " list" "popup-list accessing a non-popup" 22 " newlines" "popup-newlines accessing a non-popup" 23 " pattern" "popup-pattern accessing a non-popup" 24 " original-list" "popup-original-list accessing a non-popup" 25 ")" t] 3] cl-struct-popup put popup cl-struct-slots ((cl-tag-slot) (point) (row) (column) (width) (height) (min-height) (direction) (overlays) (parent) (depth) (face) (selection-face) (margin-left) (margin-right) (margin-left-cancel) (scroll-bar) (symbol) (cursor) (offset) (scroll-top) (current-height) (list) (newlines) (pattern) (original-list)) 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-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-selection-face popup-face popup-depth popup-parent popup-overlays popup-direction popup-min-height popup-height popup-width popup-column popup-row popup-point] 4)
#@84 Same to `propertize` but this avoids overriding existed value with `nil` property.
(defalias 'popup-item-propertize #[(item &rest properties) "\304 \203( \211A@)\203 @B \211A@)B \211AA)\211\204 \305\306\307 !\237#)\207" [props properties x item nil apply propertize popup-x-to-string] 5 (#$ . 33749)])
(defalias 'popup-item-property #[(item property) ";\205\n \302\303 #\207" [item property get-text-property 0] 4])
#@152 Utility function to make popup item.
See also `popup-item-propertize'.
(fn NAME &key VALUE POPUP-FACE SELECTION-FACE SUBLIST DOCUMENT SYMBOL SUMMARY)
(defalias 'popup-make-item #[(name &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ \314>A@ \203_ @\315>\203F AA\211\2021 \316>A@\203U \317\211\2021 \320\321@\"\210\202/ )\322\301 \302\n\303 \305\323\324\304\f&.\207" [#1# value popup-face selection-face sublist document :value :popup-face :selection-face :sublist :document :symbol :summary (:value :popup-face :selection-face :sublist :document :symbol :summary :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:value :popup-face :selection-face :sublist :document :symbol :summary)" popup-item-propertize symbol summary #2=#:--cl-keys-- name] 17 (#$ . 34188)])
(defalias 'popup-item-value #[(item) "\301\302\"\207" [item popup-item-property value] 3])
(put 'popup-item-value 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'popup-item-value-or-self #[(item) "\301\302\")\206 \207" [item popup-item-property value] 3])
(put 'popup-item-value-or-self 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'popup-item-popup-face #[(item) "\301\302\"\207" [item popup-item-property popup-face] 3])
(put 'popup-item-popup-face 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'popup-item-selection-face #[(item) "\301\302\"\207" [item popup-item-property selection-face] 3])
(put 'popup-item-selection-face 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'popup-item-document #[(item) "\301\302\"\207" [item popup-item-property document] 3])
(put 'popup-item-document 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'popup-item-summary #[(item) "\301\302\"\207" [item popup-item-property summary] 3])
(put 'popup-item-summary 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'popup-item-symbol #[(item) "\301\302\"\207" [item popup-item-property symbol] 3])
(put 'popup-item-symbol 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'popup-item-sublist #[(item) "\301\302\"\207" [item popup-item-property sublist] 3])
(put 'popup-item-sublist 'byte-optimizer 'byte-compile-inline-expand)
(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 #[(item &optional persist) "\205 \204 \302\213\207\303!\207" [item persist ((byte-code "\301!\205 \302\303\215\207" [item popup-item-show-help-1 --cl-block-nil-- (byte-code "\303 \210\304\305!\306!\307 \310\"\203 \311 \210\2020 \307 \312\"\203& \313\305!\210\2020 \314\n\"\315\316\305\"\210*\202 " [key #1=#:--cl-var-- unread-command-events clear-this-command-keys read-key-sequence-vector nil key-binding memql 'scroll-other-window scroll-other-window 'scroll-other-window-down scroll-other-window-down append throw --cl-block-nil--] 3)] 2)) popup-item-show-help-1] 2])
(defalias 'popup-set-list #[(popup list) "\303 \"\210\304H\n>\204 \305\306!\210\307\310I\210\304H\n>\204\" \305\311!\210\312 I\207" [popup list cl-struct-popup-tags popup-set-filtered-list 0 error "popup-pattern storing a non-popup" 24 nil "popup-original-list storing a non-popup" 25] 3])
(defalias 'popup-set-filtered-list #[(popup list) "\304H >\204\f \305\306!\210\307\nI\210\304H >\204 \305\310!\210\311H\304V\203) \304\202= \304H >\2045 \305\312!\210\313H\nGZ\304]\304H >\204J \305\314!\210\315 I)\207" [popup cl-struct-popup-tags list #1=#:--cl-store-- 0 error "popup-list storing a non-popup" 22 "popup-direction accessing a non-popup" 7 "popup-height accessing a non-popup" 5 "popup-offset storing a non-popup" 19] 3])
(defalias 'popup-selected-item #[(popup) "\302H >\204\f \303\304!\210\305H\302H >\204 \303\306!\210\307H8\207" [popup cl-struct-popup-tags 0 error "popup-cursor accessing a non-popup" 18 "popup-list accessing a non-popup" 22] 3])
(defalias 'popup-selected-line #[(popup) "\302H >\204\f \303\304!\210\305H\302H >\204 \303\306!\210\307HZ\207" [popup cl-struct-popup-tags 0 error "popup-cursor accessing a non-popup" 18 "popup-scroll-top accessing a non-popup" 20] 3])
(defalias 'popup-line-overlay #[(popup line) "\303H >\204\f \304\305!\210\306H\nH\207" [popup cl-struct-popup-tags line 0 error "popup-overlays accessing a non-popup" 8] 2])
(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])
(defalias 'popup-set-line-item #[(popup line item face margin-left margin-right scroll-bar-char symbol summary) "\306 \"\307\310 !\f& \311 \312\n\313\" \312\n\314\" \f\315 \316\317#\2039 \320\317#\203d \320\317#\211\203d \321\317%\210\320\317#\211\204> \203v \321G\317%\210\312\n\322\"\204\226 \323\n\324 \311\325OP#\210\315 \325\315O\260\323\n\326 \fR#.\207" [popup line overlay item margin-left margin-right popup-line-overlay popup-create-line-string popup-x-to-string 0 overlay-get prefix postfix nil get-text-property face next-single-property-change put-text-property dangle overlay-put display 1 after-string symbol summary content start end scroll-bar-char] 8])
(defalias 'popup-create-line-string #[(popup string margin-left margin-right symbol summary) "\306H >\204\f \307\310!\210\311H\312 ! \313\n\f\306V\203# \f\314\\\202$ \306Z\"@ \312! \n\315\316\n\n\f#\306]\317\" \260,\207" [popup cl-struct-popup-tags popup-width summary summary-width string 0 error "popup-width accessing a non-popup" 4 string-width popup-substring-by-width 2 make-string - 32 margin-left symbol margin-right] 7])
(defalias 'popup-live-p #[(popup) "\205 \302H >\204 \303\304!\210\305H\205 \306\207" [popup cl-struct-popup-tags 0 error "popup-overlays accessing a non-popup" 8 t] 2])
(defalias 'popup-child-point #[(popup &optional offset) "\302\303 \206\n \304!\"!\207" [popup offset overlay-end popup-line-overlay popup-selected-line] 5])
#@176 Not documented
(fn POINT WIDTH HEIGHT &key MIN-HEIGHT AROUND (FACE (quote popup-face)) (SELECTION-FACE face) SCROLL-BAR MARGIN-LEFT MARGIN-RIGHT SYMBOL PARENT PARENT-OFFSET)
(defalias 'popup-create #[(point width height &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>\206 \311A@\312>\206 \313 DA@ \314>A@ \315>A@ @\316>A@ A\317>A@ B\320>A@ C\321>A@ D EE\203~ E@\322>\203e EAA\211E\202P \323>A@\203t \313\211E\202P \324\325E@\"\210\202N )@\204\207 \326@A\204\217 \326AF\204\245 C\203\242 \327CD\"\202\243 `F\212Fb\210\330 G\331 H\332I\313\" J\333:\203\304 \334\202\305 \326@AB\203\322 \335\202\323 \326% K\313 L\336 6\337 \340 \341 !HK\\\211 M!V\205\374 MKY NC?\205 HKY OC\203%C\326HP>\204 \324\342!\210C\343H\206XGIV\203WI\334\344\345 Q\203<\334\202=\326R\203F\334\202G\326#]\346 `\"ZV\203W\347\202X\334 SC\203uC\326HP>\204m\324\350!\210C\351HT\202v\326 T\326I\346Fd\"Z\n\203\211\334\202\212\326\\] U\313 VU\326V\203\260\212\352\313\353 W X Y\354\216db\210\355U\351\"c\210-N\203\374O\203\323H\344K@A#ZH\n\204\356H!\210\202Z\204\362K!HZZT [K[ZK:[Z:)H@ZH\202H@ZHC\204 H\326W\203 \326HK@ZK\352LI\326 \\ ]\\]W\203 \313\211\211\352\357\211 9 8 7 ^ _ `\n\203_a\360Y\203S\361HSB!\210\202_\361S!\210\356iH\\!\210\352\331 \211VHV\203s\347u\210\331 VVHW\203\225\355V\326U\203\212 iZ\202\213\326HVZ\\\362\"8`_K8G\\^l\204\275^\326V\203\275\3137^\363\313f!Z^\313u\210\202\240^\326W\203\314\355^[\362\"9\364_`\"`\365`\3666#\210\365`\3677#\210\365`\3708#\210\365`\3719#\210\365`\372:#\210JS\326V\203 \\\202\344I\\\334#`I\210.\\T\211\\\202%*\373T\374_Z b\375J\313\"\237 c\313 `c:\203Tc@`\365`\376b#\210bTbcA\211c\2025+\377\201f FGH:I SJCT \f@ALB\326\313\326\211\313U\313\211&\211 deBed. \207" [#1# min-height around face selection-face scroll-bar :min-height :around :face (nil popup-face) :selection-face nil :scroll-bar :margin-left :margin-right :symbol :parent :parent-offset (:min-height :around :face :selection-face :scroll-bar :margin-left :margin-right :symbol :parent :parent-offset :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:min-height :around :face :selection-face :scroll-bar :margin-left :margin-right :symbol :parent :parent-offset)" 0 popup-child-point line-number-at-pos popup-current-physical-column make-vector + 1 2 selected-window window-start window-hscroll window-width "popup-direction accessing a non-popup" 7 - window-height count-lines -1 "popup-depth accessing a non-popup" 10 t buffer-modified-p ((set-buffer-modified-p modified)) make-string move-to-column "" 23 vertical-motion 32 char-width make-overlay overlay-put window dangle prefix postfix width 10000 1000 append priority vector margin-left margin-right symbol parent parent-offset #2=#:--cl-keys-- point row column height overlays popup-width margin-left-cancel right overflow foldable cl-struct-popup-tags mode-line-format header-line-format direction depth newlines current-column modified buffer-read-only buffer-undo-list truncate-lines d i #3=#:--cl-dotimes-temp-- w begin overlay emacs-major-version p #4=#:--cl-var-- it popup-instances cl-struct-popup] 29 (#$ . 40825)])
(defalias 'popup-delete #[(popup) "\306!\203} \307!\210\310\311\312H >\204 \313\314!\210\315H\"\210\312H >\204) \313\316!\210\315\317I\210\320\n\"\312H >\204? \313\321!\210\322H\211\312V\203| \212\323\317\324 \325\216db\210 \312 W\203z `Sf\326U\203q \327\330!\210T\211\202_ .)\317\207" [popup cl-struct-popup-tags popup-instances newlines modified buffer-read-only popup-live-p popup-hide mapc delete-overlay 0 error "popup-overlays accessing a non-popup" 8 "popup-overlays storing a non-popup" nil delq "popup-newlines accessing a non-popup" 23 t buffer-modified-p ((set-buffer-modified-p modified)) 10 delete-char -1 buffer-undo-list i #1=#:--cl-dotimes-temp--] 5])
(defalias 'popup-draw #[(popup) "\306H >\204\f \307\310!\210\311H\306H >\204 \307\312!\210\313H\306H >\204, \307\314!\210\315H \306H >\204< \307\316!\210\317H \306H >\204L \307\320!\210\321H\211 4G 5\n\211_5\322]\245\322] 6\3235\322]\\\n\245 7\306H >\204w \307\324!\210\325H 8\326\306H >\204\211 \307\327!\210\330H\203\223 \306\202\242 \306H >\204\237 \307\331!\210\332H\333\" 9\326\306H >\204\263 \307\334!\210\335H\333\" :\306H >\204\306 \307\336!\210\337H ,\306H >\204\327 \307\340!\210\341H ;\306H >\204\350 \307\342!\210\343H <\306H >\204\371 \307\344!\210\345H\211 = >< ?<4\233 @\346\211 A B\346\211 * C\346\211 D E\346 ->\nW\203\376@:\203\376@@A6>6\245_B?;U\203VA A\347A\305\")\206d\202dA A\347A\304\")\206d\f*\350\351\352*#C8\203\2517\322X\203C\202\2527\322V\203\244;B7_Y\203\244;B6\\7_W\203\244F\202\252G\202\252\353D,\203\304\351A A\347A\354\")\206\300\351P\202\305\353EA A\347A\355\")\206\325\353-\356>A*9:DE-& \210>T>?T?@A@\202!\306H >\204\n\307\357!\210\360>=ZI\2108\203 \350\351\352\f#\202!\353,\203*\351\202+\353 , D\306H >\204;\307\361!\210\362H\306V\203 \203i> W\203i\356>\353\f9:D,\353& \210>T\211>\202I>\nW\203\316\363>\"\210>T\211>\202k \203\211\n Z\202\213= H\306 >= I>IW\203\315>HW\203\252\363>\"\210>HY\203\304\356>\353\f9:D,\353& \210>T\211>\202\226+.\346\207" [popup cl-struct-popup-tags height min-height popup-face selection-face 0 error "popup-height accessing a non-popup" 5 "popup-min-height accessing a non-popup" 6 "popup-face accessing a non-popup" 11 "popup-selection-face accessing a non-popup" 12 "popup-list accessing a non-popup" 22 1 0.0 "popup-scroll-bar accessing a non-popup" 16 make-string "popup-margin-left-cancel accessing a non-popup" 15 "popup-margin-left accessing a non-popup" 13 32 "popup-margin-right accessing a non-popup" 14 "popup-symbol accessing a non-popup" 17 "popup-cursor accessing a non-popup" 18 "popup-scroll-top accessing a non-popup" 20 "popup-offset accessing a non-popup" 19 nil popup-item-property propertize " " face "" symbol summary popup-set-line-item "popup-current-height storing a non-popup" 21 "popup-direction accessing a non-popup" 7 popup-hide-line list length thum-size page-size scroll-bar margin-left margin-right cursor scroll-top offset o i #1=#:--cl-var-- item page-index empty-char scroll-bar-char sym popup-scroll-bar-foreground-char popup-scroll-bar-background-char h #2=#:--cl-var--] 12])
(defalias 'popup-hide #[(popup) "\304H >\204\f \305\306!\210\307H\304\n W\203$ \310\n\"\210\nT\211\202 *\311\207" [popup cl-struct-popup-tags i #1=#:--cl-dotimes-temp-- 0 error "popup-height accessing a non-popup" 5 popup-hide-line nil] 4])
(defalias 'popup-hidden-p #[(popup) "\305\306 !\2031 \307H\n>\204 \310\311!\210 \312H\307 \fW\2030 \313 \"\204) \314 T\211\202 *)\207" [hidden popup cl-struct-popup-tags i #1=#:--cl-dotimes-temp-- t popup-live-p 0 error "popup-height accessing a non-popup" 5 popup-line-hidden-p nil] 4])
(defalias 'popup-select #[(popup i) " \303H\n>\204 \304\305!\210 \306H\\\303X\205B \303H\n>\204% \304\307!\210 \310HW\205B \303H\n>\2048 \304\311!\210 \312I\210\313 !\210\314\207" [i popup cl-struct-popup-tags 0 error "popup-offset accessing a non-popup" 19 "popup-height accessing a non-popup" 5 "popup-cursor storing a non-popup" 18 popup-draw t] 3])
(defalias 'popup-next #[(popup) "\306H >\204\f \307\310!\210\311H\306H >\204 \307\312!\210\313HT\306H >\204+ \307\314!\210\315H\306H >\204: \307\316!\210\317HG \f\nY\203O \306\211\202` \f \\U\203` T\nZ\306]^\306H >\204l \307\320!\210\313\fI\210\306H >\204} \307\321!\210\315 I\210\322!,\207" [popup cl-struct-popup-tags length scroll-top cursor height 0 error "popup-height accessing a non-popup" 5 "popup-cursor accessing a non-popup" 18 "popup-scroll-top accessing a non-popup" 20 "popup-list accessing a non-popup" 22 "popup-cursor storing a non-popup" "popup-scroll-top storing a non-popup" popup-draw] 6])
(defalias 'popup-previous #[(popup) "\306H >\204\f \307\310!\210\311H\306H >\204 \307\312!\210\313HS\306H >\204+ \307\314!\210\315H\306H >\204: \307\316!\210\317HG \f\306W\203T \nS\nZ\306]\202^ \f SU\203^ S\306H >\204j \307\320!\210\313\fI\210\306H >\204{ \307\321!\210\315 I\210\322!,\207" [popup cl-struct-popup-tags length scroll-top cursor height 0 error "popup-height accessing a non-popup" 5 "popup-cursor accessing a non-popup" 18 "popup-scroll-top accessing a non-popup" 20 "popup-list accessing a non-popup" 22 "popup-cursor storing a non-popup" "popup-scroll-top storing a non-popup" popup-draw] 5])
(defalias 'popup-scroll-down #[(popup &optional n) "\304H >\204\f \305\306!\210\307H\n\206 \310\\\304H >\204! \305\311!\210\312HG\304H >\2041 \305\313!\210\314HZ^\304H >\204C \305\315!\210\316 I\210\304H >\204T \305\317!\210\307 I\210\320!)\207" [popup cl-struct-popup-tags n scroll-top 0 error "popup-scroll-top accessing a non-popup" 20 1 "popup-list accessing a non-popup" 22 "popup-height accessing a non-popup" 5 "popup-cursor storing a non-popup" 18 "popup-scroll-top storing a non-popup" popup-draw] 4])
(defalias 'popup-scroll-up #[(popup &optional n) "\304H >\204\f \305\306!\210\307H\n\206 \310Z\304]\304H >\204$ \305\311!\210\312 I\210\304H >\2045 \305\313!\210\307 I\210\314!)\207" [popup cl-struct-popup-tags n scroll-top 0 error "popup-scroll-top accessing a non-popup" 20 1 "popup-cursor storing a non-popup" 18 "popup-scroll-top storing a non-popup" popup-draw] 3])
(byte-code "\302\303\304\305\306\307%\210\310B\311\310!\204 \312\310\313\"\210\314B\311\314!\204< \312\314\315 \316 \317\320#\210\316 \321\322#\210\316 \323\322#\210 )\"\210\302\207" [current-load-list map custom-declare-face popup-isearch-match ((t (:background "sky blue"))) "Popup isearch match face." :group popup popup-isearch-cursor-color default-boundp set-default "blue" popup-isearch-keymap make-sparse-keymap define-key "" popup-isearch-cancel "" popup-isearch-delete ""] 6)
(defalias 'popup-isearch-char-p #[(char) "\250\205 \301X\205 \302X\207" [char 32 126] 2])
(put 'popup-isearch-char-p 'byte-optimizer 'byte-compile-inline-expand)
(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!\210\310HG\305U\203 \311\n\312\313#\202 \n\"\207" [popup cl-struct-popup-tags pattern format "Pattern: %s" 0 error "popup-list accessing a non-popup" 22 propertize face isearch-fail] 6])
(defalias 'popup-isearch-update #[(popup pattern &optional callback) "\305H >\204\f \306\307!\210\310\305I\210\305H >\204 \306\311!\210\312\305I\210\305H >\204. \306\313!\210\314\nI\210\315\n\305H >\204A \306\316!\210\317H\"\320 \"\210\f\203S \f !\210)\321!\207" [popup cl-struct-popup-tags pattern list callback 0 error "popup-cursor storing a non-popup" 18 "popup-scroll-top storing a non-popup" 20 "popup-pattern storing a non-popup" 24 popup-isearch-filter-list "popup-original-list accessing a non-popup" 25 popup-set-filtered-list popup-draw] 4])
#@125 Not documented
(fn POPUP &key (CURSOR-COLOR popup-isearch-cursor-color) (KEYMAP popup-isearch-keymap) CALLBACK HELP-DELAY)
(defalias 'popup-isearch #[(popup &rest #1=#:--cl-rest--) "\306>\206 \307 DA@\310>\206 \307 DA@ \311>A@ \312>A@ \203X @\313>\203? AA\211 \202* \314>A@\203N \307\211 \202* \315\316 @\"\210\202( ) \317H >\204g \315\320!\210 \321H \317H >\204y \315\322!\210 \323H\206\201 \324\325\326 \302\"\307\211\211\211 ! \" # $ % &\327\216\330\331\215?\205\251 \332 \324#\210\333.\f\207" [#1# popup-isearch-cursor-color cursor-color popup-isearch-keymap keymap callback :cursor-color nil :keymap :callback :help-delay (:cursor-color :keymap :callback :help-delay :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:cursor-color :keymap :callback :help-delay)" 0 "popup-original-list accessing a non-popup" 25 "popup-pattern accessing a non-popup" 24 "" 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_ \nP\202\244 \321=\203n \322\323\324\"\210\202\244 \325=\203} \322\323\311\"\210\202\244 \326=\203\225 \nG\316V\203\244 \n\316\nGSO\202\244 \327\330! \" \322\323\324\"\210\331 \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-- t popup-isearch-cancel popup-isearch-delete append listify-key-sequence popup-isearch-update key popup-menu-show-quick-help-function unread-command-events binding char callback] 6) popup-isearch-update t help-delay #2=#:--cl-keys-- popup cl-struct-popup-tags done binding key prompt old-cursor-color pattern list] 8 (#$ . 52468)])
(byte-code "\301\302\303\304\305\306%\210\307B\310\307!\204 \311\307\312\"\210\301\207" [current-load-list custom-declare-face popup-tip-face ((t (:background "khaki1" :foreground "black"))) "Face for popup tip." :group popup popup-tip-max-width default-boundp set-default 80] 6)
#@182 Not documented
(fn STRING &key POINT (AROUND t) WIDTH (HEIGHT 15) MIN-HEIGHT TRUNCATE MARGIN MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR PARENT PARENT-OFFSET NOWAIT PROMPT &aux TIP LINES)
(defalias 'popup-tip #[(string &rest #1=#:--cl-rest--) "\306>A@\307>\206 \310A@\311>A@\312>\206 \313A@ \314>A@ \315>A@ ,\316>A@ -\317>A@ .\320>A@ /\321>A@ 0\322>A@ 1\323>A@ 2\324>A@ 3\325>A@ 4\326\211 5 6 77\203\236 7@\327>\203\205 7AA\2117\202p \330>A@\203\224 \326\2117\202p \331\3327@\"\210\202n )\3338!\203\260 r8q\210\334 )8\3358!8-\336=\203\300 \337-.\204\311 -./\204\322 -/\3408 9#\211 :@:A6)\341 \f\314\307\n\317.\320/\3210\342\343\3221\3232&5\344\2165\345H;>\204\331\346!\2105\347H\345V\205u 5\345H;>\204)\331\346!\2105\347H=\204R,\204R5\345H;>\204D\331\346!\2105\347H\3408 \211#A6\35056\"\210\3515!\2103\203h5\202u\352 \210\3534!<B<\336.\207" [#1# point around width height min-height :point :around (nil t) :width :height (nil 15) :min-height :truncate :margin :margin-left :margin-right :scroll-bar :parent :parent-offset :nowait :prompt nil (:point :around :width :height :min-height :truncate :margin :margin-left :margin-right :scroll-bar :parent :parent-offset :nowait :prompt :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:point :around :width :height :min-height :truncate :margin :margin-left :margin-right :scroll-bar :parent :parent-offset :nowait :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 "popup-width accessing a non-popup" 4 popup-set-list popup-draw clear-this-command-keys read-event truncate margin margin-left margin-right scroll-bar parent parent-offset nowait prompt tip lines #2=#:--cl-keys-- string popup-tip-max-width it cl-struct-popup-tags unread-command-events] 22 (#$ . 54747)])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face popup-menu-face ((t (:background "lightgray" :foreground "black"))) "Face for popup menu." :group popup popup-menu-selection-face ((t (:background "steelblue" :foreground "white"))) "Face for popup menu selection."] 6)
#@68 Function used for showing tooltip by `popup-menu-show-quick-help'.
(defvar popup-menu-show-tip-function 'popup-tip (#$ . 57019))
#@56 Function used for showing quick help by `popup-menu*'.
(defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help (#$ . 57154))
(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!\210\n\314H\211 \n\311H >\204) \312\315!\210\n\316H^ \317 \n\311H >\204= \312\320!\210\n\321H \322\n \"\211 ;\205{ \323\n!\203_ \324\317\211\202a \317\317 \325 \307 \310\f\326\327\330\n\331&).\207" [args point menu cl-struct-popup-tags height min-height plist-get :point :height 0 error "popup-height accessing a non-popup" 5 "popup-current-height accessing a non-popup" 21 nil "popup-offset accessing a non-popup" 19 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-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])
#@149 Not documented
(fn MENU KEYMAP FALLBACK &optional PROMPT HELP-DELAY ISEARCH ISEARCH-CURSOR-COLOR ISEARCH-KEYMAP ISEARCH-CALLBACK &aux KEY BINDING)
(defalias 'popup-menu-event-loop #[(menu keymap fallback &optional prompt help-delay isearch isearch-cursor-color isearch-keymap isearch-callback &rest #1=#:--cl-rest--) "\303\211\n\203 \304\305\306\307\nG\\D\"\210\310\311\215*\207" [key binding #1# nil signal wrong-number-of-arguments popup-menu-event-loop 9 --cl-block-nil-- (byte-code "\306!\205e \203 \307\310\n\311 \312\f\313& \203 \314 \210\31545#\2116\204C 7\316\3175$\204 \320 \210\3215!8B8\202 \322\323 6\"\314=\203Q \314 \210\32246\"\2119\324=\203z \325H:>\204l \326\327!\210\330H\203 \331\332\316\"\210\202 9\333>\203\334!\211 ; ;\335;\336\")\211 \203\346 \337 \340\316\341\342\325H:>\204\252 \326\343!\210\344H\345\325H:>\204\273 \326\346!\210\347H\350\325H:>\204\314 \326\351!\210\352H& \211 <\203\342 <\203\342 \331\332<\"\210)\2029\353=\203\331\332;\211 ; ;\335;\354\")\206;)\"\210*\202 9\355=\203\355!\210\202 9\356=\203$\356!\210\202 9\357=\2032\360!\210\202 9\307=\203I\307\310\n\311 \312\f\313& \210\202 \3619!\203X\3629!\210\202 =6\3636!\"\210\202 \207" [menu isearch isearch-cursor-color isearch-keymap isearch-callback help-delay popup-live-p popup-isearch :cursor-color :keymap :callback :help-delay keyboard-quit popup-menu-read-key-sequence nil :prompt clear-this-command-keys read-event lookup-key current-global-map popup-close 0 error "popup-parent accessing a non-popup" 9 throw --cl-block-nil-- (popup-select popup-open) popup-selected-item popup-item-property sublist popup-cascade-menu :around :parent :margin-left "popup-margin-left accessing a non-popup" 13 :margin-right "popup-margin-right accessing a non-popup" 14 :scroll-bar "popup-scroll-bar accessing a non-popup" 16 popup-select value popup-next popup-previous popup-help popup-menu-show-help commandp call-interactively key-binding keymap prompt key popup-menu-show-quick-help-function unread-command-events binding cl-struct-popup-tags item it fallback] 14)] 6 (#$ . 59563)])
#@382 Not documented
(fn LIST &key POINT (AROUND t) (WIDTH (popup-preferred-width list)) (HEIGHT 15) MARGIN MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR SYMBOL PARENT PARENT-OFFSET (KEYMAP popup-menu-keymap) (FALLBACK (quote popup-menu-fallback)) HELP-DELAY PROMPT ISEARCH (ISEARCH-CURSOR-COLOR popup-isearch-cursor-color) (ISEARCH-KEYMAP popup-isearch-keymap) ISEARCH-CALLBACK &aux MENU EVENT)
(defalias 'popup-menu* #[(list &rest #1=#:--cl-rest--) "\306>A@\307>\206 \310A@\311>\206 \312\313 !DA@ \314>\206% \315A@ \316>A@ .\317>A@ /\320>A@ 0\321>A@ 1\322>A@ 2\323>A@ 3\324>A@ 4\325>\206c \3125DA@ 6\326>\206n \327A@ 7\330>A@ 8\331>A@ 9\332>A@ :\333>\206\221 \312;DA@ <\334>\206\237 \312=DA@ >\335>A@ ?\312\211 @ A BB\203\343 B@\336>\203\312 BAA\211B\202\265 \337>A@\203\331 \312\211B\202\265 \340\341B@\"\210\202\263 ).\342=\203\356 \343./\204\367 ./0\204 .01\2030\250\2030\344V\2030S0\345 \f\307\n\346\347\350\351\317/\3200\3211\3222\3233&@\352\216\353@ \"\210\354@!\210\355@6798:<>?& .\207" [#1# point around list width height :point :around (nil t) :width nil popup-preferred-width :height (nil 15) :margin :margin-left :margin-right :scroll-bar :symbol :parent :parent-offset :keymap :fallback (nil popup-menu-fallback) :help-delay :prompt :isearch :isearch-cursor-color :isearch-keymap :isearch-callback (:point :around :width :height :margin :margin-left :margin-right :scroll-bar :symbol :parent :parent-offset :keymap :fallback :help-delay :prompt :isearch :isearch-cursor-color :isearch-keymap :isearch-callback :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:point :around :width :height :margin :margin-left :margin-right :scroll-bar :symbol :parent :parent-offset :keymap :fallback :help-delay :prompt :isearch :isearch-cursor-color :isearch-keymap :isearch-callback)" t 1 0 popup-create :face popup-menu-face :selection-face popup-menu-selection-face ((popup-delete menu)) popup-set-list popup-draw popup-menu-event-loop margin margin-left margin-right scroll-bar symbol parent parent-offset popup-menu-keymap keymap fallback help-delay prompt isearch popup-isearch-cursor-color isearch-cursor-color popup-isearch-keymap isearch-keymap isearch-callback menu event #2=#:--cl-keys--] 21 (#$ . 61725)])
#@72 Same to `popup-menu', but an element of `LIST' can be
list of submenu.
(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 (#$ . 64035)])
(byte-code "\302B\303\302!\204[ \304\302\305 \306 \307\310#\210\306 \311\312#\210\306 \313\312#\210\306 \314\315#\210\306 \316\315#\210\306 \317\320#\210\306 \321\320#\210\306 \322\323#\210\306 \324\323#\210\306 \325\326#\210\306 \327\326#\210\306 \330\331#\210 )\"\210\332\333!\207" [current-load-list map popup-menu-keymap default-boundp set-default make-sparse-keymap define-key "" popup-select "" popup-open [right] "" popup-close [left] "" popup-next [down] "" popup-previous [up] [f1] popup-help "" "" popup-isearch provide popup] 6)