-
Notifications
You must be signed in to change notification settings - Fork 2
/
popup.elc
executable file
·240 lines (224 loc) · 66.3 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
205
206
207
;ELC
;;; Compiled by [email protected] on Sun Dec 16 17:19:07 2012
;;; from file /home/work/tmp/auto-complete-1.3.1/popup.el
;;; in Emacs version 24.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@88 Use optimized column computation routine.
If there is a problem, please set it to nil.
(defvar popup-use-optimized-column-computation t (#$ . 522))(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 (#$ . 791)]))
#@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 (#$ . 1027)])
#@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] 5 (#$ . 1338)])
#@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 (#$ . 1715)])(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 (#$ . 3607)])
(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 (#$ . 5750))
#@38 Foreground character for scroll-bar.
(defvar popup-scroll-bar-foreground-char (propertize " " 'face 'popup-scroll-bar-foreground-face) (#$ . 5814))
#@38 Background character for scroll-bar.
(defvar popup-scroll-bar-background-char (propertize " " 'face 'popup-scroll-bar-background-face) (#$ . 5968))
(byte-code "\301\302\303\304#\210\302\305N\204 \301\302\305\306#\210\307\301\302\310\311\312!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-point 'popup)) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-point #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-point popup 1] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-row 'popup)) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-row #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-row popup 2] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-column 'popup)) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-column #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-column popup 3] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-width 'popup)) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-width #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-width popup 4] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-height 'popup)) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-height #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-height popup 5] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-min-height 'popup)) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-min-height #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-min-height popup 6] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-direction 'popup)) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-direction #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-direction popup 7] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-overlays 'popup)) (aref cl-x 8)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-overlays #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-overlays popup 8] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-parent 'popup)) (aref cl-x 9)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-parent #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-parent popup 9] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-depth 'popup)) (aref cl-x 10)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-depth #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-depth popup 10] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-face 'popup)) (aref cl-x 11)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-face #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-face popup 11] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-selection-face 'popup)) (aref cl-x 12)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-selection-face #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-selection-face popup 12] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-margin-left 'popup)) (aref cl-x 13)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-margin-left #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-margin-left popup 13] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-margin-right 'popup)) (aref cl-x 14)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-margin-right #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-margin-right popup 14] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-margin-left-cancel 'popup)) (aref cl-x 15)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-margin-left-cancel #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-margin-left-cancel popup 15] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-scroll-bar 'popup)) (aref cl-x 16)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-scroll-bar #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-scroll-bar popup 16] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-symbol 'popup)) (aref cl-x 17)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-symbol #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-symbol popup 17] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-cursor 'popup)) (aref cl-x 18)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-cursor #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-cursor popup 18] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-offset 'popup)) (aref cl-x 19)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-offset #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-offset popup 19] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-scroll-top 'popup)) (aref cl-x 20)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-scroll-top #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-scroll-top popup 20] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-current-height 'popup)) (aref cl-x 21)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-current-height #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-current-height popup 21] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-list 'popup)) (aref cl-x 22)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-list #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-list popup 22] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-newlines 'popup)) (aref cl-x 23)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-newlines #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-newlines popup 23] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-pattern 'popup)) (aref cl-x 24)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-pattern #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-pattern popup 24] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "%s accessing a non-%s" 'popup-original-list 'popup)) (aref cl-x 25)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'popup-original-list #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-original-list popup 25] 4])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204% \301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file 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 "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(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 "\301\302\303\304#\210\302\305N\204 \301\302\305\306#\210\307\301\302\310\311\312!!#\210)\301\207" [file 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@ /\324>A@ 0\325>A@ 1\326>A@ 2\327>A@ 3\330>A@ 4\331>A@ 5\332>A@ 6\333>A@ 7\334>A@ 8\335>A@ 9\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\341<\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)) 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 "\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 "/home/work/tmp/auto-complete-1.3.1/popup.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@244
(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 (#$ . 31183)])
(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\334G\304Y\205\334\305H >\205\334\306\307\n\"\210\306\310\n\"\210\311\305H >\204. \312\313\314\315#\210\316H\n\"\210\306\317\n\"\210\311\305H >\204H \312\313\320\315#\210\321H\n\"\210\306\322\n\"\210\311\305H >\204b \312\313\323\315#\210\324H\n\"\210\306\325\n\"\210\311\305H >\204| \312\313\326\315#\210\327H\n\"\210\306\330\n\"\210\311\305H >\204\226 \312\313\331\315#\210\332H\n\"\210\306\333\n\"\210\311\305H >\204\260 \312\313\334\315#\210\335H\n\"\210\306\336\n\"\210\311\305H >\204\312 \312\313\337\315#\210\340H\n\"\210\306\341\n\"\210\311\305H >\204\344 \312\313\342\315#\210\343H\n\"\210\306\344\n\"\210\311\305H >\204\376 \312\313\345\315#\210\346H\n\"\210\306\347\n\"\210\311\305H >\204\312\313\350\315#\210\351H\n\"\210\306\352\n\"\210\311\305H >\2042\312\313\353\315#\210\354H\n\"\210\306\355\n\"\210\311\305H >\204L\312\313\356\315#\210\357H\n\"\210\306\360\n\"\210\311\305H >\204f\312\313\361\315#\210\362H\n\"\210\306\363\n\"\210\311\305H >\204\200\312\313\364\315#\210\365H\n\"\210\306\366\n\"\210\311\305H >\204\232\312\313\367\315#\210\370H\n\"\210\306\371\n\"\210\311\305H >\204\264\312\313\372\315#\210\373H\n\"\210\306\374\n\"\210\311\305H >\204\316\312\313\375\315#\210\376H\n\"\210\306\377\n\"\210\311\305H >\204\352\312\313\201@ \315#\210\201A H\n\"\210\306\201B \n\"\210\311\305H >\204\n\312\313\201C \315#\210\201D H\n\"\210\306\201E \n\"\210\311\305H >\204*\312\313\201F \315#\210\201G H\n\"\210\306\201H \n\"\210\311\305H >\204J\312\313\201I \315#\210\201J H\n\"\210\306\201K \n\"\210\311\305H >\204j\312\313\201L \315#\210\201M H\n\"\210\306\201N \n\"\210\311\305H >\204\212\312\313\201O \315#\210\201P H\n\"\210\306\201Q \n\"\210\311\305H >\204\252\312\313\201R \315#\210\201S H\n\"\210\306\201T \n\"\210\311\305H >\204\312\312\313\201U \315#\210\201V H\n\"\210\306\201W \n\"\210\201X \207" [cl-x cl-struct-popup-tags cl-s vectorp 26 0 princ "#S(popup" " point" prin1 error "%s accessing a non-%s" popup-point popup 1 " row" popup-row 2 " column" popup-column 3 " width" popup-width 4 " height" popup-height 5 " min-height" popup-min-height 6 " direction" popup-direction 7 " overlays" popup-overlays 8 " parent" popup-parent 9 " depth" popup-depth 10 " face" popup-face 11 " selection-face" popup-selection-face 12 " margin-left" popup-margin-left 13 " margin-right" popup-margin-right 14 " margin-left-cancel" popup-margin-left-cancel 15 " scroll-bar" popup-scroll-bar 16 " symbol" popup-symbol 17 " cursor" popup-cursor 18 " offset" popup-offset 19 " scroll-top" popup-scroll-top 20 " current-height" popup-current-height 21 " list" popup-list 22 " newlines" popup-newlines 23 " pattern" popup-pattern 24 " original-list" popup-original-list 25 ")" t] 5] 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 (#$ . 37438)])
(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 (#$ . 37877)])
(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 \303 \304\216\305!\205 \306\307\215*\207\305!\207" [item persist #1=#:wconfig current-window-configuration ((set-window-configuration #1#)) 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 #2=#:--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])
(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\311\300#\210\312H\304V\203+ \304\202A \304H >\2049 \305\310\313\300#\210\314H\nGZ\304]\304H >\204N \305\315!\210\316 I)\207" [popup cl-struct-popup-tags list #1=#:--cl-store-- 0 error "popup-list storing a non-popup" 22 "%s accessing a non-%s" popup-direction 7 popup-height 5 "popup-offset storing a non-popup" 19] 4])
(defalias 'popup-selected-item #[(popup) "\302H >\204 \303\304\305\300#\210\306H\302H >\204 \303\304\307\300#\210\310H8\207" [popup cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-cursor 18 popup-list 22] 5])
(defalias 'popup-selected-line #[(popup) "\302H >\204 \303\304\305\300#\210\306H\302H >\204 \303\304\307\300#\210\310HZ\207" [popup cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-cursor 18 popup-scroll-top 20] 5])
(defalias 'popup-line-overlay #[(popup line) "\303H >\204 \304\305\306\300#\210\307H\nH\207" [popup cl-struct-popup-tags line 0 error "%s accessing a non-%s" popup-overlays 8] 4])
(defalias 'popup-selected-line-overlay #[(popup) "\301\302!\"\207" [popup popup-line-overlay popup-selected-line] 4])
(defalias 'popup-hide-line #[(popup line) "\303 \"\304\n\305\306#\210\304\n\307\306#)\207" [popup line overlay popup-line-overlay overlay-put display nil after-string] 4])
(defalias 'popup-line-hidden-p #[(popup line) "\303 \"\304\n\305\"\306=\205 \304\n\307\"\306=)\207" [popup line overlay popup-line-overlay overlay-get display nil after-string] 3])
(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 \307\310\302\300#\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 "%s accessing a non-%s" 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\305\300#\210\306H\205 \307\207" [popup cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-overlays 8 t] 4])
(defalias 'popup-child-point #[(popup &optional offset) "\302\303 \206\n \304!\"!\207" [popup offset overlay-end popup-line-overlay popup-selected-line] 5])
#@162
(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 8\337 \340 \341 !HK\\\211 M!V\205\374 MKY NC?\205 HKY OC\203'C\326HP>\204 \324\342\343\344#\210C\345H\206ZGIV\203YI\334\346\347 Q\203>\334\202?\326R\203H\334\202I\326#]\350 `\"ZV\203Y\351\202Z\334 SC\203yC\326HP>\204q\324\342\352\344#\210C\353HT\202z\326 T\326I\350Fd\"Z\n\203\215\334\202\216\326\\] U\313 VU\326V\203\264\212\354\313\355 W X Y\356\216db\210\357U\353\"c\210-N\203 O\203\327H\346K@A#ZH\n\204\360H!\210\202Z\204\366K!HZZT [K[ZK<[Z<)H@ZH\202H@ZHC\204 H\326W\203 \326HK@ZK\354LI\326 \\ ]\\]W\203#\313\211\211\354\361\211 ; : 9 ^ _ `\n\203ca\362Y\203W\363HSB!\210\202c\363S!\210\360iH\\!\210\354\331 \211VHV\203w\351u\210\331 VVHW\203\231\357V\326U\203\216 iZ\202\217\326HVZ\\\364\":`_K:G\\^l\204\301^\326V\203\301\3139^\365\313f!Z^\313u\210\202\244^\326W\203\320\357^[\364\";\366_`\"`\367`\3708#\210\367`\3719#\210\367`\372:#\210\367`\373;#\210\367`\374<#\210JS\326V\203\\\202\346I\\\334#`I\210.\\T\211\\\202)*\375T\376_Z b\377J\313\"\237 c\313 `c:\203Zc@`\367`\201f b#\210bTbcA\211c\2029+\201g \201h 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 "%s accessing a non-%s" popup-direction popup 7 - window-height count-lines -1 popup-depth 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 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 priority vector cl-struct-popup] 28 (#$ . 44527)])
(defalias 'popup-delete #[(popup) "\306!\203\201 \307!\210\310\311\312H >\204 \313\314\315\300#\210\316H\"\210\312H >\204+ \313\317!\210\316\320I\210\321\n\"\312H >\204C \313\314\322\300#\210\323H\211\312V\203\200 \212\324\320\325 \326\216db\210 \312 W\203~ `Sf\327U\203u \330\331!\210T\211\202c .)\320\207" [popup cl-struct-popup-tags popup-instances newlines modified buffer-read-only popup-live-p popup-hide mapc delete-overlay 0 error "%s accessing a non-%s" popup-overlays 8 "popup-overlays storing a non-popup" nil delq popup-newlines 23 t buffer-modified-p ((set-buffer-modified-p modified)) 10 delete-char -1 buffer-undo-list i #1=#:--cl-dotimes-temp--] 7])
(defalias 'popup-draw #[(popup) "\306H >\204 \307\310\311\300#\210\312H\306H >\204 \307\310\313\300#\210\314H\306H >\2042 \307\310\304\300#\210\315H \306H >\204D \307\310\316\300#\210\317H \306H >\204V \307\310\320\300#\210\321H\211 4G 5\n\211_5\322]\245\322] 6\3235\322]\\\n\245 7\306H >\204\203 \307\310\324\300#\210\325H 8\326\306H >\204\227 \307\310\327\300#\210\330H\203\241 \306\202\262 \306H >\204\257 \307\310\331\300#\210\332H\333\" 9\326\306H >\204\305 \307\310\334\300#\210\335H\333\" :\306H >\204\332 \307\310\336\300#\210\337H ,\306H >\204\355 \307\310\340\300#\210\341H ;\306H >\204 \307\310\342\300#\210\343H <\306H >\204\307\310\344\300#\210\345H\211 = >< ?<4\233 @\346\211 A B\346\211 * C\346\211 D E\346 ->\nW\203@:\203@@A6>6\245_B?;U\203pA A\347A\305\")\206~\202~A A\347A\304\")\206~\f*\350\351\352*#C8\203\3037\322X\203\231C\202\3047\322V\203\276;B7_Y\203\276;B6\\7_W\203\276F\202\304G\202\304\353D,\203\336\351A A\347A\354\")\206\332\351P\202\337\353EA A\347A\355\")\206\357\353-\356>A*9:DE-& \210>T>?T?@A@\202;\306H >\204$\307\357!\210\360>=ZI\2108\203:\350\351\352\f#\202;\353,\203D\351\202E\353 , D\306H >\204W\307\310\361\300#\210\362H\306V\203\233 \203\205> W\203\205\356>\353\f9:D,\353& \210>T\211>\202e>\nW\203\352\363>\"\210>T\211>\202\207 \203\245\n Z\202\247= H\306 >= I>IW\203\351>HW\203\306\363>\"\210>HY\203\340\356>\353\f9:D,\353& \210>T\211>\202\262+.\346\207" [popup cl-struct-popup-tags height min-height popup-face selection-face 0 error "%s accessing a non-%s" popup-height 5 popup-min-height 6 11 popup-selection-face 12 popup-list 22 1 0.0 popup-scroll-bar 16 make-string popup-margin-left-cancel 15 popup-margin-left 13 32 popup-margin-right 14 popup-symbol 17 popup-cursor 18 popup-scroll-top 20 popup-offset 19 nil popup-item-property propertize " " face "" symbol summary popup-set-line-item "popup-current-height storing a non-popup" 21 popup-direction 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--] 11])
(defalias 'popup-hide #[(popup) "\304H >\204 \305\306\307\300#\210\310H\304\n W\205& \311\n\"\210\nT\211\202 *\207" [popup cl-struct-popup-tags i #1=#:--cl-dotimes-temp-- 0 error "%s accessing a non-%s" popup-height 5 popup-hide-line] 5])
(defalias 'popup-hidden-p #[(popup) "\305\306 !\2033 \307H\n>\204 \310\311\312\301#\210 \313H\307 \fW\2032 \314 \"\204+ \315 T\211\202 *)\207" [hidden popup cl-struct-popup-tags i #1=#:--cl-dotimes-temp-- t popup-live-p 0 error "%s accessing a non-%s" popup-height 5 popup-line-hidden-p nil] 5])
(defalias 'popup-select #[(popup i) " \303H\n>\204 \304\305\306\301#\210 \307H\\\303X\205F \303H\n>\204) \304\305\310\301#\210 \311HW\205F \303H\n>\204< \304\312!\210 \313I\210\314 !\210\315\207" [i popup cl-struct-popup-tags 0 error "%s accessing a non-%s" popup-offset 19 popup-height 5 "popup-cursor storing a non-popup" 18 popup-draw t] 5])
(defalias 'popup-next #[(popup) "\306H >\204 \307\310\311\300#\210\312H\306H >\204 \307\310\313\300#\210\314HT\306H >\2041 \307\310\315\300#\210\316H\306H >\204B \307\310\317\300#\210\320HG \f\nY\203W \306\211\202h \f \\U\203h T\nZ\306]^\306H >\204t \307\321!\210\314\fI\210\306H >\204\205 \307\322!\210\316 I\210\323!,\207" [popup cl-struct-popup-tags length scroll-top cursor height 0 error "%s accessing a non-%s" popup-height 5 popup-cursor 18 popup-scroll-top 20 popup-list 22 "popup-cursor storing a non-popup" "popup-scroll-top storing a non-popup" popup-draw] 8])
(defalias 'popup-previous #[(popup) "\306H >\204 \307\310\311\300#\210\312H\306H >\204 \307\310\313\300#\210\314HS\306H >\2041 \307\310\315\300#\210\316H\306H >\204B \307\310\317\300#\210\320HG \f\306W\203\\ \nS\nZ\306]\202f \f SU\203f S\306H >\204r \307\321!\210\314\fI\210\306H >\204\203 \307\322!\210\316 I\210\323!,\207" [popup cl-struct-popup-tags length scroll-top cursor height 0 error "%s accessing a non-%s" popup-height 5 popup-cursor 18 popup-scroll-top 20 popup-list 22 "popup-cursor storing a non-popup" "popup-scroll-top storing a non-popup" popup-draw] 7])
(defalias 'popup-scroll-down #[(popup &optional n) "\304H >\204 \305\306\307\300#\210\310H\n\206 \311\\\304H >\204% \305\306\312\300#\210\313HG\304H >\2047 \305\306\314\300#\210\315HZ^\304H >\204I \305\316!\210\317 I\210\304H >\204Z \305\320!\210\310 I\210\321!)\207" [popup cl-struct-popup-tags n scroll-top 0 error "%s accessing a non-%s" popup-scroll-top 20 1 popup-list 22 popup-height 5 "popup-cursor storing a non-popup" 18 "popup-scroll-top storing a non-popup" popup-draw] 6])
(defalias 'popup-scroll-up #[(popup &optional n) "\304H >\204 \305\306\307\300#\210\310H\n\206 \311Z\304]\304H >\204& \305\312!\210\313 I\210\304H >\2047 \305\314!\210\310 I\210\315!)\207" [popup cl-struct-popup-tags n scroll-top 0 error "%s accessing a non-%s" popup-scroll-top 20 1 "popup-cursor storing a non-popup" 18 "popup-scroll-top storing a non-popup" popup-draw] 4])
(custom-declare-face 'popup-isearch-match '((t (:background "sky blue"))) "Popup isearch match face." :group 'popup)
(defvar popup-isearch-cursor-color "blue")
(defvar popup-isearch-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210)\207" [map make-sparse-keymap define-key "" popup-isearch-cancel "" popup-isearch-delete ""] 4))
(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\310\300#\210\311HG\305U\203! \312\n\313\314#\202\" \n\"\207" [popup cl-struct-popup-tags pattern format "Pattern: %s" 0 error "%s accessing a non-%s" popup-list 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 >\204C \306\316\317\300#\210\320H\"\321 \"\210\f\203U \f !\210)\322!\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 "%s accessing a non-%s" popup-original-list 25 popup-set-filtered-list popup-draw] 6])
#@111
(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 >\204i \315\320\321\322#\210\323H\317H >\204} \315\320\324\322#\210\325H\206\205 \326\327\330 \302\"\307\211\211\211 ! \" # $ % & '\331\216\332\333\215?\205\255 \334\326#\210\335.\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 "%s accessing a non-%s" popup-original-list popup 25 popup-pattern 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-- cl-struct-popup-tags done binding key prompt old-cursor-color pattern list] 8 (#$ . 55738)])
(custom-declare-face 'popup-tip-face '((t (:background "khaki1" :foreground "black"))) "Face for popup tip." :group 'popup)
(defvar popup-tip-max-width 80)
#@168
(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@ 0\320>A@ 1\321>A@ 2\322>A@ 3\323>A@ 4\324>A@ 5\325>A@ 6\326\211 7 8 99\203\236 9@\327>\203\205 9AA\2119\202p \330>A@\203\224 \326\2119\202p \331\3329@\"\210\202n )\333:!\203\260 r:q\210\334 ):\335:!:/\336=\203\300 \337/0\204\311 /01\204\322 /1\340: ;#\211 <@<A8)\341 \f\314\307\n\3170\3201\3212\342\343\3223\3234&7\344\2167\345H=>\204\331\346\347\350#\2107\351H\345V\205{ 7\345H=>\204-\331\346\347\350#\2107\351H=\204X.\204X7\345H=>\204J\331\346\347\350#\2107\351H\340: \211#A8\35278\"\210\3537!\2105\203n7\202{\354 \210\3556!>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 "%s accessing a non-%s" popup-width 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] 21 (#$ . 57868)])
(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 (#$ . 60156))
#@56 Function used for showing quick help by `popup-menu*'.
(defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help (#$ . 60291))
(defalias 'popup-menu-show-help #[(menu &optional persist item) "\303\206 \304 !\n\"\207" [item menu persist popup-item-show-help popup-selected-item] 3])
(defalias 'popup-menu-documentation #[(menu &optional item) "\302\206 \303 !!\207" [item menu popup-item-documentation popup-selected-item] 3])
(defalias 'popup-menu-show-quick-help #[(menu &optional item &rest args) "\306\307\"\306\310\"\206 \n\311H >\204 \312\313\314\315#\210\n\316H\211 \n\311H >\204- \312\313\317\315#\210\n\320H^ \321 \n\311H >\204C \312\313\322\315#\210\n\323H \324\n \"\211 ;\205\201 \325\n!\203e \326 \321\211 \202g \321\321 \327! \307 \310\f\330\331 \332\n\333 &).\207" [args point menu cl-struct-popup-tags height min-height plist-get :point :height 0 error "%s accessing a non-%s" popup-height popup 5 popup-current-height 21 nil popup-offset 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])
#@135
(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!\205m \203 \307\310\n\311 \312\f\313& \203 \314 \210\31567#\2118\204C 9\316\3177$\204 \320 \210\3217!:B:\202 \322\323 8\"\314=\203Q \314 \210\32268\"\211;\324=\203| \325H<>\204n \326\327\330\331#\210\332H\203 \333\334\316\"\210\202 ;\335>\203\336!\211 = =\337=\340\")\211 \203\356 \341 \342\316\343\344\325H<>\204\256 \326\327\345\331#\210\346H\347\325H<>\204\301 \326\327\350\331#\210\351H\352\325H<>\204\324 \326\327\353\331#\210\354H& \211 >\203\352 >\203\352 \333\334>\"\210)\202\f;\355=\203\f\333\334=\211 = =\337=\356\")\206 =)\"\210*\202 ;\357=\203 \357!\210\202 ;\360=\203,\360!\210\202 ;\361=\203:\362!\210\202 ;\307=\203Q\307\310\n\311 \312\f\313& \210\202 \363;!\203`\364;!\210\202 ?8\3658!\"\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 "%s accessing a non-%s" popup-parent 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 13 :margin-right popup-margin-right 14 :scroll-bar popup-scroll-bar 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] 16)] 6 (#$ . 62685)])
#@368
(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 (#$ . 64801)])
#@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 (#$ . 67097)])
(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\322#\210\302\324\325#\210)\207" [map make-sparse-keymap define-key "" popup-select "" popup-open [right] "" popup-close [left] "" popup-next [down] "" popup-previous [up] [f1] popup-help "" "" popup-isearch] 4))
(provide 'popup)