-
Notifications
You must be signed in to change notification settings - Fork 0
/
popup.elc
244 lines (228 loc) · 57.9 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
208
209
;ELC
;;; Compiled by tknew@Transport on Fri Jan 25 11:18:28 2013
;;; from file /home/tknew/.emacs.d/auto-complete-1.3.1/popup.el
;;; in Emacs version 24.3.50.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 (#$ . 524))
#@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 (#$ . 678)]))
(put 'popup-aif 'lisp-indent-function 2)
#@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 \301!\207\250\203 \302!\207\211\247\205\" \211\250?\262\203+ \302!\207\303\304\"\207" [x symbol-name number-to-string format "%s"] 3 (#$ . 955)])
#@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 (#$ . 1265)])
#@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 (#$ . 1642)])
(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]))
(put 'popup-save-buffer-state 'lisp-indent-function 0)
#@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 (#$ . 3460)])
(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 (#$ . 5603))
#@38 Foreground character for scroll-bar.
(defvar popup-scroll-bar-foreground-char (propertize " " 'face 'popup-scroll-bar-foreground-face) (#$ . 5667))
#@38 Background character for scroll-bar.
(defvar popup-scroll-bar-background-char (propertize " " 'face 'popup-scroll-bar-background-face) (#$ . 5821))
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put popup-point compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-point (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-point 'popup)) (aref cl-x 1)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-row compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-row (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-row 'popup)) (aref cl-x 2)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-column compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-column (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-column 'popup)) (aref cl-x 3)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-width compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-width (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-width 'popup)) (aref cl-x 4)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-height compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-height (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-height 'popup)) (aref cl-x 5)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-min-height compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-min-height (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-min-height 'popup)) (aref cl-x 6)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-direction compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-direction (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-direction 'popup)) (aref cl-x 7)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-overlays compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-overlays (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-overlays 'popup)) (aref cl-x 8)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-parent compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-parent (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-parent 'popup)) (aref cl-x 9)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-depth compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-depth (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-depth 'popup)) (aref cl-x 10)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-face compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-face (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-face 'popup)) (aref cl-x 11)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-selection-face compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-selection-face (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-selection-face 'popup)) (aref cl-x 12)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-margin-left compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-margin-left (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-margin-left 'popup)) (aref cl-x 13)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-margin-right compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-margin-right (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-margin-right 'popup)) (aref cl-x 14)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-margin-left-cancel compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-margin-left-cancel (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-margin-left-cancel 'popup)) (aref cl-x 15)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-scroll-bar compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-scroll-bar (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-scroll-bar 'popup)) (aref cl-x 16)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-symbol compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-symbol (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-symbol 'popup)) (aref cl-x 17)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-cursor compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-cursor (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-cursor 'popup)) (aref cl-x 18)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-offset compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-offset (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-offset 'popup)) (aref cl-x 19)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-scroll-top compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-scroll-top (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-scroll-top 'popup)) (aref cl-x 20)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-current-height compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-current-height (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-current-height 'popup)) (aref cl-x 21)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-list compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-list (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-list 'popup)) (aref cl-x 22)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-newlines compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-newlines (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-newlines 'popup)) (aref cl-x 23)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-pattern compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-pattern (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-pattern 'popup)) (aref cl-x 24)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-original-list compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-original-list (or (and (memq (aref cl-x 0) cl-struct-popup-tags)) (error "%s accessing a non-%s" 'popup-original-list 'popup)) (aref cl-x 25)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put popup-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-p (and (vectorp cl-x) (>= (length cl-x) 26) (memq (aref cl-x 0) cl-struct-popup-tags) t)) nil] 7] "/home/tknew/.emacs.d/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\305\301\302\306\307\310!!#\210)\301\207" [file put make-popup 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) (cl-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)"] "/home/tknew/.emacs.d/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 (#$ . 25281)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\210\302\325\315\313#\210\302\326\315\313#\210\302\327\315\313#\210\302\330\315\313#\210\302\331\315\313#\210\302\332\315\313#\210\302\333\315\313#\210\302\334\315\313#\210\302\335\315\313#\210\302\336\315\313#\210\302\337\315\313#\210\302\340\315\313#\210\302\341\315\313#\210\302\342\315\313#\210\302\343\315\313#\210\302\344\315\313#\210\302\345\315\313#\210\302\346\315\313#\210\302\347\315\313#\210\302\350\315\313#\210\302\351\315\313#\207" [cl-struct-popup-tags cl-struct-popup put popup cl-struct-slots ((cl-tag-slot) (point) (row) (column) (width) (height) (min-height) (direction) (overlays) (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 (#$ . 28713)])
(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 (#$ . 29152)])
(defalias 'popup-item-value #[(item) "\301\302\"\207" [item popup-item-property value] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-value byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-value-or-self #[(item) "\301\302\")\206 \207" [item popup-item-property value] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-value-or-self byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-popup-face #[(item) "\301\302\"\207" [item popup-item-property popup-face] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-popup-face byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-selection-face #[(item) "\301\302\"\207" [item popup-item-property selection-face] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-selection-face byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-document #[(item) "\301\302\"\207" [item popup-item-property document] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-document byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-summary #[(item) "\301\302\"\207" [item popup-item-property summary] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-summary byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-symbol #[(item) "\301\302\"\207" [item popup-item-property symbol] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-symbol byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-sublist #[(item) "\301\302\"\207" [item popup-item-property sublist] 3])
(byte-code "\300\301\302\303#\207" [put popup-item-sublist byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-item-documentation #[(item) "\302\303\")\304 !\203 \211\302\305\")\206 )! )\207" [item doc popup-item-property document functionp value] 5])
(defalias 'popup-item-show-help-1 #[(item) "\302!\211\205 r\303\304!q\210\305 \210 c\210eb\210\306p!\210)\307)\207" [item doc popup-item-documentation get-buffer-create " *Popup Help*" erase-buffer display-buffer t] 3])
(defalias 'popup-item-show-help #[(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) "\305 \"\210\306H\n>\204 \307\310\311\300#\210\211\312\313I\210)\306H\n>\204) \307\310\314\300#\210\211 \315 I)\207" [popup list cl-struct-popup-tags #1=#:v #2=#:v popup-set-filtered-list 0 error "%s accessing a non-%s" popup-pattern 24 nil popup-original-list 25] 5])
(defalias 'popup-set-filtered-list #[(popup list) "\305H >\204 \306\307\310\300#\210\211\311 I\210)\305H >\204$ \306\307\312\300#\210\211 \313\305H >\2046 \306\307\314\300#\210\315H\305V\203B \305\202X \305H >\204P \306\307\316\300#\210\317H GZ\305]I)\207" [popup cl-struct-popup-tags #1=#:v list #2=#:v 0 error "%s accessing a non-%s" popup-list 22 popup-offset 19 popup-direction 7 popup-height 5] 7])
(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])
#@155
(fn POINT WIDTH HEIGHT &key MIN-HEIGHT AROUND (FACE '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 --dotimes-limit-- w begin overlay emacs-major-version p #3=#:--cl-var-- it popup-instances priority vector cl-struct-popup] 28 (#$ . 36077)])
(defalias 'popup-delete #[(popup) "\306!\203\207 \307!\210\310\311\312H >\204 \313\314\315\300#\210\316H\"\210\312H >\204- \313\314\315\300#\210\211\316\317I\210)\320 \"\312H >\204H \313\314\321\300#\210\322H\211 \312V\203\206 \212\323\317\324 \325\216db\210\f\312 W\203\204 `Sf\326U\203{ \327\330!\210T\211\202i .)\317\207" [popup cl-struct-popup-tags #1=#:v popup-instances newlines modified popup-live-p popup-hide mapc delete-overlay 0 error "%s accessing a non-%s" popup-overlays 8 nil delq popup-newlines 23 t buffer-modified-p ((set-buffer-modified-p modified)) 10 delete-char -1 buffer-read-only buffer-undo-list i --dotimes-limit--] 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\310\357\300#\210\211 H\360>=ZI\210)8\203@\350\351\352\f#\202A\353,\203J\351\202K\353 , D\306H >\204]\307\310\361\300#\210\362H\306V\203\241 \203\213> W\203\213\356>\353\f9:D,\353& \210>T\211>\202k>\nW\203\360\363>\"\210>T\211>\202\215 \203\253\n Z\202\255= I\306 >= J>JW\203\357>IW\203\314\363>\"\210>IY\203\346\356>\353\f9:D,\353& \210>T\211>\202\270+.\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 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 #2=#:v h #3=#:--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 --dotimes-limit-- 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 --dotimes-limit-- 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) " \304H\n>\204 \305\306\307\301#\210 \310H\\\304X\205K \304H\n>\204) \305\306\311\301#\210 \312HW\205K \304H\n>\204> \305\306\313\301#\210 \211\314I\210)\315 !\210\316\207" [i popup cl-struct-popup-tags #1=#:v 0 error "%s accessing a non-%s" popup-offset 19 popup-height 5 popup-cursor 18 popup-draw t] 6])
(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 >\204v \307\310\313\300#\210\211 \314\fI\210)\306H >\204\215 \307\310\315\300#\210\211 \316 I\210)\321!,\207" [popup cl-struct-popup-tags length scroll-top cursor height 0 error "%s accessing a non-%s" popup-height 5 popup-cursor 18 popup-scroll-top 20 popup-list 22 popup-draw #1=#:v #2=#:v] 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 >\204t \307\310\313\300#\210\211 \314\fI\210)\306H >\204\213 \307\310\315\300#\210\211 \316 I\210)\321!,\207" [popup cl-struct-popup-tags length scroll-top cursor height 0 error "%s accessing a non-%s" popup-height 5 popup-cursor 18 popup-scroll-top 20 popup-list 22 popup-draw #1=#:v #2=#:v] 8])
(defalias 'popup-scroll-down #[(popup &optional n) "\306H >\204 \307\310\311\300#\210\312H\n\206 \313\\\306H >\204% \307\310\314\300#\210\315HG\306H >\2047 \307\310\316\300#\210\317HZ^\306H >\204K \307\310\320\300#\210\211 \321 I\210)\306H >\204a \307\310\311\300#\210\211 \312 I\210)\322!)\207" [popup cl-struct-popup-tags n scroll-top #1=#:v #2=#:v 0 error "%s accessing a non-%s" popup-scroll-top 20 1 popup-list 22 popup-height 5 popup-cursor 18 popup-draw] 7])
(defalias 'popup-scroll-up #[(popup &optional n) "\306H >\204 \307\310\311\300#\210\312H\n\206 \313Z\306]\306H >\204( \307\310\314\300#\210\211 \315 I\210)\306H >\204> \307\310\311\300#\210\211 \312 I\210)\316!)\207" [popup cl-struct-popup-tags n scroll-top #1=#:v #2=#:v 0 error "%s accessing a non-%s" popup-scroll-top 20 1 popup-cursor 18 popup-draw] 5])
(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])
(byte-code "\300\301\302\303#\207" [put popup-isearch-char-p byte-optimizer byte-compile-inline-expand] 4)
(defalias 'popup-isearch-filter-list #[(pattern list) "\306!\n\307\211 :\203M @\211;\204 \310\311\f!\312\f#\313 \f\"\203F \314\224\314\225 \315\314\fG\316\317\f%\210\320\316\321\f%\210\f*B A\211\202 \237,\207" [pattern regexp list #1=#:--cl-var-- item #2=#:--cl-var-- regexp-quote nil popup-item-propertize popup-x-to-string value string-match 0 alter-text-property face #[(prop) "\301=?\205 \207" [prop popup-isearch-match] 2] put-text-property popup-isearch-match end beg] 7])
(defalias 'popup-isearch-prompt #[(popup pattern) "\303\304\305H >\204 \306\307\310\300#\210\311HG\305U\203! \312\n\313\314#\202\" \n\"\207" [popup cl-struct-popup-tags pattern format "Pattern: %s" 0 error "%s accessing a non-%s" popup-list 22 propertize face isearch-fail] 6])
(defalias 'popup-isearch-update #[(popup pattern &optional callback) "\306H >\204 \307\310\311\300#\210\211\312\306I\210)\306H >\204$ \307\310\313\300#\210\211\314\306I\210)\306H >\204: \307\310\315\300#\210\211 \316I\210)\317\306H >\204R \307\310\320\300#\210\321H\" \322\"\210\203i !\210)\323!\207" [popup cl-struct-popup-tags #1=#:v #2=#:v #3=#:v pattern 0 error "%s accessing a non-%s" popup-cursor 18 popup-scroll-top 20 popup-pattern 24 popup-isearch-filter-list popup-original-list 25 popup-set-filtered-list popup-draw list callback] 7])
#@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 (#$ . 47174)])
(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 (#$ . 49304)])
(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 (#$ . 51592))
#@56 Function used for showing quick help by `popup-menu*'.
(defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help (#$ . 51727))
(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 (#$ . 54121)])
#@361
(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 '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 (#$ . 56237)])
#@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 (#$ . 58526)])
(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)