;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\306\307&\210\312\322\314\315\323DD\324\320\325\306\307&\207" [require cl-lib custom-declare-group multi-isearch nil "Using isearch to search through multiple buffers." :version "23.1" :group isearch custom-declare-variable multi-isearch-search funcall function #[0 "\300\207" [t] 1 #1=""] "Non-nil enables searching multiple related buffers, in certain modes." :type boolean multi-isearch-pause #[0 "\300\207" [t] 1 #1#] "A choice defining where to pause the search.\nIf the value is nil, don't pause before going to the next buffer.\nIf the value is `initial', pause only after a failing search in the\ninitial buffer.\nIf t, pause in all buffers that contain the search string." (choice (const :tag "Don't pause" nil) (const :tag "Only in initial buffer" initial) (const :tag "All buffers" t))] 8)
#@987 Function to call to get the next buffer to search.

When this variable is set to a function that returns a buffer, then
after typing another \[isearch-forward] or \[isearch-backward] at a failing search, the search goes
to the next buffer in the series and continues searching for the
next occurrence.

This function should return the next buffer (it doesn't need to switch
to it), or nil if it can't find the next buffer (when it reaches the
end of the search space).

The first argument of this function is the current buffer where the
search is currently searching.  It defines the base buffer relative to
which this function should find the next buffer.  When the isearch
direction is backward (when option `isearch-forward' is nil), this function
should return the previous buffer to search.

If the second argument of this function WRAP is non-nil, then it
should return the first buffer in the series; and for the backward
search, it should return the last buffer in the series.
(defvar multi-isearch-next-buffer-function nil (#$ . 985))
#@140 The currently active function to get the next buffer to search.
Initialized from `multi-isearch-next-buffer-function' when
Isearch starts.
(defvar multi-isearch-next-buffer-current-function nil (#$ . 2037))
#@118 The buffer where the search is currently searching.
The value is nil when the search still is in the initial buffer.
(defvar multi-isearch-current-buffer nil (#$ . 2251))
#@130 Sequence of buffers visited by multiple buffers Isearch.
This is nil if Isearch is not currently searching more than one buffer.
(defvar multi-isearch-buffer-list nil (#$ . 2429))
#@61 Sequence of files visited by multiple file buffers Isearch.
(defvar multi-isearch-file-list nil (#$ . 2615))
(defvar multi-isearch-orig-search-fun nil)
(defvar multi-isearch-orig-wrap nil)
(defvar multi-isearch-orig-push-state nil)
#@89 Set up isearch to search multiple buffers.
Intended to be added to `isearch-mode-hook'.
(defalias 'multi-isearch-setup #[0 "\205,	\205,\306	\307\310!\307\311!\307\312!\313\310\314\"\210\313\311\315\"\210\313\312\316\"\210\317\320\321\"\207" [multi-isearch-search multi-isearch-next-buffer-function multi-isearch-current-buffer multi-isearch-next-buffer-current-function multi-isearch-orig-search-fun multi-isearch-orig-wrap nil default-value isearch-search-fun-function isearch-wrap-function isearch-push-state-function set-default multi-isearch-search-fun multi-isearch-wrap multi-isearch-push-state add-hook isearch-mode-end-hook multi-isearch-end multi-isearch-orig-push-state] 3 (#$ . 2853)])
#@61 Clean up the multi-buffer search after terminating isearch.
(defalias 'multi-isearch-end #[0 "\306\211\306\211\307\310\f\"\210\307\311
\"\210\307\312\"\210\313\314\315\"\207" [multi-isearch-current-buffer multi-isearch-next-buffer-current-function multi-isearch-buffer-list multi-isearch-file-list multi-isearch-orig-search-fun multi-isearch-orig-wrap nil set-default isearch-search-fun-function isearch-wrap-function isearch-push-state-function remove-hook isearch-mode-end-hook multi-isearch-end multi-isearch-orig-push-state] 4 (#$ . 3565)])
#@69 Return the proper search function, for isearch in multiple buffers.
(defalias 'multi-isearch-search-fun #[0 "\300\207" [#[771 "\306 \307\211#\211\203\204\310=\203\307\211\262
\206\204?\205\204\n\205\204\2037\203}	\203}\3111t
\204k
\206Ep\307\"\262
r\211q\210\f\203Ue\202Vdb\210``#\262)\202;\211\203q\211
0\207\210\312\313\314D\"\207\312\313\315D\"\207" [multi-isearch-pause multi-isearch-current-buffer multi-isearch-search multi-isearch-next-buffer-current-function isearch-forward isearch-barrier isearch-search-fun-default nil t (error) signal search-failed "end of multi" "repeat for next buffer" isearch-opoint] 10 "\n\n(fn STRING BOUND NOERROR)"]] 1 (#$ . 4122)])
#@315 Wrap the multiple buffers search when search is failed.
Switch buffer to the first buffer for a forward search,
or to the last buffer for a backward search.
Set `multi-isearch-current-buffer' to the current buffer to display
the isearch suffix message [initial buffer] only when isearch leaves
the initial buffer.
(defalias 'multi-isearch-wrap #[0 "\203\f\203	\203\np\305\"\306 \210\203e\202db\207p\307\211\207" [multi-isearch-pause multi-isearch-current-buffer multi-isearch-next-buffer-current-function isearch-forward isearch-wrapped t multi-isearch-switch-buffer nil] 3 (#$ . 4848)])
#@151 Save a function restoring the state of multiple buffers search.
Save the current buffer to the additional state parameter in the
search status stack.
(defalias 'multi-isearch-push-state #[0 "p\300\301\"\207" [make-closure #[257 "\301
\300\"\207" [V0 multi-isearch-pop-state] 4 "\n\n(fn CMD)"]] 4 (#$ . 5458)])
#@131 Restore the multiple buffers search state in BUFFER.
Switch to the buffer restored from the search status stack.

(fn CMD BUFFER)
(defalias 'multi-isearch-pop-state #[514 "\211p=?\205\211\301 \207" [multi-isearch-current-buffer multi-isearch-switch-buffer] 4 (#$ . 5776)])
#@51 Switch to the next buffer in multi-buffer search.
(defalias 'multi-isearch-switch-buffer #[0 "\302!\205p=?\205\303\304!\210\305\211\207" [multi-isearch-current-buffer isearch-mode buffer-live-p nil switch-to-buffer " M-Isearch"] 2 (#$ . 6058)])
#@274 Return the next buffer in the series of buffers.
This function is used for multiple buffers Isearch.  A sequence of
buffers is defined by the variable `multi-isearch-buffer-list'
set in `multi-isearch-buffers' or `multi-isearch-buffers-regexp'.

(fn &optional BUFFER WRAP)
(defalias 'multi-isearch-next-buffer-from-list #[512 "\203	\202\302	!
\203\211@\207
\235A@\207" [isearch-forward multi-isearch-buffer-list reverse] 5 (#$ . 6319)])
#@63 Return a list of buffers specified interactively, one by one.
(defalias 'multi-isearch-read-buffers #[0 "\301\302p\303#C\304
\301\305 \304\303#\211\262\306\230\204+\211\235\203!
\202$\211B\262
\202	
\237)\207" [ido-ignore-item-temp-list read-buffer "First buffer to search: " t nil multi-occur--prompt ""] 6 (#$ . 6770)])
#@101 Return a list of buffers whose names match specified regexp.
Uses `read-regexp' to read the regexp.
(defalias 'multi-isearch-read-matching-buffers #[0 "\300\301!\211\205\302\303\304\305\306\"\307 \"\"\207" [read-regexp "Search in buffers whose names match regexp" delq nil mapcar make-closure #[257 "\301\300\302!\"\205\n\211\207" [V0 string-match buffer-name] 5 "\n\n(fn BUF)"] buffer-list] 7 (#$ . 7109)])
#@290 Start multi-buffer Isearch on a list of BUFFERS.
This list can contain live buffers or their names.
Interactively read buffer names to search, one by one, ended with RET.
With a prefix argument, ask for a regexp, and search in buffers
whose names match the specified regexp.

(fn BUFFERS)
(defalias 'multi-isearch-buffers #[257 "\303\304\305\"\306	@!\210\n\203e\202db\210\302\307\310\")\207" [multi-isearch-next-buffer-function multi-isearch-buffer-list isearch-forward multi-isearch-next-buffer-from-list mapcar get-buffer switch-to-buffer nil t] 4 (#$ . 7529) (byte-code "\203	\301 \202\302 C\207" [current-prefix-arg multi-isearch-read-matching-buffers multi-isearch-read-buffers] 1)])
#@297 Start multi-buffer regexp Isearch on a list of BUFFERS.
This list can contain live buffers or their names.
Interactively read buffer names to search, one by one, ended with RET.
With a prefix argument, ask for a regexp, and search in buffers
whose names match the specified regexp.

(fn BUFFERS)
(defalias 'multi-isearch-buffers-regexp #[257 "\303\304\305\"\306	@!\210\n\203e\202db\210\307\310\311\")\207" [multi-isearch-next-buffer-function multi-isearch-buffer-list isearch-forward multi-isearch-next-buffer-from-list mapcar get-buffer switch-to-buffer isearch-forward-regexp nil t] 4 (#$ . 8236) (byte-code "\203	\301 \202\302 C\207" [current-prefix-arg multi-isearch-read-matching-buffers multi-isearch-read-buffers] 1)])
#@404 Return the next buffer in the series of file buffers.
This function is used for multiple file buffers Isearch.  A sequence
of files is defined by the variable `multi-isearch-file-list' set in
`multi-isearch-files' or `multi-isearch-files-regexp'.
Every next/previous file in the defined sequence is visited by
`find-file-noselect' that returns the corresponding file buffer.

(fn &optional BUFFER WRAP)
(defalias 'multi-isearch-next-file-buffer-from-list #[512 "\203	\202\302	!\303\203
@\202\304!\235A@!\207" [isearch-forward multi-isearch-file-list reverse find-file-noselect buffer-file-name] 6 (#$ . 8980)])
#@61 Return a list of files specified interactively, one by one.
(defalias 'multi-isearch-read-files #[0 "\302\303	#C\304\302\305\211#\211\262\230\204&\211\235\203
\202!\211B\262\202
\237\207" [default-directory buffer-file-name read-file-name "First file to search: " nil "Next file to search (RET to end): "] 6 (#$ . 9609)])
#@103 Return a list of files whose names match specified wildcard.
Uses `read-regexp' to read the wildcard.
(defalias 'multi-isearch-read-matching-files #[0 "\300\301!\211\205#\302\303\"?\205#\302\304\"\205#\3051 \306
\307\"0\207\210\211C\207" [read-regexp "Search in files whose names match wildcard" string-match "\\`/:" "[[*?]" (error) file-expand-wildcards t] 4 (#$ . 9951)])
#@373 Start multi-buffer Isearch on a list of FILES.
Relative file names in this list are expanded to absolute
file names using the current buffer's value of `default-directory'.
Interactively read file names to search, one by one, ended with RET.
With a prefix argument, ask for a wildcard, and search in file buffers
whose file names match the specified wildcard.

(fn FILES)
(defalias 'multi-isearch-files #[257 "\303\304\305\"\306	@!\210\n\203e\202db\210\302\307\310\")\207" [multi-isearch-next-buffer-function multi-isearch-file-list isearch-forward multi-isearch-next-file-buffer-from-list mapcar expand-file-name find-file nil t] 4 (#$ . 10338) (byte-code "\203	\301 \202\302 C\207" [current-prefix-arg multi-isearch-read-matching-files multi-isearch-read-files] 1)])
#@380 Start multi-buffer regexp Isearch on a list of FILES.
Relative file names in this list are expanded to absolute
file names using the current buffer's value of `default-directory'.
Interactively read file names to search, one by one, ended with RET.
With a prefix argument, ask for a wildcard, and search in file buffers
whose file names match the specified wildcard.

(fn FILES)
(defalias 'multi-isearch-files-regexp #[257 "\303\304\305\"\306	@!\210\n\203e\202db\210\307\310\311\")\207" [multi-isearch-next-buffer-function multi-isearch-file-list isearch-forward multi-isearch-next-file-buffer-from-list mapcar expand-file-name find-file isearch-forward-regexp nil t] 4 (#$ . 11125) (byte-code "\203	\301 \202\302 C\207" [current-prefix-arg multi-isearch-read-matching-files multi-isearch-read-files] 1)])
#@133 Remove autoloaded variables from `unload-function-defs-list'.
Also prevent the feature from being reloaded via `isearch-mode-hook'.
(defalias 'multi-isearch-unload-function #[0 "\301\302\303\"\210@C\304A\211\203(\211@\2119\203\211>\204!\211B\262
A\266\202\202\210
\237\305\207" [unload-function-defs-list remove-hook isearch-mode-hook multi-isearch-setup (multi-isearch-next-buffer-function multi-isearch-next-buffer-current-function multi-isearch-current-buffer multi-isearch-buffer-list multi-isearch-file-list) nil] 6 (#$ . 11949)])
(byte-code "\300\301\302\"\210\303\304!\210\303\305!\207" [defalias misearch-unload-function multi-isearch-unload-function provide multi-isearch misearch] 3)