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