;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303#\210\300\304!\210\300\305!\210\300\306!\210\307\310\302\311\312\313\314\315&\210\316\317\320\321\314\310%\210\316\322\323\321\314\310%\210\316\324\325\326\314\310%\210\316\327\330\331\314\310%\207" [require icons-in-terminal nil t frame-local dash subr-x custom-declare-group omnibox "A lightweigth completion/selection system." :prefix "omnibox-" :group convenience custom-declare-face omnibox-modeline ((((background light)) :foreground "white" :background "black") (((background dark)) :foreground "black" :background "white")) "Face to used on the mode line of omnibox." omnibox-selection ((((background light)) :foreground "white" :background "black") (((background dark)) :foreground "black" :background "white")) omnibox-match ((((background light)) :foreground "#b00000") (((background dark)) :foreground "gold1")) "Face used to highlight matches." omnibox-prompt ((t :inherit minibuffer-prompt)) "Face used on the prompt."] 8) (defvar omnibox-frame-parameters '((no-accept-focus . t) (no-focus-on-map . t) (width . 90) (height . 20) (vertical-scroll-bars) (horizontal-scroll-bars) (left-fringe . 0) (right-fringe . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (line-spacing . 0) (unsplittable . t) (top . 100) (mouse-wheel-frame) (no-other-frame . t) (cursor-type) (drag-internal-border . t) (left-fringe . 0) (right-fringe . 0) (background-color . "#282C34") (no-special-glyphs . t))) (defvar omnibox-ov nil nil) (make-variable-buffer-local 'omnibox-ov) (defvar omnibox-selection 0 nil) (make-variable-buffer-local 'omnibox-selection) (defvar omnibox-candidates-length 0 nil) (make-variable-buffer-local 'omnibox-candidates-length) (defvar omnibox--extern nil nil) (make-variable-buffer-local 'omnibox--extern) #@17 (fn VARIABLE) (defalias 'omnibox--get '(macro . #[257 "\300\301\302\"!\303\304D\305BB\207" [intern format "omnibox-%s" frame-local-get quote ((frame-parent))] 5 (#$ . 1838)])) #@23 (fn VARIABLE VALUE) (defalias 'omnibox--set '(macro . #[514 "\300\301\302\"!\303\304D\305BBB\207" [intern format "omnibox-%s" frame-local-set quote ((frame-parent))] 7 (#$ . 2024)])) #@13 (fn ITEM) (defalias 'omnibox--filter-command #[257 "\300!\205\211\301N?\205\211\207" [commandp byte-obsolete-info] 3 (#$ . 2218)]) (defalias 'omnibox--overlay #[0 "\206\n\301\302\211\"\211\207" [omnibox-ov make-overlay 1] 3]) #@25 (fn &optional SUFFIX) (defalias 'omnibox--make-buffer-name #[256 "\300\301 \302\"\303\304R\207" [frame-parameter frame-parent window-id " *Omnibox-" "*"] 6 (#$ . 2460)]) #@25 (fn &optional SUFFIX) (defalias 'omnibox--buffer #[256 "\300\301!!\207" [get-buffer-create omnibox--make-buffer-name] 4 (#$ . 2640)]) (defalias 'omnibox--modeline #[0 "\302T!\302 !\303\304\303\260\305\306\307\310 \"\206\311\312\313\314\315%\305\303\314\316\317\320\321GE\322BBB# \323V\205:\305\312\313\314\324%Q\207" [omnibox-selection omnibox-candidates-length number-to-string " " "/" propertize frame-local-get omnibox-title frame-parent " Omnibox " face omnibox-modeline display (raise 0.15) space :align-to - right-fringe (:height 1.5) 0 (raise 0.15)] 12]) #@18 (fn CANDIDATE) (defalias 'omnibox--render-candidate #[257 "\300\301\302#\207" [replace-regexp-in-string "[\n ]+" " "] 5 (#$ . 3221)]) #@19 (fn CANDIDATES) (defalias 'omnibox--render-buffer #[257 "\305r\306 q\210\307 \210\310\311\312#c\210\313\314\315\303\316 \"\317\320\321\322\323\324%\325\305!\210p)\207" [omnibox-selection mode-line-format truncate-lines omnibox-candidates-length header-line-format 0 omnibox--buffer erase-buffer mapconcat omnibox--render-candidate "\n" (:eval (omnibox--modeline)) t frame-local-get frame-parent propertize " " display (space :align-to right-fringe) face (:height 0.3) omnibox--update-line] 7 (#$ . 3364)]) (defalias 'omnibox--update-list-buffer #[0 "\300\301\302\303\304 \"!!\207" [omnibox--render-buffer omnibox--make-candidates frame-local-get omnibox-input frame-parent] 5]) #@25 (fn &optional STRING) (defalias 'omnibox--update-input-buffer #[256 "r\302\303!q\210\304\211\305 \210\306\307\310\311 \"\206\312\313\310#\206\314\306\315\313\316#\261\210p)\207" [mode-line-format header-line-format omnibox--buffer "input-" nil erase-buffer propertize frame-local-get omnibox-prompt frame-parent "input: " face "" " " cursor] 8 (#$ . 4056)]) #@25 (fn CANDIDATES INPUT) (defalias 'omnibox--sort #[514 "\300\301\302 \"\303V\203h\304\305\306\303\306\211\203O\211A\262\242\262\262T\262\307\310 !\"\311\"\211\203>\211AB\241\210\202FDB\262\266\202\262\202\266\211\262\"\237\312\313\314\315\316\"\"\313\317\315\306\"\"\"\207\207" [frame-local-get omnibox-input-len frame-parent 0 -map #[257 "\211@A\237B\207" #1=[] 3 "\n\n(fn N)"] nil string-prefix-p string-trim assoc -concat -sort #[514 "GGW\207" #1# 4 "\n\n(fn IT OTHER)"] alist-get t #[514 "GGW\207" #1# 4 "\n\n(fn IT OTHER)"]] 14 (#$ . 4430)]) #@24 (fn CANDIDATE INPUT) (defalias 'omnibox--highlight-common #[514 "\300\301\302 \"\303V\203M\304!\262\305\306\307#\211\203L\211@\310\311\"\210\312\307!\211A\262\242@\211V\203C\211GX\203C\313\314\310\f%\210\266A\266\202\202\210\207" [frame-local-get omnibox-input-len frame-parent 0 copy-sequence split-string " " t nil string-match match-data add-face-text-property omnibox-match] 14 (#$ . 5024)]) #@25 (fn CANDIDATES INPUT) (defalias 'omnibox--fetch-candidates #[514 "\300\301\302\303\304 \"Z\305!\203%\302\306\304 \"\203%\307\310\302\311\304 \"\312#\"\202S\305\302\311\304 \"!\203C\302\306\304 \"\203C\307\302\311\304 \"#\202S\305!\203O!\202S\307\"\"\207" [-take 200 frame-local-get omnibox-pre-len frame-parent functionp omnibox-extern omnibox--generic-completion "" omnibox-predicate t] 10 (#$ . 5452)]) #@14 (fn INPUT) (defalias 'omnibox--make-regexp #[257 "\300\301\302#\211G\211\303X\203\304!\207\305\306\307\310V\203#\311!D\202&\312!\313#\314Q\207" [split-string " " t 1 string-trim "\\(" mapconcat #[257 "\300\301\302#\207" [mapconcat identity ".*?"] 5 "\n\n(fn LIST)"] 3 reverse -permutations "\\)\\|\\(" "\\)"] 9 (#$ . 5883)]) #@45 (fn CANDIDATES INPUT &optional PREDICATE) (defalias 'omnibox--generic-completion #[770 "\303\304\206\305!!\211\205\211C \306\305#\307!\203$\310\311\"\202%\211*\207" [completion-regexp-list completion-ignore-case case-fold-search omnibox--make-regexp string-trim "" all-completions arrayp append nil] 8 (#$ . 6228)]) #@25 (fn CANDIDATES INPUT) (defalias 'omnibox--sort-and-highlight #[514 "\300\301\302\303\"\"\"\207" [omnibox--sort mapcar make-closure #[257 "\301\300\"\207" [V0 omnibox--highlight-common] 4 "\n\n(fn IT)"]] 7 (#$ . 6565)]) #@18 (fn CANDIDATE) (defalias 'omnibox--make-id #[257 "\300!\301\302G\303%\210\207" [copy-sequence put-text-property 0 omnibox-candidate] 8 (#$ . 6796)]) (defalias 'omnibox--get-default #[0 "\300\301\302 \"\303U\205$\300\304\302 \"\211\204\305\202\"\211:\203 \211\202\"\211C\262\207" [frame-local-get omnibox-input-len frame-parent 0 omnibox-default nil] 3]) #@16 (fn HISTORY) (defalias 'omnibox--format-history #[257 "\300\301\"\207" [mapcar #[257 "\300\301!\203\301\302\303\304#\202\305\306\307\310\311\312&\306\313\314\315#Q\207" [fboundp icons-in-terminal oct_clock :foreground "grey" "H" propertize omnibox-history t omnibox-candidate omnibox-icon " " display (space :align-to (- right-fringe 2))] 10 "\n\n(fn HIST)"]] 4 (#$ . 7169)]) #@14 (fn C1 C2) (defalias 'omnibox--compare-candidates #[514 "\300\301\302#\206 \300\301\302#\206\230\207" [get-text-property 0 omnibox-candidate] 7 (#$ . 7565)]) #@14 (fn INPUT) (defalias 'omnibox--get-history #[257 "\300\301\302 \"\211\205 \303\"\262\211\205\304!\262\211\205 \305\"\207" [frame-local-get omnibox-history frame-parent omnibox--generic-completion omnibox--format-history omnibox--sort-and-highlight] 5 (#$ . 7738)]) #@14 (fn INPUT) (defalias 'omnibox--get-candidates #[257 "\300\301\302 \"\303\"\304\305\"\306\"\207" [frame-local-get omnibox-candidates frame-parent omnibox--fetch-candidates mapcar omnibox--make-id omnibox--sort-and-highlight] 7 (#$ . 8022)]) #@35 (fn DEFAULT HISTORY CANDIDATES) (defalias 'omnibox--merge #[771 "\301\203\302\"\262\302\"\262\203\302\"\262\303#)\207" [-compare-fn omnibox--compare-candidates -difference -concat] 7 (#$ . 8275)]) #@14 (fn INPUT) (defalias 'omnibox--make-candidates #[257 "\300 \301!\302\303\304GG\\\305 #\210\306!\307#\303\310G\305 #\210\207" [omnibox--get-default omnibox--get-history nil frame-local-set omnibox-pre-len frame-parent omnibox--get-candidates omnibox--merge omnibox-candidates-length] 10 (#$ . 8499)]) #@15 (fn PARAMS) (defalias 'omnibox--resolve-params #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\300\307\"\300\310\"\300 \311\"\257 \207" [plist-get :prompt :candidates :detail :default :history :title :action :init :require-match] 12 (#$ . 8815)]) (defalias 'omnibox--block-and-return #[0 "\301\302\303 \"?\205\304\216\305\306\307#\210)\301\310\303 \"\207" [omnibox-mode-map frame-local-get omnibox-action frame-parent #[0 "\301 \210\301=\205 \302 \207" [this-command omnibox--abort keyboard-quit] 2] read-from-minibuffer "" nil omnibox-selected] 4]) #@269 Open the Omnibox. Supported PLIST keys: - :prompt - :candidates - :detail - :default - :history - :title - :action - :init - :require-match They will be documented once the package is stable. Most of them are equal to the ones of `completing-read'. (fn &rest PLIST) (defalias 'omnibox #[128 "\301!\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262 \242@\302\303\304 #\210\302\305\206G\306 \304 #\210\302\307\n\304 #\210\302\310 \304 #\210\302\311\304 #\210\302\312\304 #\210\302\313\304 #\210\302\314G\304 #\210\302\315\304 #\210\302\316\304 #\210\302\317\304 #\210\320\321\322\206\230\323!!!\210\324\325!\210\326 \207" [omnibox--extern omnibox--resolve-params frame-local-set omnibox-extern frame-parent omnibox-title omnibox--title omnibox-prompt omnibox-candidates omnibox-detail omnibox-default omnibox-history omnibox-input-len omnibox-input omnibox-action omnibox-require-match omnibox--make-frame omnibox--render-buffer omnibox--make-candidates "" omnibox-mode 1 omnibox--block-and-return] 15 (#$ . 9411)]) #@18 (fn CANDIDATE) (defalias 'omnibox--function-doc #[257 "\300!\211\205\211\301!\205\211\262\262\211\205\211\302!\262\262\211\205+\211\303\304\"@\262\207" [intern functionp documentation split-string "\n"] 6 (#$ . 10520)]) #@18 (fn CANDIDATE) (defalias 'omnibox--variable-doc #[257 "\300!\211\205\211\301\302\"\262\262\211\205\211\303\304\"@\262\207" [intern documentation-property variable-documentation split-string "\n"] 6 (#$ . 10764)]) #@26 (fn &optional COMMAND) (defalias 'omnibox--title #[256 "\211\206 \206 \301\2119\203\302!\202\211\303\304\305#\306\307\"\207" [this-command "?" symbol-name replace-regexp-in-string "^omnibox-" "" format " Omnibox-%s "] 7 (#$ . 10995)]) #@31 Select and execute a command. (defalias 'omnibox-M-x #[0 "\301\302\303\304\305\306\307\310\311\312\313\314&\f\207" [extended-command-history omnibox :prompt "M-x: " :candidates #[257 "\301\302#\207" [obarray omnibox--generic-completion commandp] 5 "\n\n(fn INPUT)"] :history :action #[257 "\301\302!\303\"\210\211\304\"B\211\207" [extended-command-history command-execute intern t delete] 5 "\n\n(fn CANDIDATE)"] :detail omnibox--function-doc :require-match t] 13 (#$ . 11248) nil]) #@104 (fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD) (defalias 'omnibox-describe-function #[2050 "\300\301 \302\303\304 \"\305\306 \307\310&\n\207" [omnibox :prompt :candidates make-closure #[257 "\302 \300#\207" [V0 obarray omnibox--generic-completion] 5 "\n\n(fn INPUT)"] :history :default :detail omnibox--function-doc] 19 (#$ . 11745)]) #@104 (fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD) (defalias 'omnibox-describe-variable #[2050 "\300\301 \302\303\304\305 \306\307&\n\207" [omnibox :prompt :candidates #[257 "\301\302#\207" [obarray omnibox--generic-completion #[257 "\211\300N\206\301!\205\302!?\207" [variable-documentation boundp keywordp] 3 "\n\n(fn V)"]] 5 "\n\n(fn INPUT)"] :history :default :detail omnibox--variable-doc] 19 (#$ . 12149)]) #@15 (fn BUFFER) (defalias 'omnibox--make-frame #[257 "\303\304\305 \"\211\203\306\303\307\305 \"!\210\310!\210\311 \207\312\211\313\314 \315_!\316 \317\245\320\314 _\317\245ZZ\321\322\323B\324B\325\326 B\327\330 B\331\326 B\257\n\"!\332!\333\"\210\334\326 \"\210\335\336\"\210\337\304\305 #\210\326 p\340\341#\216\342\343\"\210\344\306\303\307\305 \"!\345\"\210)\266*\207" [before-make-frame-hook after-make-frame-functions omnibox-frame-parameters frame-local-get omnibox-frame frame-parent omnibox--update-input-buffer omnibox-input make-frame-visible redisplay nil round frame-char-width 1.2 frame-pixel-width 2 90 make-frame append left internal-border-width default-minibuffer-frame selected-frame minibuffer minibuffer-window parent-frame frame-selected-window set-window-buffer redirect-frame-focus set-window-dedicated-p t frame-local-set make-closure #[0 "\302\300!\203 \303\300\304\"\210\305\301!\205\301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord display-buffer-in-side-window ((side . top) (window-height . 1))] 14 (#$ . 12632)]) (defalias 'omnibox--candidate-at-point #[0 "\300`\301\"\206 \302\303 \304 \"\207" [get-text-property omnibox-candidate buffer-substring-no-properties line-beginning-position line-end-position] 3]) #@3 . (defalias 'omnibox--update-overlay #[0 "\300`\301\"\300`\302\"\300`\303\"\2065\304\305\306 \"\211\205\"\211\307!\205 \211\262\262\211\205/\211\211\310 !\262\262\2065\311\203?\211\312Q\262\312P\262\313\314G\315\316%\210\317\320 \321 \322 #\210\323\320 \324\315#\210\323\320 \325\205f#\210\323\320 \326\327\312\325\330\331\332\333\334 ! \203\200\335\202\201\314F\336BBB\324\315%\327\312\325\337\324\315%Q#\207" [get-text-property omnibox-icon omnibox-candidate omnibox-doc frame-local-get omnibox-detail frame-parent functionp omnibox--candidate-at-point "" " " add-face-text-property 0 omnibox-selection nil move-overlay omnibox--overlay line-beginning-position line-end-position overlay-put face display after-string propertize space :align-to - right-fringe string-width 1 (:height 1.1) (space :align-to right-fringe)] 15 (#$ . 13944)]) (defalias 'omnibox--disable-overlays #[0 "\300\301 \302\303#\210\300\301 \304\303#\207" [overlay-put omnibox--overlay after-string nil face] 4]) #@18 (fn SELECTION) (defalias 'omnibox--update-line #[257 "\211\301b\210\211y\210\302\303\304 \"\305U\203\306 \207\307 \207" [omnibox-selection 1 frame-local-get omnibox-candidates-length frame-parent 0 omnibox--disable-overlays omnibox--update-overlay] 4 (#$ . 14961)]) #@17 (fn SELECTED) (defalias 'omnibox--select-return #[257 "\300\301\302 #\210\303 \210\304\305\302 \"\211\205\211!\207" [frame-local-set omnibox-selected frame-parent omnibox--abort frame-local-get omnibox-action] 5 (#$ . 15238)]) #@30 Select to current candidate. (defalias 'omnibox--select #[0 "r\300 q\210\301 )\302\303\304 \"\302\305\304 \"\306\307\232\262\211\203$\310=\203$\306\207\211\2032\306=\2032\311!\207\312>\203D\311\203A\202B!\207\311!\207" [omnibox--buffer omnibox--candidate-at-point frame-local-get omnibox-input frame-parent omnibox-require-match nil "" t omnibox--select-return (confirm confirm-after-completion)] 6 (#$ . 15477) nil]) #@18 (fn SELECTION) (defalias 'omnibox--change-line #[257 "\300\301\302 \303\"!r\304\305\"\216\306@\307\"\210\310!*\207" [internal--before-with-selected-window get-buffer-window omnibox--buffer t make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord omnibox--update-line] 5 (#$ . 15918)]) #@29 Move to the next candidate. (defalias 'omnibox--next #[0 "T\301\302\303 \"S^\304!\207" [omnibox-selection frame-local-get omnibox-candidates-length frame-parent omnibox--change-line] 4 (#$ . 16260) nil]) #@33 Move to the previous candidate. (defalias 'omnibox--prev #[0 "S\301]\302!\207" [omnibox-selection 0 omnibox--change-line] 2 (#$ . 16473) nil]) (defalias 'omnibox--hide #[0 "\300\301\302 \"\211\205\f\303!\207" [frame-local-get omnibox-frame frame-parent make-frame-invisible] 3]) #@21 Cancel the omnibox. (defalias 'omnibox--abort #[0 "\300 \203\301\302\303 \"\204\304 \210\305\306!\210\307 \207" [minibufferp frame-local-get omnibox-action frame-parent exit-minibuffer omnibox-mode -1 omnibox--hide] 3 (#$ . 16763) nil]) #@18 (fn NEW-INPUT) (defalias 'omnibox--update-input #[257 "\300\301\302 #\210\300\303G\302 #\210\304!\210\305 \207" [frame-local-set omnibox-input frame-parent omnibox-input-len omnibox--update-input-buffer omnibox--update-list-buffer] 5 (#$ . 17010)]) #@21 Insert a character. (defalias 'omnibox--insert #[0 "\301!\302\303\304 \"\206\f\305\211P\306!\207" [last-command-event char-to-string frame-local-get omnibox-input frame-parent "" omnibox--update-input] 5 (#$ . 17270) nil]) #@32 Delete the previous character. (defalias 'omnibox--backward-delete #[0 "\300\301\302 \"\211\205!\211G\211\205\303S\303]O\211\205\304!\262\262\207" [frame-local-get omnibox-input frame-parent 0 omnibox--update-input] 6 (#$ . 17503) nil]) #@32 Try to complete the candidate. (defalias 'omnibox--try-complete #[0 "\300\301\302\303 \"!\211\205\304\301\302\303 \"\"\262\211\205\305!\262\211\205%\306!\207" [omnibox--make-candidates frame-local-get omnibox-input frame-parent try-completion substring-no-properties omnibox--update-input] 5 (#$ . 17756) nil]) #@3 . (defalias 'omnibox--make-char-table #[0 "\301\302!\303\304\305\"A@\"\210\207" [global-map make-char-table my-char-table map-char-table make-closure #[514 "\211\301=\205 \302\300\303#\207" [V0 self-insert-command set-char-table-range omnibox--insert] 6 "\n\n(fn KEY VAL)"]] 5 (#$ . 18082)]) #@32 Keymap for ‘omnibox-mode’. (defvar omnibox-mode-map nil (#$ . 18384)) (byte-code "\204b\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\310#\210\302\311\310#\210\302\312\313#\210\302\314\313#\210\302\315\316#\210\302\317\316#\210\302\320\321#\210\302\322\321#\210\302\323\324#\210\302\325\324#\210\302\326\327#\210\330\331 \"\262\301\207" [omnibox-mode-map make-sparse-keymap define-key "" omnibox--abort [escape] "" "" omnibox--next [down] "" omnibox--prev [up] " " omnibox--select [return] " " omnibox--try-complete [tab] "" omnibox--backward-delete [backspace] [t] ignore -snoc omnibox--make-char-table] 5) #@93 Non-nil if Omnibox mode is enabled. Use the command `omnibox-mode' to change this variable. (defvar omnibox-mode nil (#$ . 19046)) (make-variable-buffer-local 'omnibox-mode) #@567 Mode for omnibox. This is a minor mode. If called interactively, toggle the `Omnibox mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `omnibox-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'omnibox-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [omnibox-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks omnibox-mode-hook omnibox-mode-on-hook omnibox-mode-off-hook called-interactively-p any message "Omnibox mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 19227) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar omnibox-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [omnibox-mode-map omnibox-mode-hook variable-documentation put "Hook run after entering or leaving `omnibox-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode omnibox-mode boundp] 6) (defvar omnibox--specialized-functions '((describe-function . omnibox-describe-function) (describe-variable . omnibox-describe-variable))) #@16 (fn COMMAND) (defalias 'omnibox--specialized-function-p #[257 "\211\236\207" [omnibox--specialized-functions] 3 (#$ . 21069)]) #@29 (fn COMMAND &rest PARAMS) (defalias 'omnibox--run-specialized-function #[385 "\301\302\"\"\207" [omnibox--specialized-functions apply alist-get] 6 (#$ . 21205)]) #@104 (fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD) (defalias 'omnibox--completing-read #[2050 "\302!\203\303        & \207\304\305\306\307 #\210\310\311 \312\n\313\314 \315&\n)\207" [this-command omnibox--extern omnibox--specialized-function-p omnibox--run-specialized-function t frame-local-set omnibox-predicate frame-parent omnibox :prompt :candidates :default :init :require-match] 19 (#$ . 21379)]) #@45 (fn CANDIDATE START END &optional BUFFER) (defalias 'omnibox--on-complete-region #[1027 "\300\206pD#\207" [choose-completion-string] 9 (#$ . 21863)]) #@49 (fn START END COLLECTION &optional PREDICATE) (defalias 'omnibox--completion-in-region #[1027 "\301\302\303\304 #\210\305\306\307\310\311\312\n\n\"\313\314\315  #&)\207" [omnibox--extern t frame-local-set omnibox-predicate frame-parent omnibox :prompt "Complete: " :candidates :init buffer-substring-no-properties :action make-closure #[257 "\302\300\301p$\207" [V0 V1 omnibox--on-complete-region] 6 "\n\n(fn C)"]] 16 (#$ . 22027)]) (defalias 'omnibox-setup #[0 "\302\303\211\207" [completing-read-function completion-in-region-function omnibox--completing-read omnibox--completion-in-region] 2]) (provide 'omnibox)