;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (custom-declare-group 'isearch-mb nil "Control isearch from the minibuffer." :group 'isearch) #@51 List of commands to execute in the search buffer. (defvar isearch-mb--with-buffer '(isearch-beginning-of-buffer isearch-end-of-buffer isearch-occur isearch-repeat-backward isearch-repeat-forward isearch-toggle-case-fold isearch-toggle-char-fold isearch-toggle-invisible isearch-toggle-lax-whitespace isearch-toggle-regexp isearch-toggle-symbol isearch-toggle-word isearch-exit isearch-delete-char) (#$ . 181)) #@59 List of commands to execute after exiting the minibuffer. (defvar isearch-mb--after-exit '(isearch-query-replace isearch-query-replace-regexp isearch-highlight-regexp isearch-highlight-lines-matching-regexp isearch-abort) (#$ . 597)) #@51 List of commands that shouldn't trigger a search. (defvar isearch-mb--no-search '(next-history-element previous-history-element) (#$ . 837)) #@39 Minibuffer keymap used by isearch-mb. (defvar isearch-mb-minibuffer-map (byte-code "\301\302\"\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\305#\210\303\323\307#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\207" [minibuffer-local-map make-composed-keymap nil define-key [remap next-line-or-history-element] isearch-repeat-forward [remap previous-line-or-history-element] isearch-repeat-backward [remap minibuffer-beginning-of-buffer] isearch-beginning-of-buffer [remap end-of-buffer] isearch-end-of-buffer [remap query-replace] isearch-query-replace [remap query-replace-regexp] isearch-query-replace-regexp "\n" newline "" "" "\363'" isearch-toggle-char-fold "\363 " isearch-toggle-lax-whitespace "\363_" isearch-toggle-symbol "\363c" isearch-toggle-case-fold "\363hr" isearch-highlight-regexp "\363hl" isearch-highlight-lines-matching-regexp "\363i" isearch-toggle-invisible "\363o" isearch-occur "\363r" isearch-toggle-regexp "\363w" isearch-toggle-word] 5) (#$ . 984)) #@40 Overlay for minibuffer prompt updates. (defvar isearch-mb--prompt-overlay nil (#$ . 2196)) #@80 Hook to run from the minibuffer to update the isearch state. (fn BEG END LEN) (defalias 'isearch-mb--after-change #[771 "\306 \307\310 \211\205e\311!r\312\313\"\216\314@\315\"\210\316!\317!\210\n9\203,\n >\204Q\f\203V\3201F\321 \322\321\307\323#)\2660\202N\307A@\262\203V\324 \202bb\210\307\211\325 *\262\262)\207" [inhibit-redisplay isearch-string this-command isearch-mb--no-search isearch-regexp inhibit-changing-match-data minibuffer-contents t minibuffer-selected-window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord substring-no-properties isearch-update-from-string-properties (invalid-regexp) nil "" string-match isearch-update isearch-search-and-update isearch-error isearch-barrier isearch-adjusted isearch-success] 15 (#$ . 2293)]) #@56 Hook to make the minibuffer reflect the isearch state. (defalias 'isearch-mb--post-command-hook #[0 "\204 \305\306\307\"\210\310\n\211\311\230\262\204\311\312 \210 c\210\313\314 d\315#\210\316 \211\2032\317\314 \\d\320#\210\210\f\205:\321\f!)\207" [isearch--current-buffer inhibit-modification-hooks isearch-message isearch-string isearch-error throw isearch-mb--continue (ignore) t "" delete-minibuffer-contents set-text-properties minibuffer-prompt-end nil isearch-fail-pos add-text-properties (face isearch-fail) isearch-mb--message] 5 (#$ . 3168)]) #@44 Display a momentary MESSAGE. (fn MESSAGE) (defalias 'isearch-mb--message #[257 "\301\302\303\304\305Q\306\307#!)\207" [message-log-max nil message propertize " [" "]" face minibuffer-prompt] 6 (#$ . 3737)]) #@72 Update the minibuffer prompt according to search status. (fn &rest _) (defalias 'isearch-mb--update-prompt #[128 "\205/\302 \303\304\"\206\305\306\304G]#\210\306\307\310\305GZ]\311\"\312\313 !!Q#\266\202\207" [isearch-mb--prompt-overlay isearch-regexp-function isearch-lazy-count-format overlay-get isearch-mb--len 0 overlay-put before-string make-string 32 capitalize isearch--describe-regexp-mode] 11 (#$ . 3953)]) #@98 Evaluate ARGS in the search buffer. Intended as an advice for isearch commands. (fn &rest ARGS) (defalias 'isearch-mb--with-buffer #[128 "\302 \203(\303\211\304 \211\205$\305!r\306\307\"\216\310@\311\"\210\312!*\262\262*\207\312!\207" [inhibit-redisplay enable-recursive-minibuffers minibufferp t minibuffer-selected-window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord apply] 6 (#$ . 4391)]) #@136 Evaluate ARGS after quitting isearch-mb. Intended as an advice for commands that quit isearch and use the minibuffer. (fn &rest ARGS) (defalias 'isearch-mb--after-exit #[128 "\300\301\"\207" [throw isearch-mb--continue] 4 (#$ . 4896)]) #@41 Read search string from the minibuffer. (defalias 'isearch-mb--session #[0 "\3061\311\307\3102\306 ??\311K\312K\313K\314KA\315C\316\317 &\216\311\320M\210\312\321M\210\313\322M\210\314\322M\210\315\241\210\316\323\"\324\325!\211\316\326#M\210\316\327\"\216\330\331\"\210\332\216 \211\203q\211@\333\334\303#\210A\266\202\202^\210\f\211\203\206\211@\333\334\304#\210A\266\202\202s\210\335\336\315 \315/\203\225\337\202\226\340\341/\203\240\342\202\241\343\344\345\315\341\346\347\"\"!\"\350&\210\351\315\242\"\210*\2660\203\301\352\202\302\353*\266\2100!0\207\2100\203\322\354 \207\355\356\315\"\207" [isearch-mode-map isearch-lazy-highlight lazy-highlight-buffer isearch-mb--with-buffer isearch-mb--after-exit isearch-mb-minibuffer-map (quit) apply isearch-mb--continue isearch-message isearch--momentary-message isearch-post-command-hook isearch-pre-command-hook nil make-closure #[0 "\306\301M\210\307\302M\210\310\303M\210\311\304M\210\300\305\241\207" [V0 V1 V2 V3 V4 V5 isearch-message isearch--momentary-message isearch-post-command-hook isearch-pre-command-hook] 2] isearch-mb--update-prompt isearch-mb--message ignore #[0 "\304\305\306\307\310$\210\304\311\312\307\310$\210\304\313\314\315\300\"\307\310$\210\316\302!\210 \317eep\320\211%\321 \210\312 \207" [V0 isearch-tool-bar-map tool-bar-map isearch-mb--prompt-overlay add-hook after-change-functions isearch-mb--after-change nil local post-command-hook isearch-mb--post-command-hook minibuffer-exit-hook make-closure #[0 "\300\301\302 !\240\207" [V0 window-start minibuffer-selected-window] 3] make-local-variable make-overlay t isearch-mb--update-prompt] 6] make-symbol "minibuffer-setup" #[0 "\302\303\301\"\210\300 \207" [V0 V1 remove-hook minibuffer-setup-hook] 3] #[0 "\301\302\300\"\207" [V0 remove-hook minibuffer-setup-hook] 3] add-hook minibuffer-setup-hook #[0 "\211\203\211@\302\300\"\210A\266\202\202\210 \211\205'\211@\302\301\"\210A\266\202\202\207" [isearch-mb--after-exit isearch-mb--with-buffer advice-remove] 5] advice-add :around read-from-minibuffer "I-search: " regexp-search-ring search-ring mapcar regexp-quote identity delete-dups delq thing-at-point (region url symbol sexp line) t set-window-start (isearch-done) (ignore) isearch-cancel signal quit isearch-regexp isearch-mode] 25 (#$ . 5140)]) #@64 Arrange to start isearch-mb after this command, if applicable. (defalias 'isearch-mb--setup #[0 "\300 ?\205 \301\302\303\304#\207" [minibufferp run-with-idle-timer 0 nil #[0 "\205\301 \207" [isearch-mode isearch-mb--session] 1]] 4 (#$ . 7491)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable isearch-mb-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Isearch-Mb mode is enabled.\nSee the `isearch-mb-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `isearch-mb-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@703 Control isearch from the minibuffer. This is a minor mode. If called interactively, toggle the `Isearch-Mb 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 `(default-value 'isearch-mb-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. During an isearch-mb session, the following keys are available: \{isearch-mb-minibuffer-map} (fn &optional ARG) (defalias 'isearch-mb-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203D\313\314\315\"\210\202I\316\314\315\"\210\317\320\305\301!\203U\321\202V\322\"\210\323\324!\203~\325\301!\210\302 \203n\211\302 \232\203~\326\327\305\301!\203z\330\202{\331\332#\210\210\333 \210\305\301!\207" [global-minor-modes isearch-mb-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook isearch-mode-hook isearch-mb--setup remove-hook run-hooks isearch-mb-mode-hook isearch-mb-mode-on-hook isearch-mb-mode-off-hook called-interactively-p any customize-mark-as-set message "Isearch-Mb mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 8255) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar isearch-mb-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%\210\314\315!\207" [isearch-mb-mode-map isearch-mb-mode-hook variable-documentation put "Hook run after entering or leaving `isearch-mb-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 isearch-mb-mode boundp provide isearch-mb] 6)