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

Chizi123
2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a
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
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(require 'cl-lib)
(defconst popup-version "0.5.3")
#@103 Determines whether the width desired is
character or window proportion based, And returns the result.
(defalias 'popup-calculate-max-width #[(max-width) "\250\203\207\301!\205\302\303\304 _!\305\245!\306_\207" [max-width floatp ceiling round window-width 10.0 10] 4 (#$ . 460)])
#@89 Use the optimized column computation routine.
If there is a problem, please set it nil.
(defvar popup-use-optimized-column-computation t (#$ . 753))
#@15 Anaphoric if.
(defalias 'popup-aif '(macro . #[(test then &rest else) "\303\304DC\305\304    \nBBBE\207" [test then else let it if] 6 (#$ . 908)]))
(byte-code "\300\301\302\303#\300\207" [function-put popup-aif lisp-indent-function 2] 4)
#@17 Anaphoric when.
(defalias 'popup-awhen '(macro . #[(test &rest body) "\302\303DC\304\303    BBE\207" [test body let it when] 5 (#$ . 1150)]))
(byte-code "\300\301\302\303#\300\207" [function-put popup-awhen lisp-indent-function 1] 4)
#@96 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\301!\207\250\203\302!\207\303!\203#\302!\207\304\305\"\207" [x symbol-name number-to-string floatp format "%s"] 3 (#$ . 1388)])
#@79 Return a cons cell of substring and remaining string by
splitting with WIDTH.
(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)])
#@727 Split STRING into fixed width strings and return a cons cell
like (WIDTH . ROWS). Here, the car WIDTH indicates the actual
maxim width of ROWS.
 
The argument WIDTH specifies the width of filling each
paragraph. WIDTH nil means don't perform any justification and
word wrap. Note that this function doesn't add any padding
characters at the end of each row.
 
MAX-WIDTH, if WIDTH is nil, specifies the maximum number of
columns.
 
The optional fourth argument JUSTIFY specifies which kind of
justification to do: `full', `left', `right', `center', or
`none' (equivalent to nil).  A value of t means handle each
paragraph as specified by its text properties.
 
SQUEEZE nil means leave whitespaces other than line breaks
untouched.
(defalias 'popup-fill-string #[(string &optional width max-width justify squeeze) "\306=\203\n\307\310!\210\203\311\312!r\nq\210\313\216\314\306\315\316\211\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)])
(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]))
(byte-code "\300\301\302\303#\300\207" [function-put popup-save-buffer-state lisp-indent-function 0] 4)
#@42 A portable version of `vertical-motion'.
(defalias 'popup-vertical-motion #[(column direction) "\303Y\203\f\304    \nB!\207\304\n!\210\305i    \\!\207" [emacs-major-version column direction 23 vertical-motion move-to-column] 3 (#$ . 3932)])
#@65 Return non-nil if the cursor is at the last line of the
buffer.
(defalias 'popup-last-line-of-buffer-p #[nil "\212\300\210\300y\301U)?\207" [nil 0] 2 (#$ . 4175)])
(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])
(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)
#@18 Popup instances.
(defvar popup-instances nil (#$ . 5222))
#@38 Foreground character for scroll-bar.
(defvar popup-scroll-bar-foreground-char (propertize " " 'face 'popup-scroll-bar-foreground-face) (#$ . 5286))
#@38 Background character for scroll-bar.
(defvar popup-scroll-bar-background-char (propertize " " 'face 'popup-scroll-bar-background-face) (#$ . 5440))
#@40 compiler-macro for inlining `popup-p'.
(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)])
(put 'popup-p 'compiler-macro 'popup-p--cmacro)
(defalias 'popup-p #[(cl-x) "\302!    >\205    \303\207" [cl-x cl-struct-popup-tags type-of t] 2])
(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)
#@44 compiler-macro for inlining `popup-point'.
(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)])
(put 'popup-point 'compiler-macro 'popup-point--cmacro)
#@45 Access slot "point" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-point side-effect-free t] 4)
#@42 compiler-macro for inlining `popup-row'.
(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)])
(put 'popup-row 'compiler-macro 'popup-row--cmacro)
#@43 Access slot "row" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-row side-effect-free t] 4)
#@45 compiler-macro for inlining `popup-column'.
(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)])
(put 'popup-column 'compiler-macro 'popup-column--cmacro)
#@46 Access slot "column" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-column side-effect-free t] 4)
#@44 compiler-macro for inlining `popup-width'.
(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)])
(put 'popup-width 'compiler-macro 'popup-width--cmacro)
#@45 Access slot "width" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-width side-effect-free t] 4)
#@45 compiler-macro for inlining `popup-height'.
(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)])
(put 'popup-height 'compiler-macro 'popup-height--cmacro)
#@46 Access slot "height" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-height side-effect-free t] 4)
#@49 compiler-macro for inlining `popup-min-height'.
(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)])
(put 'popup-min-height 'compiler-macro 'popup-min-height--cmacro)
#@50 Access slot "min-height" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-min-height side-effect-free t] 4)
#@48 compiler-macro for inlining `popup-direction'.
(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)])
(put 'popup-direction 'compiler-macro 'popup-direction--cmacro)
#@49 Access slot "direction" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-direction side-effect-free t] 4)
#@47 compiler-macro for inlining `popup-overlays'.
(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)])
(put 'popup-overlays 'compiler-macro 'popup-overlays--cmacro)
#@48 Access slot "overlays" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-overlays side-effect-free t] 4)
#@45 compiler-macro for inlining `popup-keymap'.
(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)])
(put 'popup-keymap 'compiler-macro 'popup-keymap--cmacro)
#@46 Access slot "keymap" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-keymap side-effect-free t] 4)
#@45 compiler-macro for inlining `popup-parent'.
(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)])
(put 'popup-parent 'compiler-macro 'popup-parent--cmacro)
#@46 Access slot "parent" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-parent side-effect-free t] 4)
#@44 compiler-macro for inlining `popup-depth'.
(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)])
(put 'popup-depth 'compiler-macro 'popup-depth--cmacro)
#@45 Access slot "depth" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-depth side-effect-free t] 4)
#@43 compiler-macro for inlining `popup-face'.
(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)])
(put 'popup-face 'compiler-macro 'popup-face--cmacro)
#@44 Access slot "face" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-face side-effect-free t] 4)
#@49 compiler-macro for inlining `popup-mouse-face'.
(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)])
(put 'popup-mouse-face 'compiler-macro 'popup-mouse-face--cmacro)
#@50 Access slot "mouse-face" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-mouse-face side-effect-free t] 4)
#@53 compiler-macro for inlining `popup-selection-face'.
(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)])
(put 'popup-selection-face 'compiler-macro 'popup-selection-face--cmacro)
#@54 Access slot "selection-face" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-selection-face side-effect-free t] 4)
#@51 compiler-macro for inlining `popup-summary-face'.
(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)])
(put 'popup-summary-face 'compiler-macro 'popup-summary-face--cmacro)
#@52 Access slot "summary-face" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-summary-face side-effect-free t] 4)
#@50 compiler-macro for inlining `popup-margin-left'.
(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)])
(put 'popup-margin-left 'compiler-macro 'popup-margin-left--cmacro)
#@51 Access slot "margin-left" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-margin-left side-effect-free t] 4)
#@51 compiler-macro for inlining `popup-margin-right'.
(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)])
(put 'popup-margin-right 'compiler-macro 'popup-margin-right--cmacro)
#@52 Access slot "margin-right" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-margin-right side-effect-free t] 4)
#@57 compiler-macro for inlining `popup-margin-left-cancel'.
(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)])
(put 'popup-margin-left-cancel 'compiler-macro 'popup-margin-left-cancel--cmacro)
#@58 Access slot "margin-left-cancel" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-margin-left-cancel side-effect-free t] 4)
#@49 compiler-macro for inlining `popup-scroll-bar'.
(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)])
(put 'popup-scroll-bar 'compiler-macro 'popup-scroll-bar--cmacro)
#@50 Access slot "scroll-bar" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-scroll-bar side-effect-free t] 4)
#@45 compiler-macro for inlining `popup-symbol'.
(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)])
(put 'popup-symbol 'compiler-macro 'popup-symbol--cmacro)
#@46 Access slot "symbol" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-symbol side-effect-free t] 4)
#@45 compiler-macro for inlining `popup-cursor'.
(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)])
(put 'popup-cursor 'compiler-macro 'popup-cursor--cmacro)
#@46 Access slot "cursor" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-cursor side-effect-free t] 4)
#@45 compiler-macro for inlining `popup-offset'.
(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)])
(put 'popup-offset 'compiler-macro 'popup-offset--cmacro)
#@46 Access slot "offset" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-offset side-effect-free t] 4)
#@49 compiler-macro for inlining `popup-scroll-top'.
(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)])
(put 'popup-scroll-top 'compiler-macro 'popup-scroll-top--cmacro)
#@50 Access slot "scroll-top" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-scroll-top side-effect-free t] 4)
#@53 compiler-macro for inlining `popup-current-height'.
(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)])
(put 'popup-current-height 'compiler-macro 'popup-current-height--cmacro)
#@54 Access slot "current-height" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-current-height side-effect-free t] 4)
#@43 compiler-macro for inlining `popup-list'.
(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)])
(put 'popup-list 'compiler-macro 'popup-list--cmacro)
#@44 Access slot "list" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-list side-effect-free t] 4)
#@47 compiler-macro for inlining `popup-newlines'.
(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)])
(put 'popup-newlines 'compiler-macro 'popup-newlines--cmacro)
#@48 Access slot "newlines" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-newlines side-effect-free t] 4)
#@46 compiler-macro for inlining `popup-pattern'.
(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)])
(put 'popup-pattern 'compiler-macro 'popup-pattern--cmacro)
#@47 Access slot "pattern" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-pattern side-effect-free t] 4)
#@52 compiler-macro for inlining `popup-original-list'.
(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)])
(put 'popup-original-list 'compiler-macro 'popup-original-list--cmacro)
#@53 Access slot "original-list" of `popup' struct CL-X.
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put popup-original-list side-effect-free t] 4)
#@53 compiler-macro for inlining `popup-invis-overlays'.
(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)])
(put 'popup-invis-overlays 'compiler-macro 'popup-invis-overlays--cmacro)
#@54 Access slot "invis-overlays" of `popup' struct CL-X.
(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)])
(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)
#@350 compiler-macro for inlining `make-popup'.
 
(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)
(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)])
(put 'make-popup 'compiler-macro 'make-popup--cmacro)
#@330 Constructor for objects of type `popup'.
 
(fn &key POINT ROW COLUMN WIDTH HEIGHT MIN-HEIGHT DIRECTION OVERLAYS KEYMAP PARENT DEPTH FACE MOUSE-FACE SELECTION-FACE SUMMARY-FACE MARGIN-LEFT MARGIN-RIGHT MARGIN-LEFT-CANCEL SCROLL-BAR SYMBOL CURSOR OFFSET SCROLL-TOP CURRENT-HEIGHT LIST NEWLINES PATTERN ORIGINAL-LIST INVIS-OVERLAYS)
(defalias 'make-popup #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@+\306\315\"A@,\306\316\"A@-\306\317\"A@.\306\320\"A@/\306\321\"A@0\306\322\"A@1\306\323\"A@2\306\324\"A@3\306\325\"A@4\306\326\"A@5\306\327\"A@6\306\330\"A@7\306\331\"A@8\306\332\"A@9\306\333\"A@:\306\334\"A@;\306\335\"A@<\306\336\"A@=\306\337\"A@>\306\340\"A@?\306\341\"A@@\306\342\"A@A\306\343\"A@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)])
(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)
#@92 Same as `propertize' except that this avoids overriding
existed value with `nil' property.
(defalias 'popup-item-propertize #[(item &rest properties) "\306\211\306\211    :\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)])
#@81 Same as `get-text-property' except that this returns nil if
ITEM is not string.
(defalias 'popup-item-property #[(item property) ";\205\n\302\303    #\207" [item property get-text-property 0] 4 (#$ . 32477)])
#@157 Utility function to make popup item. See also
`popup-item-propertize'.
 
(fn NAME &key VALUE FACE MOUSE-FACE SELECTION-FACE SUBLIST DOCUMENT SYMBOL SUMMARY)
(defalias 'popup-make-item #[(name &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\203n@\317>\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)])
(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-face #[(item) "\301\302\"\207" [item popup-item-property popup-face] 3])
(put 'popup-item-face 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'popup-item-mouse-face #[(item) "\301\302\"\207" [item popup-item-property popup-mouse-face] 3])
(put 'popup-item-mouse-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\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])
(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])
#@247 Display the documentation of ITEM with `display-buffer'. If
PERSIST is nil, the documentation buffer will be closed
automatically, meaning interal event loop ensures the buffer to
be closed. Otherwise, the buffer will be just displayed as
usual.
(defalias 'popup-item-show-help #[(item &optional persist) "\205    \204\f\302!\207\303!\207" [item persist popup-item-show-help-with-event-loop popup-item-show-help-1] 2 (#$ . 36283)])
(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])
(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])
(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])
(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])
(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])
(defalias 'popup-selected-line-overlay #[(popup) "\301\302!\"\207" [popup popup-line-overlay popup-selected-line] 4])
(defalias 'popup-hide-line #[(popup line) "\303    \"\304\n\305\306#\210\304\n\307\306#)\207" [popup line overlay popup-line-overlay overlay-put display nil after-string] 4])
(defalias 'popup-line-hidden-p #[(popup line) "\303    \"\304\n\305\"\306=\205\304\n\307\"\306=)\207" [popup line overlay popup-line-overlay overlay-get display nil after-string] 3])
#@121 
 
(fn POPUP LINE &key ITEM FACE MOUSE-FACE MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR-CHAR SYMBOL SUMMARY SUMMARY-FACE KEYMAP)
(defalias 'popup-set-line-item #[(popup line &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@&\306\315\"A@'\306\316\"A@(\306\317\"A@)\306\320\"A@**\203~*@\321>\203e*AA\211*\202P\322>A@\203t\323\211*\202P\324\325*@\"\210\202N)\326+,\"-\327+\330    !\312\f\313 \315'\316(\317)&\f.\331/\332-\333\"\332-\334\"\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)])
#@79 
 
(fn POPUP STRING &key MARGIN-LEFT MARGIN-RIGHT SYMBOL SUMMARY SUMMARY-FACE)
(defalias 'popup-create-line-string #[(popup string &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@  \203V @\314>\203= AA\211 \202(\315>A@\203L\316\211 \202(\317\320 @\"\210\202&)\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)])
#@35 Return non-nil if POPUP is alive.
(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)])
(defalias 'popup-child-point #[(popup &optional offset) "\302\303    \206\n\304!\"!\207" [popup offset overlay-end popup-line-overlay popup-selected-line] 5])
#@143 Return a proper direction when displaying a popup on this
window. HEIGHT is the a height of the popup, and ROW is a line
number at the point.
(defalias 'popup-calculate-direction #[(height row) "\306\307\310 \203\f\306\202 \311    \203\306\202\311#]\312\313 `\"Z \fV\f\nX \2035 \2045\314\2026\306+\207" [mode-line-format header-line-format remaining-rows row height enough-space-above 1 - window-height 0 count-lines window-start -1 enough-space-below] 5 (#$ . 41627)])
#@1283 Create a popup instance at POINT with WIDTH and HEIGHT.
 
MIN-HEIGHT is a minimal height of the popup. The default value is
0.
 
MAX-WIDTH is the maximum width of the popup. The default value is
nil (no limit). If a floating point, the value refers to the ratio of
the window. If an integer, limit is in characters.
 
If AROUND is non-nil, the popup will be displayed around the
point but not at the point.
 
FACE is a background face of the popup. The default value is POPUP-FACE.
 
SELECTION-FACE is a foreground (selection) face of the popup The
default value is POPUP-FACE.
 
If SCROLL-BAR is non-nil, the popup will have a scroll bar at the
right.
 
If MARGIN-LEFT is non-nil, the popup will have a margin at the
left.
 
If MARGIN-RIGHT is non-nil, the popup will have a margin at the
right.
 
SYMBOL is a single character which indicates a kind of the item.
 
PARENT is a parent popup instance. If PARENT is omitted, the
popup will be a root instance.
 
PARENT-OFFSET is a row offset from the parent popup.
 
KEYMAP is a keymap that will be put on the popup contents.
 
(fn POINT WIDTH HEIGHT &key MIN-HEIGHT MAX-WIDTH AROUND (FACE \='popup-face) MOUSE-FACE (SELECTION-FACE face) (SUMMARY-FACE \='popup-summary-face) SCROLL-BAR MARGIN-LEFT MARGIN-RIGHT SYMBOL PARENT PARENT-OFFSET KEYMAP)
(defalias 'popup-create #[(point width height &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"\206\313A@\306\314\"A@\306\315\"\2061\316\fDA@@\306\317\"\206=\320A@A\306\321\"A@B\306\322\"A@C\306\323\"A@D\306\324\"A@E\306\325\"A@F\306\326\"A@G\306\327\"A@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)])
#@24 Delete POPUP instance.
(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)])
#@13 Draw POPUP.
(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)])
#@13 Hide POPUP.
(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)])
#@36 Return non-nil if POPUP is hidden.
(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)])
#@59 Jump to a position specified by CURSOR of POPUP and draw.
(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)])
#@41 Select the item at I of POPUP and draw.
(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)])
#@41 Select the next item of POPUP and draw.
(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)])
#@45 Select the previous item of POPUP and draw.
(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)])
#@79 Select next item of POPUP per `popup-height' range.
Pages down through POPUP.
(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)])
#@81 Select previous item of POPUP per `popup-height' range.
Pages up through POPUP.
(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)])
#@34 Scroll down N of POPUP and draw.
(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)])
#@32 Scroll up N of POPUP and draw.
(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)])
(custom-declare-face 'popup-isearch-match '((t (:inherit default :background "sky blue"))) "Popup isearch match face." :group 'popup)
(defvar popup-isearch-cursor-color "blue")
(defvar popup-isearch-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\311#\210\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))
#@56 Function used for showing quick help by `popup-menu*'.
(defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help (#$ . 55377))
#@171 Function used to construct a regexp from a pattern. You may for instance
  provide a function that replaces spaces by '.+' if you like helm or ivy style
  of completion.
(custom-declare-variable 'popup-isearch-regexp-builder-function '#'regexp-quote '(#$ . 55525) :type 'function)
(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\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])
(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])
(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])
#@771 Start isearch on POPUP. This function is synchronized, meaning
event loop waits for quiting of isearch.
 
FILTER is function with two argumenst to perform popup items filtering.
 
CURSOR-COLOR is a cursor color during isearch. The default value
is `popup-isearch-cursor-color'.
 
KEYMAP is a keymap which is used when processing events during
event loop. The default value is `popup-isearch-keymap'.
 
CALLBACK is a function taking one argument. `popup-isearch' calls
CALLBACK, if specified, after isearch finished or isearch
canceled. The arguments is whole filtered list of items.
 
HELP-DELAY is a delay of displaying helps.
 
(fn POPUP &key (FILTER \='popup-isearch-filter-list) (CURSOR-COLOR popup-isearch-cursor-color) (KEYMAP popup-isearch-keymap) CALLBACK HELP-DELAY)
(defalias 'popup-isearch #[(popup &rest #1=#:--cl-rest--) "\306\307\"\206\310A@\306\311\"\206\312\nDA@\306\313\"\206\"\312\fDA@\306\314\"A@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)])
(custom-declare-face 'popup-tip-face '((t (:background "khaki1" :foreground "black"))) "Face for popup tip." :group 'popup)
(defvar popup-tip-max-width 80)
#@649 Show a tooltip of STRING at POINT. This function is
synchronized unless NOWAIT specified. Almost all arguments are
the same as in `popup-create', except for TRUNCATE, NOWAIT, and
PROMPT.
 
If TRUNCATE is non-nil, the tooltip can be truncated.
 
If NOWAIT is non-nil, this function immediately returns the
tooltip instance without entering event loop.
 
If `NOSTRIP` is non-nil, `STRING` properties are not stripped.
 
PROMPT is a prompt string when reading events during event loop.
 
(fn STRING &key POINT (AROUND t) WIDTH (HEIGHT 15) MIN-HEIGHT MAX-WIDTH TRUNCATE MARGIN MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR PARENT PARENT-OFFSET NOWAIT NOSTRIP PROMPT)
(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)])
(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)
#@68 Function used for showing tooltip by `popup-menu-show-quick-help'.
(defvar popup-menu-show-tip-function 'popup-tip (#$ . 63388))
(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\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])
(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])
(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])
(defalias 'popup-menu-fallback #[(event default) "\300\207" [nil] 1])
#@128 
 
(fn MENU KEYMAP FALLBACK &key PROMPT HELP-DELAY ISEARCH ISEARCH-FILTER ISEARCH-CURSOR-COLOR ISEARCH-KEYMAP ISEARCH-CALLBACK)
(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)])
#@54 Return the preferred width to show LIST beautifully.
(defalias 'popup-preferred-width #[(list) "\306    \307\211\307\211\n:\203X\n@\211\310 \304\")\311\312 !! \203/ ]\2021)\f;\203Q\311\f!\313\\\203L]\202N)\nA\211\202 \206]\314\206c\314\\\315\316\245!\317_.\207" [tab-width list #1=#:--cl-var-- item summary width 4 nil popup-item-property string-width popup-x-to-string 2 0 ceiling 10.0 10 summary-width #2=#:temp #3=#:temp total] 4 (#$ . 68749)])
(defvar popup-menu-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\311#\210\302\313\314#\210\302\315\314#\210\302\316\317#\210\302\320\317#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\326#\210\302\330\331#\210\302\332\304#\210\302\333\317#\210\302\334\314#\210)\207" [map make-sparse-keymap define-key " " popup-select "" popup-open [right] "" popup-close [left] "" popup-next [down] "" popup-previous [up] [next] popup-page-next [prior] popup-page-previous [f1] popup-help "" "" popup-isearch [mouse-1] [mouse-4] [mouse-5]] 4))
#@1951 Show a popup menu of LIST at POINT. This function returns a
value of the selected item. Almost all arguments are the same as in
`popup-create', except for KEYMAP, FALLBACK, HELP-DELAY, PROMPT,
ISEARCH, ISEARCH-FILTER, ISEARCH-CURSOR-COLOR, ISEARCH-KEYMAP, and
ISEARCH-CALLBACK.
 
If KEYMAP is a keymap which is used when processing events during
event loop.
 
If FALLBACK is a function taking two arguments; a key and a
command. FALLBACK is called when no special operation is found on
the key. The default value is `popup-menu-fallback', which does
nothing.
 
HELP-DELAY is a delay of displaying helps.
 
If NOWAIT is non-nil, this function immediately returns the menu
instance without entering event loop.
 
PROMPT is a prompt string when reading events during event loop.
 
If ISEARCH is non-nil, do isearch as soon as displaying the popup
menu.
 
ISEARCH-FILTER is a filtering function taking two arguments:
search pattern and list of items. Returns a list of matching items.
 
ISEARCH-CURSOR-COLOR is a cursor color during isearch. The
default value is `popup-isearch-cursor-color'.
 
ISEARCH-KEYMAP is a keymap which is used when processing events
during event loop. The default value is `popup-isearch-keymap'.
 
ISEARCH-CALLBACK is a function taking one argument.  `popup-menu'
calls ISEARCH-CALLBACK, if specified, after isearch finished or
isearch canceled. The arguments is whole filtered list of items.
 
If `INITIAL-INDEX' is non-nil, this is an initial index value for
`popup-select'. Only positive integer is valid.
 
(fn LIST &key POINT (AROUND t) (WIDTH (popup-preferred-width list)) (HEIGHT 15) MAX-WIDTH MARGIN MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR SYMBOL PARENT PARENT-OFFSET CURSOR (KEYMAP popup-menu-keymap) (FALLBACK \='popup-menu-fallback) HELP-DELAY NOWAIT PROMPT ISEARCH (ISEARCH-FILTER \='popup-isearch-filter-list) (ISEARCH-CURSOR-COLOR popup-isearch-cursor-color) (ISEARCH-KEYMAP popup-isearch-keymap) ISEARCH-CALLBACK INITIAL-INDEX)
(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)])
#@197 Same as `popup-menu' except that an element of LIST can be
also a sub-menu if the element is a cons cell formed (ITEM
. SUBLIST) where ITEM is an usual item and SUBLIST is a list of
the sub menu.
(defalias 'popup-cascade-menu #[(list &rest args) "\302\303\304\305\"\306\307    %\207" [list args apply popup-menu* mapcar #[(item) ":\203\301@\302A\303\304%\207\207" [item popup-make-item :sublist :symbol ">"] 6] :symbol t] 6 (#$ . 74532)])
(provide 'popup)