;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require cl-lib mule] 2) (defconst popup-version "0.5.8") #@117 Determines whether the width with MAX-WIDTH desired is character or window proportion based, And return the result. (defalias 'popup-calculate-max-width #[(max-width) "\250\203\207\301!\205\302\303\304 _!\305\245!\306_\207" [max-width floatp ceiling round window-width 10.0 10] 4 (#$ . 186)]) #@89 Use the optimized column computation routine. If there is a problem, please set it nil. (defvar popup-use-optimized-column-computation t (#$ . 493)) #@15 Anaphoric if. (defalias 'popup-aif '(macro . #[(test then &rest else) "\303\304DC\305\304 \nBBBE\207" [test then else let it if] 6 (#$ . 648)])) (byte-code "\300\301\302\303#\300\207" [function-put popup-aif lisp-indent-function 2] 4) #@17 Anaphoric when. (defalias 'popup-awhen '(macro . #[(test &rest body) "\302\303DC\304\303 BBE\207" [test body let it when] 5 (#$ . 890)])) (byte-code "\300\301\302\303#\300\207" [function-put popup-awhen lisp-indent-function 1] 4) #@96 Convert any object to string efficiently. This is faster than `prin1-to-string' in many cases. (defalias 'popup-x-to-string #[(x) ";\203\2079\203\301!\207\250\203\302!\207\303!\203#\302!\207\304\305\"\207" [x symbol-name number-to-string floatp format "%s"] 3 (#$ . 1127)]) #@79 Return a cons cell of substring and remaining string by splitting with WIDTH. (defalias 'popup-substring-by-width #[(string width) "\306\307\310#\211G\311\211\312\313\"\313\f:\2033\f@\n\314 !\\\211 X\2033 T\fA\211\202 W\203E\311 O \313OB\202GC-\207" [string len w l #1=#:--cl-var-- c replace-regexp-in-string " " " " 0 append nil char-width width] 5 (#$ . 1423)]) #@727 Split STRING into fixed width strings and return a cons cell like (WIDTH . ROWS). Here, the car WIDTH indicates the actual maxim width of ROWS. The argument WIDTH specifies the width of filling each paragraph. WIDTH nil means don't perform any justification and word wrap. Note that this function doesn't add any padding characters at the end of each row. MAX-WIDTH, if WIDTH is nil, specifies the maximum number of columns. The optional fourth argument JUSTIFY specifies which kind of justification to do: `full', `left', `right', `center', or `none' (equivalent to nil). A value of t means handle each paragraph as specified by its text properties. SQUEEZE nil means leave whitespaces other than line breaks untouched. (defalias 'popup-fill-string #[(string &optional width max-width justify squeeze) "\306=\203\n\307\310!\210\203\311\312\313\"r\nq\210\314\216\315\306\316\317\211\211c\210\320ed\"\210\203D\321ed?$\210eb\210\306`\317\210`{ \203}\322 \"\323\f!]\f B\fGGU\204\211\fG\317O\211\204U\202\211\323!] B)`dW\324\325!\210\204I \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*" t #[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 (#$ . 1820)]) (defalias 'popup-save-buffer-state '(macro . #[(&rest body) "\301\302\303\304\305B\306BBED\207" [body save-excursion let ((buffer-undo-list t) (inhibit-read-only t) (modified (buffer-modified-p))) unwind-protect progn ((set-buffer-modified-p modified))] 6])) (byte-code "\300\301\302\303#\300\207" [function-put popup-save-buffer-state lisp-indent-function 0] 4) #@42 A portable version of `vertical-motion'. (defalias 'popup-vertical-motion #[(column direction) "\304\300!\203\203 \305\306!Z\n\307Y\203\310 B!\207\310 !\210\311i \\!\207" [display-line-numbers-mode column emacs-major-version direction boundp line-number-display-width columns 23 vertical-motion move-to-column] 3 (#$ . 3678)]) #@65 Return non-nil if the cursor is at the last line of the buffer. (defalias 'popup-last-line-of-buffer-p #[nil "\212\300\210\300y\301U)?\207" [nil 0] 2 (#$ . 4020)]) (defalias 'popup-lookup-key-by-event #[#'event "\303 !!\206' 9\205' \304N\211\205&\303\305\n@\306N\206 \307\nA@\"!!)\207" [function event it vector event-symbol-element-mask logior ascii-character 0] 6]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\304\301%\210\310\314\315\316\304\301%\210\310\317\320\321\304\301%\210\310\322\323\324\304\301%\207" [custom-declare-group popup nil "Visual Popup User Interface" :group lisp :prefix "popup-" custom-declare-face popup-face ((t (:inherit default :background "lightgray" :foreground "black"))) "Face for popup." popup-summary-face ((t (:inherit popup-face :foreground "dimgray"))) "Face for popup summary." popup-scroll-bar-foreground-face ((t (:background "black"))) "Foreground face for scroll-bar." popup-scroll-bar-background-face ((t (:background "gray"))) "Background face for scroll-bar."] 8) #@18 Popup instances. (defvar popup-instances nil (#$ . 5067)) #@38 Foreground character for scroll-bar. (defvar popup-scroll-bar-foreground-char (propertize " " 'face 'popup-scroll-bar-foreground-face) (#$ . 5131)) #@38 Background character for scroll-bar. (defvar popup-scroll-bar-background-char (propertize " " 'face 'popup-scroll-bar-background-face) (#$ . 5285)) #@40 compiler-macro for inlining `popup-p'. (defalias 'popup-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-p (and (memq (type-of cl-x) cl-struct-popup-tags) t)) nil] 7 (#$ . 5439)]) (put 'popup-p 'compiler-macro 'popup-p--cmacro) (defalias 'popup-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-popup-tags type-of t] 2]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put popup-p side-effect-free error-free put popup cl-deftype-satisfies] 5) #@44 compiler-macro for inlining `popup-point'. (defalias 'popup-point--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-point (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 1))) nil] 7 (#$ . 5972)]) (put 'popup-point 'compiler-macro 'popup-point--cmacro) #@45 Access slot "point" of `popup' struct CL-X. (defalias 'popup-point #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 1] 4 (#$ . 6333)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-point side-effect-free t] 4) #@42 compiler-macro for inlining `popup-row'. (defalias 'popup-row--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-row (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 2))) nil] 7 (#$ . 6637)]) (put 'popup-row 'compiler-macro 'popup-row--cmacro) #@43 Access slot "row" of `popup' struct CL-X. (defalias 'popup-row #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 2] 4 (#$ . 6988)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-row side-effect-free t] 4) #@45 compiler-macro for inlining `popup-column'. (defalias 'popup-column--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-column (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 3))) nil] 7 (#$ . 7286)]) (put 'popup-column 'compiler-macro 'popup-column--cmacro) #@46 Access slot "column" of `popup' struct CL-X. (defalias 'popup-column #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 3] 4 (#$ . 7652)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-column side-effect-free t] 4) #@44 compiler-macro for inlining `popup-width'. (defalias 'popup-width--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-width (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 4))) nil] 7 (#$ . 7959)]) (put 'popup-width 'compiler-macro 'popup-width--cmacro) #@45 Access slot "width" of `popup' struct CL-X. (defalias 'popup-width #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 4] 4 (#$ . 8320)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-width side-effect-free t] 4) #@45 compiler-macro for inlining `popup-height'. (defalias 'popup-height--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-height (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 5))) nil] 7 (#$ . 8624)]) (put 'popup-height 'compiler-macro 'popup-height--cmacro) #@46 Access slot "height" of `popup' struct CL-X. (defalias 'popup-height #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 5] 4 (#$ . 8990)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-height side-effect-free t] 4) #@49 compiler-macro for inlining `popup-min-height'. (defalias 'popup-min-height--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-min-height (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 6))) nil] 7 (#$ . 9297)]) (put 'popup-min-height 'compiler-macro 'popup-min-height--cmacro) #@50 Access slot "min-height" of `popup' struct CL-X. (defalias 'popup-min-height #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 6] 4 (#$ . 9683)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-min-height side-effect-free t] 4) #@48 compiler-macro for inlining `popup-direction'. (defalias 'popup-direction--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-direction (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 7))) nil] 7 (#$ . 10002)]) (put 'popup-direction 'compiler-macro 'popup-direction--cmacro) #@49 Access slot "direction" of `popup' struct CL-X. (defalias 'popup-direction #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 7] 4 (#$ . 10384)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-direction side-effect-free t] 4) #@47 compiler-macro for inlining `popup-overlays'. (defalias 'popup-overlays--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-overlays (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 8))) nil] 7 (#$ . 10701)]) (put 'popup-overlays 'compiler-macro 'popup-overlays--cmacro) #@48 Access slot "overlays" of `popup' struct CL-X. (defalias 'popup-overlays #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 8] 4 (#$ . 11078)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-overlays side-effect-free t] 4) #@45 compiler-macro for inlining `popup-keymap'. (defalias 'popup-keymap--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-keymap (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 9))) nil] 7 (#$ . 11392)]) (put 'popup-keymap 'compiler-macro 'popup-keymap--cmacro) #@46 Access slot "keymap" of `popup' struct CL-X. (defalias 'popup-keymap #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 9] 4 (#$ . 11759)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-keymap side-effect-free t] 4) #@45 compiler-macro for inlining `popup-parent'. (defalias 'popup-parent--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-parent (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 10))) nil] 7 (#$ . 12067)]) (put 'popup-parent 'compiler-macro 'popup-parent--cmacro) #@46 Access slot "parent" of `popup' struct CL-X. (defalias 'popup-parent #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 10] 4 (#$ . 12435)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-parent side-effect-free t] 4) #@44 compiler-macro for inlining `popup-depth'. (defalias 'popup-depth--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-depth (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 11))) nil] 7 (#$ . 12744)]) (put 'popup-depth 'compiler-macro 'popup-depth--cmacro) #@45 Access slot "depth" of `popup' struct CL-X. (defalias 'popup-depth #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 11] 4 (#$ . 13107)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-depth side-effect-free t] 4) #@43 compiler-macro for inlining `popup-face'. (defalias 'popup-face--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-face (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 12))) nil] 7 (#$ . 13413)]) (put 'popup-face 'compiler-macro 'popup-face--cmacro) #@44 Access slot "face" of `popup' struct CL-X. (defalias 'popup-face #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 12] 4 (#$ . 13771)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-face side-effect-free t] 4) #@49 compiler-macro for inlining `popup-mouse-face'. (defalias 'popup-mouse-face--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-mouse-face (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 13))) nil] 7 (#$ . 14074)]) (put 'popup-mouse-face 'compiler-macro 'popup-mouse-face--cmacro) #@50 Access slot "mouse-face" of `popup' struct CL-X. (defalias 'popup-mouse-face #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 13] 4 (#$ . 14462)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-mouse-face side-effect-free t] 4) #@53 compiler-macro for inlining `popup-selection-face'. (defalias 'popup-selection-face--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-selection-face (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 14))) nil] 7 (#$ . 14783)]) (put 'popup-selection-face 'compiler-macro 'popup-selection-face--cmacro) #@54 Access slot "selection-face" of `popup' struct CL-X. (defalias 'popup-selection-face #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 14] 4 (#$ . 15191)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-selection-face side-effect-free t] 4) #@51 compiler-macro for inlining `popup-summary-face'. (defalias 'popup-summary-face--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-summary-face (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 15))) nil] 7 (#$ . 15524)]) (put 'popup-summary-face 'compiler-macro 'popup-summary-face--cmacro) #@52 Access slot "summary-face" of `popup' struct CL-X. (defalias 'popup-summary-face #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 15] 4 (#$ . 15922)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-summary-face side-effect-free t] 4) #@50 compiler-macro for inlining `popup-margin-left'. (defalias 'popup-margin-left--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-margin-left (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 16))) nil] 7 (#$ . 16249)]) (put 'popup-margin-left 'compiler-macro 'popup-margin-left--cmacro) #@51 Access slot "margin-left" of `popup' struct CL-X. (defalias 'popup-margin-left #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 16] 4 (#$ . 16642)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-margin-left side-effect-free t] 4) #@51 compiler-macro for inlining `popup-margin-right'. (defalias 'popup-margin-right--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-margin-right (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 17))) nil] 7 (#$ . 16966)]) (put 'popup-margin-right 'compiler-macro 'popup-margin-right--cmacro) #@52 Access slot "margin-right" of `popup' struct CL-X. (defalias 'popup-margin-right #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 17] 4 (#$ . 17364)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-margin-right side-effect-free t] 4) #@57 compiler-macro for inlining `popup-margin-left-cancel'. (defalias 'popup-margin-left-cancel--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-margin-left-cancel (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 18))) nil] 7 (#$ . 17691)]) (put 'popup-margin-left-cancel 'compiler-macro 'popup-margin-left-cancel--cmacro) #@58 Access slot "margin-left-cancel" of `popup' struct CL-X. (defalias 'popup-margin-left-cancel #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 18] 4 (#$ . 18119)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-margin-left-cancel side-effect-free t] 4) #@49 compiler-macro for inlining `popup-scroll-bar'. (defalias 'popup-scroll-bar--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-scroll-bar (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 19))) nil] 7 (#$ . 18464)]) (put 'popup-scroll-bar 'compiler-macro 'popup-scroll-bar--cmacro) #@50 Access slot "scroll-bar" of `popup' struct CL-X. (defalias 'popup-scroll-bar #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 19] 4 (#$ . 18852)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-scroll-bar side-effect-free t] 4) #@45 compiler-macro for inlining `popup-symbol'. (defalias 'popup-symbol--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-symbol (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 20))) nil] 7 (#$ . 19173)]) (put 'popup-symbol 'compiler-macro 'popup-symbol--cmacro) #@46 Access slot "symbol" of `popup' struct CL-X. (defalias 'popup-symbol #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 20] 4 (#$ . 19541)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-symbol side-effect-free t] 4) #@45 compiler-macro for inlining `popup-cursor'. (defalias 'popup-cursor--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-cursor (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 21))) nil] 7 (#$ . 19850)]) (put 'popup-cursor 'compiler-macro 'popup-cursor--cmacro) #@46 Access slot "cursor" of `popup' struct CL-X. (defalias 'popup-cursor #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 21] 4 (#$ . 20218)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-cursor side-effect-free t] 4) #@45 compiler-macro for inlining `popup-offset'. (defalias 'popup-offset--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-offset (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 22))) nil] 7 (#$ . 20527)]) (put 'popup-offset 'compiler-macro 'popup-offset--cmacro) #@46 Access slot "offset" of `popup' struct CL-X. (defalias 'popup-offset #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 22] 4 (#$ . 20895)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-offset side-effect-free t] 4) #@49 compiler-macro for inlining `popup-scroll-top'. (defalias 'popup-scroll-top--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-scroll-top (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 23))) nil] 7 (#$ . 21204)]) (put 'popup-scroll-top 'compiler-macro 'popup-scroll-top--cmacro) #@50 Access slot "scroll-top" of `popup' struct CL-X. (defalias 'popup-scroll-top #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 23] 4 (#$ . 21592)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-scroll-top side-effect-free t] 4) #@53 compiler-macro for inlining `popup-current-height'. (defalias 'popup-current-height--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-current-height (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 24))) nil] 7 (#$ . 21913)]) (put 'popup-current-height 'compiler-macro 'popup-current-height--cmacro) #@54 Access slot "current-height" of `popup' struct CL-X. (defalias 'popup-current-height #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 24] 4 (#$ . 22321)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-current-height side-effect-free t] 4) #@43 compiler-macro for inlining `popup-list'. (defalias 'popup-list--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-list (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 25))) nil] 7 (#$ . 22654)]) (put 'popup-list 'compiler-macro 'popup-list--cmacro) #@44 Access slot "list" of `popup' struct CL-X. (defalias 'popup-list #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 25] 4 (#$ . 23012)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-list side-effect-free t] 4) #@47 compiler-macro for inlining `popup-newlines'. (defalias 'popup-newlines--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-newlines (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 26))) nil] 7 (#$ . 23315)]) (put 'popup-newlines 'compiler-macro 'popup-newlines--cmacro) #@48 Access slot "newlines" of `popup' struct CL-X. (defalias 'popup-newlines #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 26] 4 (#$ . 23693)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-newlines side-effect-free t] 4) #@46 compiler-macro for inlining `popup-pattern'. (defalias 'popup-pattern--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-pattern (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 27))) nil] 7 (#$ . 24008)]) (put 'popup-pattern 'compiler-macro 'popup-pattern--cmacro) #@47 Access slot "pattern" of `popup' struct CL-X. (defalias 'popup-pattern #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 27] 4 (#$ . 24381)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-pattern side-effect-free t] 4) #@52 compiler-macro for inlining `popup-original-list'. (defalias 'popup-original-list--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-original-list (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 28))) nil] 7 (#$ . 24693)]) (put 'popup-original-list 'compiler-macro 'popup-original-list--cmacro) #@53 Access slot "original-list" of `popup' struct CL-X. (defalias 'popup-original-list #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 28] 4 (#$ . 25096)]) (byte-code "\300\301\302\303#\300\207" [function-put popup-original-list side-effect-free t] 4) #@53 compiler-macro for inlining `popup-invis-overlays'. (defalias 'popup-invis-overlays--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block popup-invis-overlays (progn (or (popup-p cl-x) (signal 'wrong-type-argument (list 'popup cl-x))) (aref cl-x 29))) nil] 7 (#$ . 25426)]) (put 'popup-invis-overlays 'compiler-macro 'popup-invis-overlays--cmacro) #@54 Access slot "invis-overlays" of `popup' struct CL-X. (defalias 'popup-invis-overlays #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-popup-tags type-of signal wrong-type-argument popup 29] 4 (#$ . 25834)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put popup-invis-overlays side-effect-free t defalias copy-popup copy-sequence] 4) #@350 compiler-macro for inlining `make-popup'. (fn CL-WHOLE &cl-quote &key POINT ROW COLUMN WIDTH HEIGHT MIN-HEIGHT DIRECTION OVERLAYS KEYMAP PARENT DEPTH FACE MOUSE-FACE SELECTION-FACE SUMMARY-FACE MARGIN-LEFT MARGIN-RIGHT MARGIN-LEFT-CANCEL SCROLL-BAR SYMBOL CURSOR OFFSET SCROLL-TOP CURRENT-HEIGHT LIST NEWLINES PATTERN ORIGINAL-LIST INVIS-OVERLAYS) (defalias 'make-popup--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@,\306\315\"A@-\306\316\"A@.\306\317\"A@/\306\320\"A@0\306\321\"A@1\306\322\"A@2\306\323\"A@3\306\324\"A@4\306\325\"A@5\306\326\"A@6\306\327\"A@7\306\330\"A@8\306\331\"A@9\306\332\"A@:\306\333\"A@;\306\334\"A@<\306\335\"A@=\306\336\"A@>\306\337\"A@?\306\340\"A@@\306\341\"A@A\306\342\"A@B\306\343\"A@CDD\203D@\344>\203\375DAA\211D\202\350\345>A@\203\f\346\211D\202\350\347\350D@\"\210\202\346)\351\352\353\346E\346 \n \f ,-./0123456789:;<=>?@ABC&\".\207" [#1# point row column width height plist-member :point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays (:point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays)" cl--defsubst-expand (point row column width height min-height direction overlays keymap parent depth face mouse-face selection-face summary-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list invis-overlays) (cl-block make-popup (record 'popup point row column width height min-height direction overlays keymap parent depth face mouse-face selection-face summary-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list invis-overlays)) min-height direction overlays keymap parent depth face mouse-face selection-face summary-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list invis-overlays #2=#:--cl-keys-- cl-whole] 36 (#$ . 26212)]) (put 'make-popup 'compiler-macro 'make-popup--cmacro) #@330 Constructor for objects of type `popup'. (fn &key POINT ROW COLUMN WIDTH HEIGHT MIN-HEIGHT DIRECTION OVERLAYS KEYMAP PARENT DEPTH FACE MOUSE-FACE SELECTION-FACE SUMMARY-FACE MARGIN-LEFT MARGIN-RIGHT MARGIN-LEFT-CANCEL SCROLL-BAR SYMBOL CURSOR OFFSET SCROLL-TOP CURRENT-HEIGHT LIST NEWLINES PATTERN ORIGINAL-LIST INVIS-OVERLAYS) (defalias 'make-popup #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@+\306\315\"A@,\306\316\"A@-\306\317\"A@.\306\320\"A@/\306\321\"A@0\306\322\"A@1\306\323\"A@2\306\324\"A@3\306\325\"A@4\306\326\"A@5\306\327\"A@6\306\330\"A@7\306\331\"A@8\306\332\"A@9\306\333\"A@:\306\334\"A@;\306\335\"A@<\306\336\"A@=\306\337\"A@>\306\340\"A@?\306\341\"A@@\306\342\"A@A\306\343\"A@BCC\203C@\344>\203\375CAA\211C\202\350\345>A@\203\f\346\211C\202\350\347\350C@\"\210\202\346)\351\352 \n \f +,-./0123456789:;<=>?@AB&.\207" [#1# point row column width height plist-member :point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays (:point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:point :row :column :width :height :min-height :direction :overlays :keymap :parent :depth :face :mouse-face :selection-face :summary-face :margin-left :margin-right :margin-left-cancel :scroll-bar :symbol :cursor :offset :scroll-top :current-height :list :newlines :pattern :original-list :invis-overlays)" record popup min-height direction overlays keymap parent depth face mouse-face selection-face summary-face margin-left margin-right margin-left-cancel scroll-bar symbol cursor offset scroll-top current-height list newlines pattern original-list invis-overlays #2=#:--cl-keys--] 32 (#$ . 29270)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-popup side-effect-free t cl-struct-define popup nil cl-structure-object record ((cl-tag-slot) (point) (row) (column) (width) (height) (min-height) (direction) (overlays) (keymap) (parent) (depth) (face) (mouse-face) (selection-face) (summary-face) (margin-left) (margin-right) (margin-left-cancel) (scroll-bar) (symbol) (cursor) (offset) (scroll-top) (current-height) (list) (newlines) (pattern) (original-list) (invis-overlays)) cl-struct-popup-tags] 11) #@92 Same as `propertize' except that this avoids overriding existed value with `nil' property. (defalias 'popup-item-propertize #[(item &rest properties) "\306\211\306\211 :\203- \211\211A\242\f@\211\203%\307 \n D\" AA\211\202 \310\311\312 ! #-\207" [properties #1=#:--cl-var-- k v #2=#:--cl-var-- props nil append apply propertize popup-x-to-string item] 5 (#$ . 32163)]) #@81 Same as `get-text-property' except that this returns nil if ITEM is not string. (defalias 'popup-item-property #[(item property) ";\205\n\302\303 #\207" [item property get-text-property 0] 4 (#$ . 32554)]) #@124 Replace non-displayable character from STR. Optional argument REP is the replacement string of non-displayable character. (defalias 'popup-replace-displayable #[(str &optional rep) "\204\303\303\304\305\n\"\210 )\207" [rep result str "" mapc #[(ch) "\303 !\203 \304 !\202\nP\211\207" [result ch rep char-displayable-p string] 3]] 3 (#$ . 32770)]) #@157 Utility function to make popup item. See also `popup-item-propertize'. (fn NAME &key VALUE FACE MOUSE-FACE SELECTION-FACE SUBLIST DOCUMENT SYMBOL SUMMARY) (defalias 'popup-make-item #[(name &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\203n@\317>\203UAA\211\202@\320>A@\203d\321\211\202@\322\323@\"\210\202>)\324\301 \325\n\326 \304\f\327\330\331\305 &.\207" [#1# value face mouse-face selection-face sublist plist-member :value :face :mouse-face :selection-face :sublist :document :symbol :summary (:value :face :mouse-face :selection-face :sublist :document :symbol :summary :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:value :face :mouse-face :selection-face :sublist :document :symbol :summary)" popup-item-propertize popup-face popup-mouse-face document symbol summary #2=#:--cl-keys-- name] 19 (#$ . 33135)]) (defalias 'popup-item-value #[(item) "\301\302\"\207" [item popup-item-property value] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-item-value speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-item-value-or-self #[(item) "\301\302\")\206 \207" [item popup-item-property value] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-item-value-or-self speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-item-face #[(item) "\301\302\"\207" [item popup-item-property popup-face] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-item-face speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-item-mouse-face #[(item) "\301\302\"\207" [item popup-item-property popup-mouse-face] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-item-mouse-face speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-item-selection-face #[(item) "\301\302\"\207" [item popup-item-property selection-face] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-item-selection-face speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-item-document #[(item) "\301\302\"\207" [item popup-item-property document] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-item-document speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-item-summary #[(item) "\301\302\"\207" [item popup-item-property summary] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-item-summary speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-item-symbol #[(item) "\301\302\"\207" [item popup-item-property symbol] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-item-symbol speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-item-sublist #[(item) "\301\302\"\207" [item popup-item-property sublist] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-item-sublist speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-item-documentation #[(item) "\302\303\")\304 !\203 \211\302\305\")\206)! )\207" [item doc popup-item-property document functionp value] 5]) (defalias 'popup-item-show-help-1 #[(item) "\302!\211\205r\303\304!q\210\305 \210 c\210eb\210\306p!\210)\307)\207" [item doc popup-item-documentation get-buffer-create " *Popup Help*" erase-buffer display-buffer t] 3]) (defalias 'popup-item-show-help-with-event-loop #[(item) "\306 \307\216\310 !\205D\3112D\312\313\314 \210\315\312!\316\n!\211\317\267\2021\320 \210\202;\321\312!\210\202;\322\n \"\323\311\312\"\210)\312\202*\3120*\207" [#1=#:wconfig item key #2=#:--cl-var-- #3=#:temp unread-command-events current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] popup-item-show-help-1 --cl-block-nil-- nil t clear-this-command-keys read-key-sequence-vector key-binding #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scroll-other-window 36 scroll-other-window-down 42)) scroll-other-window scroll-other-window-down append throw] 4]) #@247 Display the documentation of ITEM with `display-buffer'. If PERSIST is nil, the documentation buffer will be closed automatically, meaning interal event loop ensures the buffer to be closed. Otherwise, the buffer will be just displayed as usual. (defalias 'popup-item-show-help #[(item &optional persist) "\205 \204\f\302!\207\303!\207" [item persist popup-item-show-help-with-event-loop popup-item-show-help-1] 2 (#$ . 37417)]) (defalias 'popup-set-list #[(popup list) "\305 \"\210\306!\n>\204\307\310\300D\"\210\211\311\312I\210)\306!\n>\204+\307\310\300D\"\210\211\313 I)\207" [popup list cl-struct-popup-tags #1=#:v #2=#:v popup-set-filtered-list type-of signal wrong-type-argument 27 nil 28] 5]) (defalias 'popup-set-filtered-list #[(popup list) "\306! >\204\307\310\300D\"\210\311H\312V\203\312\2022\306! >\204*\307\310\300D\"\210\313H\nGZ\312]\306! >\204B\307\310\300D\"\210\211\314\nI\210)\306! >\204Y\307\310\300D\"\210\211\315 I*\207" [popup cl-struct-popup-tags list offset #1=#:v #2=#:v type-of signal wrong-type-argument 7 0 5 25 22] 5]) (defalias 'popup-selected-item #[(popup) "\302! >\204\303\304\300D\"\210\305H\302! >\204!\303\304\300D\"\210\306H8\207" [popup cl-struct-popup-tags type-of signal wrong-type-argument 21 25] 5]) (defalias 'popup-selected-line #[(popup) "\302! >\204\303\304\300D\"\210\305H\302! >\204!\303\304\300D\"\210\306HZ\207" [popup cl-struct-popup-tags type-of signal wrong-type-argument 21 23] 5]) (defalias 'popup-line-overlay #[(popup line) "\303! >\204\304\305\300D\"\210\306H\nH\207" [popup cl-struct-popup-tags line type-of signal wrong-type-argument 8] 4]) (defalias 'popup-selected-line-overlay #[(popup) "\301\302!\"\207" [popup popup-line-overlay popup-selected-line] 4]) (defalias 'popup-hide-line #[(popup line) "\303 \"\304\n\305\306#\210\304\n\307\306#)\207" [popup line overlay popup-line-overlay overlay-put display nil after-string] 4]) (defalias 'popup-line-hidden-p #[(popup line) "\303 \"\304\n\305\"\306=\205\304\n\307\"\306=)\207" [popup line overlay popup-line-overlay overlay-get display nil after-string] 3]) #@121 (fn POPUP LINE &key ITEM FACE MOUSE-FACE MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR-CHAR SYMBOL SUMMARY SUMMARY-FACE KEYMAP) (defalias 'popup-set-line-item #[(popup line &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@&\306\315\"A@'\306\316\"A@(\306\317\"A@)\306\320\"A@**\203~*@\321>\203e*AA\211*\202P\322>A@\203t\323\211*\202P\324\325*@\"\210\202N)\326+,\"-\327+\330 !\312\f\313 \315'\316(\317)&\f.\331/\332-\333\"\332-\334\"\3230\335\331.G\336 .%\210\335\331.G\337.%\210\340/\302.#\203\334\341/\302.#//\203\341/\302.#\2110\203\335/0\302\n.%\210\3410\302.#\211/\204\341/\203\335/.G\302\n.%\210 \203&\335\331.G\303 .%\210\332-\342\"\2032\343\2023\3441\345-1.&R#.\207" [#1# item face mouse-face margin-left margin-right plist-member :item :face :mouse-face :margin-left :margin-right :scroll-bar-char :symbol :summary :summary-face :keymap (:item :face :mouse-face :margin-left :margin-right :scroll-bar-char :symbol :summary :summary-face :keymap :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:item :face :mouse-face :margin-left :margin-right :scroll-bar-char :symbol :summary :summary-face :keymap)" popup-line-overlay popup-create-line-string popup-x-to-string 0 overlay-get prefix postfix put-text-property popup-item keymap get-text-property next-single-property-change dangle after-string display overlay-put scroll-bar-char symbol summary summary-face #2=#:--cl-keys-- popup line overlay content start end prop] 14 (#$ . 39570)]) #@79 (fn POPUP STRING &key MARGIN-LEFT MARGIN-RIGHT SYMBOL SUMMARY SUMMARY-FACE) (defalias 'popup-create-line-string #[(popup string &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\203V@\314>\203=AA\211\202(\315>A@\203L\316\211\202(\317\320@\"\210\202&)\321! >\204i\322\323\324D\"\210\325H!\326\f!\"!\326#!^!\"\327V\203\213\"\330\\\202\214\327Z]$\331#$\"@#\326#!!Z\"Z!V\203\263\332\202\264\327]%\331\f!Z%Z\327]\"@& \203\326\333\327&G\334 &%\210 #\335%\336\"& \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 (#$ . 41193)]) #@35 Return non-nil if POPUP is alive. (defalias 'popup-live-p #[(popup) "\205\302! >\204\303\304\300D\"\210\305H\205\306\207" [popup cl-struct-popup-tags type-of signal wrong-type-argument 8 t] 4 (#$ . 42368)]) (defalias 'popup-child-point #[(popup &optional offset) "\302\303 \206\n\304!\"!\207" [popup offset overlay-end popup-line-overlay popup-selected-line] 5]) #@143 Return a proper direction when displaying a popup on this window. HEIGHT is the a height of the popup, and ROW is a line number at the point. (defalias 'popup-calculate-direction #[(height row) "\306\307 \203 \306\202\f\310Z \203\306\202\310Z]\311\312 `\"Z \fV\f\nX\f \2035\f\2045\313\2026\306+\207" [mode-line-format header-line-format remaining-rows row height enough-space-above 1 window-text-height 0 count-lines window-start -1 enough-space-below] 4 (#$ . 42751)]) #@1283 Create a popup instance at POINT with WIDTH and HEIGHT. MIN-HEIGHT is a minimal height of the popup. The default value is 0. MAX-WIDTH is the maximum width of the popup. The default value is nil (no limit). If a floating point, the value refers to the ratio of the window. If an integer, limit is in characters. If AROUND is non-nil, the popup will be displayed around the point but not at the point. FACE is a background face of the popup. The default value is POPUP-FACE. SELECTION-FACE is a foreground (selection) face of the popup The default value is POPUP-FACE. If SCROLL-BAR is non-nil, the popup will have a scroll bar at the right. If MARGIN-LEFT is non-nil, the popup will have a margin at the left. If MARGIN-RIGHT is non-nil, the popup will have a margin at the right. SYMBOL is a single character which indicates a kind of the item. PARENT is a parent popup instance. If PARENT is omitted, the popup will be a root instance. PARENT-OFFSET is a row offset from the parent popup. KEYMAP is a keymap that will be put on the popup contents. (fn POINT WIDTH HEIGHT &key MIN-HEIGHT MAX-WIDTH AROUND (FACE \='popup-face) MOUSE-FACE (SELECTION-FACE face) (SUMMARY-FACE \='popup-summary-face) SCROLL-BAR MARGIN-LEFT MARGIN-RIGHT SYMBOL PARENT PARENT-OFFSET KEYMAP) (defalias 'popup-create #[(point width height &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"\206\313A@\306\314\"A@\306\315\"\2061\316\fDA@@\306\317\"\206=\320A@A\306\321\"A@B\306\322\"A@C\306\323\"A@D\306\324\"A@E\306\325\"A@F\306\326\"A@G\306\327\"A@HII\203\254I@\330>\203\223IAA\211I\202~\331>A@\203\242\316\211I\202~\332\333I@\"\210\202|)C\204\265\334CD\204\275\334DJ\204\323F\203\320\335FG\"\202\321`J\n\203\337K\336\n!^K\212Jb\210\337\340 !\211LAML@N\341O\316\"P\342KB\203\343\202\334CDE\203\344\202\334%Q\316R\345 S\346 &\347 '\350 (NQ\\\211T(V\205>TQYUF?\205KNQYVF\203k\351F!W>\204d\352\353\354FD\"\210F\355H\206q\356OM\"XF\203\222\351F!W>\204\212\352\353\354FD\"\210F\357HT\202\223\334Y\334O\360Jd\"Z \203\246\343\202\247\334\\]Z\316\211[\\Z\334V\203\320\212\361\211\362 ]^_\363\216db\210\364Z\365\"c\210-U\203V\203\363NQCZDZZN \204#\366N!\210\202#`\204Q(NZZTaQaZQKaZK)NCZN\202#NCZNF\204<N\334W\203<\334NQCZQ\361RO\334bcbcW\203\237\316\211\211\361\367\211defghi \203h\370NX\"\210\371\212\372 \210`)\212\373 \210`)\"j\316kj:\203\305j@k\374k\354\"\204\274\374k\375\"\204\274\374k\376\"\204\246\374k\377\"\203\274k\374k\377\"D[B[\201pk\377\367#\210jA\211j\202}*\361\337\340 !@\211\\NW\203\363\364\\\334U\203\346'\\Z\202\347\334N\\Z\\\201q\"e`hQeG\\gl\204g\334V\203\316fg\201r\316f!Zg\316u\210\202\376g\334W\203.\364g[\201q\"d\201sh`\"i\201pi\354\361#\210\201pi\201SS#\210\201pi\201ff#\210\201pi\201ee#\210\201pi\201dd#\210\201pi\201KK#\210PX\334V\203\212b\202\220ObZSiI\210.bT\211b\202E*\201tY\201u_Zl\201vP\316\"\237m\316im:\203\336m@i\201pi\201wl#\210lTlmA\211m\202\273+\201x\354JMNKO XPHFY\f @ACDRBE\334\211\211\211\316Z\316\211[&\211noBon.\"\207" [#1# min-height max-width around face mouse-face plist-member :min-height :max-width :around :face (nil popup-face) :mouse-face :selection-face nil :summary-face (nil popup-summary-face) :scroll-bar :margin-left :margin-right :symbol :parent :parent-offset :keymap (:min-height :max-width :around :face :mouse-face :selection-face :summary-face :scroll-bar :margin-left :margin-right :symbol :parent :parent-offset :keymap :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:min-height :max-width :around :face :mouse-face :selection-face :summary-face :scroll-bar :margin-left :margin-right :symbol :parent :parent-offset :keymap)" 0 popup-child-point popup-calculate-max-width posn-col-row posn-at-point make-vector + 1 2 selected-window window-start window-hscroll window-width type-of signal wrong-type-argument popup 7 popup-calculate-direction 11 count-lines t buffer-modified-p #[nil "\301!\207" [modified set-buffer-modified-p] 2] make-string 10 move-to-column "" popup-vertical-motion overlays-in beginning-of-visual-line end-of-visual-line overlay-get popup-item invisible display 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 overlay-put 32 char-width make-overlay 10000 1000 append priority record] 32 (#$ . 43243)]) #@24 Delete POPUP instance. (defalias 'popup-delete #[(popup) "\306!\203\220\307!\210\310\311\312! >\204\313\314\300D\"\210\315H\"\210\312! >\204/\313\314\300D\"\210\211\315\316I\210)\317 \"\312! >\204K\313\314\300D\"\210\320H\211\321V\203\217\212\322\211\323 \324\216db\210\f\321W\203\215`Sf\203\204`Sf\325U\203\204\326\327!\210T\211\202l.)\316\207" [popup cl-struct-popup-tags #1=#:v popup-instances newlines modified popup-live-p popup-hide mapc delete-overlay type-of signal wrong-type-argument 8 nil delq 26 0 t buffer-modified-p #[nil "\301!\207" [modified set-buffer-modified-p] 2] 10 delete-char -1 inhibit-read-only buffer-undo-list i --dotimes-limit--] 7 (#$ . 48228)]) #@13 Draw POPUP. (defalias 'popup-draw #[(popup) "\306! >\204\307\310\300D\"\210\311H\312\211\312\n:\2037\n@\211\211A\242 @\313 \314\315#\210\nA\211\202,\306! >\204G\307\310\300D\"\210\316H;\306! >\204[\307\310\300D\"\210\317H<\306! >\204o\307\310\300D\"\210\320H&\306! >\204\203\307\310\300D\"\210\321H=\306! >\204\227\307\310\300D\"\210\322H%\306! >\204\253\307\310\300D\"\210\323H>\306! >\204\277\307\310\300D\"\210\324H\211?G@;\211_@\325]\245\325]A\326@\325]\\;\245B\306! >\204\357\307\310\300D\"\210\327HC\330\306! >\204\307\310\300D\"\210\331H\203\332\202 \306! >\204\307\310\300D\"\210\333H\334\"D\330\306! >\2044\307\310\300D\"\210\335H\334\"E\306! >\204J\307\310\300D\"\210\336H+\306! >\204^\307\310\300D\"\210\337HF\306! >\204r\307\310\300D\"\210\340HG\306! >\204\206\307\310\300D\"\210\341HH\306! >\204\232\307\310\300D\"\210\342HIHJGKG?\233L\312\211MN\312\211)O\312\211PQ\312\211R,\343SJ;W\203\320L:\203\320L@MAJA\245_NKFU\203MM\344M\345\")\206%\202MM\344M\346\")\206&)KFU?\205>O\347\350\351)#PC\203hC\352=\204>B\325X\203>P\202iB\325V\203cFNB_Y\203cFNA\\B_W\203cT\202iU\202i\315Q+\203\203\350MM\344M\353\")\206\350P\202\204\315RMM\344M\354\")\206\224\315,\355J\356M\357)\360=\361D\362E\363Q\364R\365,\366O\367I&\210JTJKTKLAL\312S\202\311\306! >\204\337\307\310\300D\"\210\211V\370JHZI\210)C\203\372\347\350\351&#\202\373\315+\203\350\202\315+Q\306! >\204\307\310\300D\"\210\371H\332V\203g<\203PJ\204\307\310\300D\"\210\311H\312\211\312\n:\2037\n@\211\211A\242 @\313 \314\f#\210\nA\211\202,\306! >\204G\307\310\300D\"\210\315H\316W\205f\317\"\210T\211\202Q*\207" [popup cl-struct-popup-tags #1=#:--cl-var-- ov olddisplay #2=#:--cl-var-- type-of signal wrong-type-argument 29 nil overlay-put display 5 0 popup-hide-line i --dotimes-limit--] 5 (#$ . 51708)]) #@36 Return non-nil if POPUP is hidden. (defalias 'popup-hidden-p #[(popup) "\305\306 !\2034\307 !\n>\204\310\311\301 D\"\210 \312H\313 \fW\2033\314 \"\204,\315 T\211\202*)\207" [hidden popup cl-struct-popup-tags i --dotimes-limit-- t popup-live-p type-of signal wrong-type-argument 5 0 popup-line-hidden-p nil] 5 (#$ . 52165)]) #@59 Jump to a position specified by CURSOR of POPUP and draw. (defalias 'popup-jump #[(popup cursor) "\306! >\204\307\310\300D\"\210\311H\211 X\2032 \n\306! >\204*\307\310\300D\"\210\312H\\W\204I\306! >\204A\307\310\300D\"\210\211\311 I\210)\306! >\204X\307\310\300D\"\210\211\313 I\210)\314!)\207" [popup cl-struct-popup-tags scroll-top cursor #1=#:v #2=#:v type-of signal wrong-type-argument 23 5 21 popup-draw] 7 (#$ . 52509)]) #@41 Select the item at I of POPUP and draw. (defalias 'popup-select #[(popup i) "\304 !\n>\204\305\306\301 D\"\210 \307H\\\310X\205N\304 !\n>\204+\305\306\301 D\"\210 \311HW\205N\304 !\n>\204A\305\306\301 D\"\210 \211\312I\210)\313 !\210\314\207" [i popup cl-struct-popup-tags #1=#:v type-of signal wrong-type-argument 22 0 5 21 popup-draw t] 6 (#$ . 52965)]) #@41 Select the next item of POPUP and draw. (defalias 'popup-next #[(popup) "\306! >\204\307\310\300D\"\210\311H\306! >\204!\307\310\300D\"\210\312HT\306! >\2044\307\310\300D\"\210\313H\306! >\204F\307\310\300D\"\210\314HG\f\nY\203[\315\211\202l\f \\U\203l T\n Z\315]^\306! >\204{\307\310\300D\"\210\211\312\fI\210)\306! >\204\223\307\310\300D\"\210\211\313 I\210)\316!,\207" [popup cl-struct-popup-tags length scroll-top cursor height type-of signal wrong-type-argument 5 21 23 25 0 popup-draw #1=#:v #2=#:v] 8 (#$ . 53339)]) #@45 Select the previous item of POPUP and draw. (defalias 'popup-previous #[(popup) "\306! >\204\307\310\300D\"\210\311H\306! >\204!\307\310\300D\"\210\312HS\306! >\2044\307\310\300D\"\210\313H\306! >\204F\307\310\300D\"\210\314HG\f\315W\203`\nS\n Z\315]\202j\f SU\203j S\306! >\204y\307\310\300D\"\210\211\312\fI\210)\306! >\204\221\307\310\300D\"\210\211\313 I\210)\316!,\207" [popup cl-struct-popup-tags length scroll-top cursor height type-of signal wrong-type-argument 5 21 23 25 0 popup-draw #1=#:v #2=#:v] 8 (#$ . 53909)]) #@79 Select next item of POPUP per `popup-height' range. Pages down through POPUP. (defalias 'popup-page-next #[(popup) "\304! >\204\305\306\300D\"\210\307HS\310\n W\205'\311!\210\nT\211\202*\207" [popup cl-struct-popup-tags counter --dotimes-limit-- type-of signal wrong-type-argument 5 0 popup-next] 5 (#$ . 54481)]) #@81 Select previous item of POPUP per `popup-height' range. Pages up through POPUP. (defalias 'popup-page-previous #[(popup) "\304! >\204\305\306\300D\"\210\307HS\310\n W\205'\311!\210\nT\211\202*\207" [popup cl-struct-popup-tags counter --dotimes-limit-- type-of signal wrong-type-argument 5 0 popup-previous] 5 (#$ . 54813)]) #@34 Scroll down N of POPUP and draw. (defalias 'popup-scroll-down #[(popup &optional n) "\306! >\204\307\310\300D\"\210\311H\n\206\312\\\306! >\204'\307\310\300D\"\210\313HG\306! >\204:\307\310\300D\"\210\314HZ^\306! >\204O\307\310\300D\"\210\211\315 I\210)\306! >\204f\307\310\300D\"\210\211\311 I\210)\316!)\207" [popup cl-struct-popup-tags n scroll-top #1=#:v #2=#:v type-of signal wrong-type-argument 23 1 25 5 21 popup-draw] 7 (#$ . 55155)]) #@32 Scroll up N of POPUP and draw. (defalias 'popup-scroll-up #[(popup &optional n) "\306! >\204\307\310\300D\"\210\311H\n\206\312Z\313]\306! >\204*\307\310\300D\"\210\211\314 I\210)\306! >\204A\307\310\300D\"\210\211\311 I\210)\315!)\207" [popup cl-struct-popup-tags n scroll-top #1=#:v #2=#:v type-of signal wrong-type-argument 23 1 0 21 popup-draw] 5 (#$ . 55631)]) (custom-declare-face 'popup-isearch-match '((t (:inherit default :background "sky blue"))) "Popup isearch match face." :group 'popup) (defvar popup-isearch-cursor-color "blue") (defvar popup-isearch-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\311#\210\302\313\314#\210)\207" [map make-sparse-keymap define-key "" popup-isearch-cancel "" popup-isearch-close [left] "" popup-isearch-delete "" "" popup-isearch-yank] 4)) #@56 Function used for showing quick help by `popup-menu*'. (defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help (#$ . 56509)) #@171 Function used to construct a regexp from a pattern. You may for instance provide a function that replaces spaces by '.+' if you like helm or ivy style of completion. (custom-declare-variable 'popup-isearch-regexp-builder-function '#'regexp-quote '(#$ . 56657) :type 'function) (defalias 'popup-isearch-char-p #[(char) "\250\205\301X\205\302X\207" [char 32 126] 2]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put popup-isearch-char-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'popup-isearch-filter-list #[(pattern list) " ! \306\211\f:\203P\f@\211;\204 \307\310 !\311 #\312\n \"\203I\313\224\313\225\314\313 G\315\316 %\210\317\315\320 %\210 *B\fA\211\202\f\237,\207" [popup-isearch-regexp-builder-function pattern regexp list #1=#:--cl-var-- item nil popup-item-propertize popup-x-to-string value string-match 0 alter-text-property face #[(prop) "\301=?\205\207" [prop popup-isearch-match] 2] put-text-property popup-isearch-match #2=#:--cl-var-- end beg] 7]) (defalias 'popup-isearch-prompt #[(popup pattern) "\303\304\305! >\204\306\307\300D\"\210\310HG\311U\203\"\312\n\313\314#\202#\n\"\207" [popup cl-struct-popup-tags pattern format "Pattern: %s" type-of signal wrong-type-argument 25 0 propertize face isearch-fail] 6]) (defalias 'popup-isearch-update #[(popup filter pattern &optional callback) "\306! >\204\307\310\300D\"\210\211\311\312I\210)\306! >\204&\307\310\300D\"\210\211\313\312I\210)\306! >\204=\307\310\300D\"\210\211\314 I\210) \306! >\204W\307\310\300D\"\210\315H\"\316\"\210\203n!\210)\317!\207" [popup cl-struct-popup-tags #1=#:v #2=#:v #3=#:v pattern type-of signal wrong-type-argument 21 0 23 27 28 popup-set-filtered-list popup-draw filter list callback] 7]) #@771 Start isearch on POPUP. This function is synchronized, meaning event loop waits for quiting of isearch. FILTER is function with two argumenst to perform popup items filtering. CURSOR-COLOR is a cursor color during isearch. The default value is `popup-isearch-cursor-color'. KEYMAP is a keymap which is used when processing events during event loop. The default value is `popup-isearch-keymap'. CALLBACK is a function taking one argument. `popup-isearch' calls CALLBACK, if specified, after isearch finished or isearch canceled. The arguments is whole filtered list of items. HELP-DELAY is a delay of displaying helps. (fn POPUP &key (FILTER \='popup-isearch-filter-list) (CURSOR-COLOR popup-isearch-cursor-color) (KEYMAP popup-isearch-keymap) CALLBACK HELP-DELAY) (defalias 'popup-isearch #[(popup &rest #1=#:--cl-rest--) "\306\307\"\206\310A@\306\311\"\206\312\nDA@\306\313\"\206\"\312\fDA@\306\314\"A@-\306\315\"A@.//\203h/@\316>\203O/AA\211/\202:\317>A@\203^\312\211/\202:\320\321/@\"\210\2028)\322!0>\204{\323\324\325D\"\210\326H\322!0>\204\221\323\324\325D\"\210\327H\206\231\330\331\332 \303\"\312\211\211123456\333\216\3342\234 \203\273\335 !\210\3365\"3\337 3.#\2112\204\3537\312\3403$\204\273\341 \210\3423!8B8\202\273\343 2\"12;\2032\344H\2119\250\205\3459X\2059\346X)\20352P5\202\2161\347\267\202\350\334\312\"\210\202\216\351 \330-$\210\350\334\352\"\210\202\216\351 \330-$\210\353\3542!8\"8\350\334\312\"\210\202\2165G\344V\203\2165\3445GSO5\202\216\351 :@-$\210\350\334\312\"\210\202\216\353\3542!8\"8\350\334\312\"\210\351 5-$\210\202\2730.\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 #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (popup-isearch-done 291 popup-isearch-cancel 299 popup-isearch-close 316 popup-isearch-delete 343 popup-isearch-yank 364)) throw popup-isearch-update t append listify-key-sequence 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 (#$ . 58479)]) (custom-declare-face 'popup-tip-face '((t (:background "khaki1" :foreground "black"))) "Face for popup tip." :group 'popup) (defvar popup-tip-max-width 80) #@649 Show a tooltip of STRING at POINT. This function is synchronized unless NOWAIT specified. Almost all arguments are the same as in `popup-create', except for TRUNCATE, NOWAIT, and PROMPT. If TRUNCATE is non-nil, the tooltip can be truncated. If NOWAIT is non-nil, this function immediately returns the tooltip instance without entering event loop. If `NOSTRIP` is non-nil, `STRING` properties are not stripped. PROMPT is a prompt string when reading events during event loop. (fn STRING &key POINT (AROUND t) WIDTH (HEIGHT 15) MIN-HEIGHT MAX-WIDTH TRUNCATE MARGIN MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR PARENT PARENT-OFFSET NOWAIT NOSTRIP PROMPT) (defalias 'popup-tip #[(string &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206\311A@\306\312\"A@\306\313\"\206!\314A@\306\315\"A@\306\316\"A@3\306\317\"A@4\306\320\"A@5\306\321\"A@6\306\322\"A@7\306\323\"A@8\306\324\"A@9\306\325\"A@:\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)\336A!\203\316rAq\210\337 )A<\204\331\340A!A\341A!A5\342=\203\351\34356\204\362567\204\37357\344A B#\211C@CA?)\345 \f\315 \3163\310\n\3216\3227\3238\346\347\3249\325:&>\350\216\351>!D>\204A\352\353\354>D\"\210>\355H\356V\205\255 \351>!D>\204]\352\353\354>D\"\210>\355H=\204\2124\204\212\351>!D>\204|\352\353\354>D\"\210>\355H\344A \211#A?\357>?\"\210\360>!\210;\203\240>\202\255\361 \210\362=!EBE\342.\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 popup-replace-displayable 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 (#$ . 61456)]) (byte-code "\300\301\302\303\304\305%\210\300\306\307\303\304\305%\210\300\310\311\312\304\305%\210\300\313\314\315\304\305%\207" [custom-declare-face popup-menu-face ((t (:inherit popup-face))) "Face for popup menu." :group popup popup-menu-mouse-face ((t (:background "blue" :foreground "white"))) popup-menu-selection-face ((t (:inherit default :background "steelblue" :foreground "white"))) "Face for popup menu selection." popup-menu-summary-face ((t (:inherit popup-summary-face))) "Face for popup summary."] 6) #@68 Function used for showing tooltip by `popup-menu-show-quick-help'. (defvar popup-menu-show-tip-function 'popup-tip (#$ . 64683)) (defalias 'popup-menu-show-help #[(menu &optional persist item) "\303\206\304 !\n\"\207" [item menu persist popup-item-show-help popup-selected-item] 3]) (defalias 'popup-menu-documentation #[(menu &optional item) "\302\206\303 !!\207" [item menu popup-item-documentation popup-selected-item] 3]) (defalias 'popup-menu-show-quick-help #[(menu &optional item &rest args) "\306\307\"\306\310\"\206\311\n! >\204\312\313\314\nD\"\210\n\315H\211\311\n! >\204/\312\313\314\nD\"\210\n\316H^\317\311\n! >\204F\312\313\314\nD\"\210\n\320H\321\n\"\211;\205\204\322\n!\203h\323\317\211\202j\317\317\324\307 \310\f\325 \326\327\n\330&).\207" [args point menu cl-struct-popup-tags height min-height plist-get :point :height type-of signal wrong-type-argument popup 5 24 nil 22 popup-menu-documentation popup-hidden-p t apply :min-height :around :parent :parent-offset around parent-offset item doc popup-use-optimized-column-computation popup-menu-show-tip-function] 17]) (defalias 'popup-menu-item-of-mouse-event #[(event) ":\205!@\303>\205!A@\211\304\234\211:\205 \305\nA\306\n@#*\207" [event position object (mouse-1 mouse-2 mouse-3 mouse-4 mouse-5) 4 get-text-property popup-item] 5]) (defalias 'popup-menu-read-key-sequence #[(keymap &optional prompt timeout) "\3002k\205 \306\307\310#\311 \312 \312 \313\314\211\n $\210\315\n\316\317 \320\"#\210\315\n\321\317 \322\"#\210\323 \"\210\324 \203D\315 \325\317\324 \326\"#\210\327\216\330\n!\210\331 \210\307 !\332\216!\203e\333  \334\335!\"\210\336\307!.0\207" [timeout overriding-terminal-local-map temp-global-map old-global-map timer keymap run-with-timer nil #[nil "\300 G\301U\205\f\302\303\304\"\207" [this-command-keys 0 throw timeout nil] 3] current-global-map make-sparse-keymap substitute-key-definition keyboard-quit define-key [menu-bar] lookup-key [menu-bar] [tool-bar] [tool-bar] set-keymap-parent current-local-map [menu-bar] [menu-bar] #[nil "\302!\210 \205 \303 !\207" [old-global-map timer use-global-map cancel-timer] 2] use-global-map clear-this-command-keys #[nil "\205 \203 \302\303 \"\207\302\304!\207" [#1=#:with-temp-message #2=#:current-message message #3="%s" nil] 3] current-message message #3# read-key-sequence prompt #2# #1#] 6]) (defalias 'popup-menu-fallback #[(event default) "\300\207" [nil] 1]) #@128 (fn MENU KEYMAP FALLBACK &key PROMPT HELP-DELAY ISEARCH ISEARCH-FILTER ISEARCH-CURSOR-COLOR ISEARCH-KEYMAP ISEARCH-CALLBACK) (defalias 'popup-menu-event-loop #[(menu keymap fallback &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@@\306\315\"A@A\316\211BCDD\203lD@\317>\203SDAA\211D\202>\320>A@\203b\316\211D\202>\321\322D@\"\210\202<)\3232J\324E!\205I \203\223\325E\326\f\327 \330@\331A\310\n& \203\223\332 \210\333F \n#\211B\205\245\334FB\"CB\203\264BG\335U\203\315GE\316\307 $\204q\336 \210\337 !HBH\202q\334\340 B\"\332=\203\343\332 \210\341\323\316\"\210\202qC\342\267\202)\343E!I>\204\374\344\345\346ED\"\210E\347H\203q\341\323\316\"\210\202q\350B\335\234!\206\351E!J\352J\343E!I>\204/\344\345\346ED\"\210E\353H\"KJJ\354J\355\")-K\204L\341\323\316\"\210-\203\312\316L\356-\357\316\360\343E!I>\204l\344\345\346ED\"\210E\361H\362\343E!I>\204\203\344\345\346ED\"\210E\363H\364\343E!I>\204\232\344\345\346ED\"\210E\365H\366E\367K\310\n\311 \312\f\313 \314@\315A&)\211M\203\306M\203\306\341\323M\"\210)\202\350C\370=\203\350\341\323J\211JJ\354J\371\")\206\345J)\"\210+\202q\372E!\210\202q\373E!\210\202q\374E!\210\202q\375E!\210\202q\376E!\210\202q\325E\326\f\327 \330@\331A\310\n& \210\202q\377C!\203:\201OC!\210\202qNB\201PB!\"\210\202q0. \207" [#1# prompt help-delay isearch isearch-filter isearch-cursor-color plist-member :prompt :help-delay :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback nil (:prompt :help-delay :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:prompt :help-delay :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback)" --cl-block-nil-- popup-live-p popup-isearch :filter :cursor-color :keymap :callback keyboard-quit popup-menu-read-key-sequence lookup-key 0 clear-this-command-keys read-event current-global-map throw #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (popup-close 234 popup-select 267 popup-open 267 popup-next 492 popup-previous 500 popup-page-next 508 popup-page-previous 516 popup-help 524 popup-isearch 532)) type-of signal wrong-type-argument popup 10 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-menu-show-help commandp 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 call-interactively key-binding] 27 (#$ . 67170)]) #@54 Return the preferred width to show LIST beautifully. (defalias 'popup-preferred-width #[(list) "\306 \307\211\307\211\310\n:\203]\n@\211\311 \304\")\312\313 !! \2032 ]\2024)\f;\203T\312\f!\314\\\203O]\202Q)\nA\307\202 \206b\315\206h\315\\\316\317\245!\320_.\207" [tab-width list #1=#:--cl-var-- item summary width 4 nil t popup-item-property string-width popup-x-to-string 2 0 ceiling 10.0 10 summary-width #2=#:--cl-var-- #3=#:temp #4=#:temp total] 4 (#$ . 70146)]) (defvar popup-menu-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\311#\210\302\313\314#\210\302\315\314#\210\302\316\317#\210\302\320\317#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\326#\210\302\330\331#\210\302\332\304#\210\302\333\317#\210\302\334\314#\210)\207" [map make-sparse-keymap define-key " " popup-select "" popup-open [right] "" popup-close [left] "" popup-next [down] "" popup-previous [up] [next] popup-page-next [prior] popup-page-previous [f1] popup-help "" "" popup-isearch [mouse-1] [mouse-4] [mouse-5]] 4)) #@1951 Show a popup menu of LIST at POINT. This function returns a value of the selected item. Almost all arguments are the same as in `popup-create', except for KEYMAP, FALLBACK, HELP-DELAY, PROMPT, ISEARCH, ISEARCH-FILTER, ISEARCH-CURSOR-COLOR, ISEARCH-KEYMAP, and ISEARCH-CALLBACK. If KEYMAP is a keymap which is used when processing events during event loop. If FALLBACK is a function taking two arguments; a key and a command. FALLBACK is called when no special operation is found on the key. The default value is `popup-menu-fallback', which does nothing. HELP-DELAY is a delay of displaying helps. If NOWAIT is non-nil, this function immediately returns the menu instance without entering event loop. PROMPT is a prompt string when reading events during event loop. If ISEARCH is non-nil, do isearch as soon as displaying the popup menu. ISEARCH-FILTER is a filtering function taking two arguments: search pattern and list of items. Returns a list of matching items. ISEARCH-CURSOR-COLOR is a cursor color during isearch. The default value is `popup-isearch-cursor-color'. ISEARCH-KEYMAP is a keymap which is used when processing events during event loop. The default value is `popup-isearch-keymap'. ISEARCH-CALLBACK is a function taking one argument. `popup-menu' calls ISEARCH-CALLBACK, if specified, after isearch finished or isearch canceled. The arguments is whole filtered list of items. If `INITIAL-INDEX' is non-nil, this is an initial index value for `popup-select'. Only positive integer is valid. (fn LIST &key POINT (AROUND t) (WIDTH (popup-preferred-width list)) (HEIGHT 15) MAX-WIDTH MARGIN MARGIN-LEFT MARGIN-RIGHT SCROLL-BAR SYMBOL PARENT PARENT-OFFSET CURSOR (KEYMAP popup-menu-keymap) (FALLBACK \='popup-menu-fallback) HELP-DELAY NOWAIT PROMPT ISEARCH (ISEARCH-FILTER \='popup-isearch-filter-list) (ISEARCH-CURSOR-COLOR popup-isearch-cursor-color) (ISEARCH-KEYMAP popup-isearch-keymap) ISEARCH-CALLBACK INITIAL-INDEX) (defalias 'popup-menu* #[(list &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206\311A@\306\312\"\206\313\314 !DA@\306\315\"\206)\316A@\306\317\"A@;\306\320\"A@<\306\321\"A@=\306\322\"A@>\306\323\"A@?\306\324\"A@@\306\325\"A@A\306\326\"A@B\306\327\"A@C\306\330\"\206\313DDA@E\306\331\"\206\213\332A@F\306\333\"A@G\306\334\"A@H\306\335\"A@I\306\336\"A@J\306\337\"\206\267\340A@K\306\341\"\206\306\313LDA@M\306\342\"\206\325\313NDA@O\306\343\"A@P\306\344\"A@Q\313\211RSTT\203\"T@\345>\203 TAA\211T\202\364\346>A@\203\313\211T\202\364\347\350T@\"\210\202\362)<\351=\203-\352<=\2046<=>\204?<>?\203V>\250\203V>\353V\203V>S>\354 \f \317;\310\n\355\356\357\360\361\362\363\364\321=\322>\323?\324@\325A\326B&R\365\216\366R \"\210C\203\224\367RC\"\210\202\231\370R!\210Q\203\300 GSQ^\353UVUVW\203\277\371R!\210UT\211U\202\253*H\203\312R\202\350\372REF\335I\333G\336J\337K\341M\342O\343P&.\207" [#1# point around list width height plist-member :point :around (nil t) :width nil popup-preferred-width :height (nil 15) :max-width :margin :margin-left :margin-right :scroll-bar :symbol :parent :parent-offset :cursor :keymap :fallback (nil popup-menu-fallback) :help-delay :nowait :prompt :isearch :isearch-filter (nil popup-isearch-filter-list) :isearch-cursor-color :isearch-keymap :isearch-callback :initial-index (:point :around :width :height :max-width :margin :margin-left :margin-right :scroll-bar :symbol :parent :parent-offset :cursor :keymap :fallback :help-delay :nowait :prompt :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback :initial-index :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:point :around :width :height :max-width :margin :margin-left :margin-right :scroll-bar :symbol :parent :parent-offset :cursor :keymap :fallback :help-delay :nowait :prompt :isearch :isearch-filter :isearch-cursor-color :isearch-keymap :isearch-callback :initial-index)" t 1 0 popup-create :face popup-menu-face :mouse-face popup-menu-mouse-face :selection-face popup-menu-selection-face :summary-face popup-menu-summary-face #[nil "?\205\302 !\207" [nowait menu popup-delete] 2] popup-set-list popup-jump popup-draw popup-next popup-menu-event-loop max-width margin margin-left margin-right scroll-bar symbol parent parent-offset cursor popup-menu-keymap keymap fallback help-delay nowait prompt isearch isearch-filter popup-isearch-cursor-color isearch-cursor-color popup-isearch-keymap isearch-keymap isearch-callback initial-index menu event #2=#:--cl-keys-- _i --dotimes-limit--] 29 (#$ . 71298)]) #@197 Same as `popup-menu' except that an element of LIST can be also a sub-menu if the element is a cons cell formed (ITEM . SUBLIST) where ITEM is an usual item and SUBLIST is a list of the sub menu. (defalias 'popup-cascade-menu #[(list &rest args) "\302\303\304\305\"\306\307 %\207" [list args apply popup-menu* mapcar #[(item) ":\203\301@\302A\303\304%\207\207" [item popup-make-item :sublist :symbol ">"] 6] :symbol t] 6 (#$ . 75955)]) (provide 'popup)