Current File : //usr/local/share/emacs/27.2/lisp/misearch.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\304\305\306\301& \210\310\316\312\317\314\320\304\305\306\301& \207" [custom-declare-group multi-isearch nil "Using isearch to search through multiple buffers." :version "23.1" :group isearch custom-declare-variable multi-isearch-search t "Non-nil enables searching multiple related buffers, in certain modes." :type boolean multi-isearch-pause "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))] 10)
#@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 (#$ . 1209))
#@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 (#$ . 2262))
#@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 (#$ . 2476))
#@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 (#$ . 2654))
#@61 Sequence of files visited by multiple file buffers Isearch.
(defvar multi-isearch-file-list nil (#$ . 2840))
(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 #[nil "\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 (#$ . 3078)])
#@61 Clean up the multi-buffer search after terminating isearch.
(defalias 'multi-isearch-end #[nil "\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 (#$ . 3792)])
#@69 Return the proper search function, for isearch in multiple buffers.
(defalias 'multi-isearch-search-fun #[nil "\300\207" [#[(string bound noerror) "\306 \307\211\211 \f
#\211 \203 \f\204 \310=\203 \307)\206\215 \f?\205\215 \205\215 \203? \203\207 \203\207 \3111} \204q \206N p\307\"rq\210\203^ e\202_ db\210``\n \f
#)\202C \203x 0\202\215 \210\312\313 \314D\"\202\215 \312\313 \315D\"+\207" [buffer found search-fun string bound noerror isearch-search-fun-default nil t (error) signal search-failed "end of multi" "repeat for next buffer" res multi-isearch-pause multi-isearch-current-buffer multi-isearch-search multi-isearch-next-buffer-current-function isearch-forward isearch-barrier isearch-opoint] 5]] 1 (#$ . 4351)])
#@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 #[nil "\203\f \203 \203 \305\np\306\"\211!\210 \203 e\202 db\207p\307\211\207" [multi-isearch-pause multi-isearch-current-buffer multi-isearch-next-buffer-current-function isearch-forward isearch-wrapped switch-to-buffer t nil] 4 (#$ . 5121)])
#@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 #[nil "\300\301\302\303pEE\207" [lambda (cmd) multi-isearch-pop-state cmd] 5 (#$ . 5726)])
#@104 Restore the multiple buffers search state.
Switch to the buffer restored from the search status stack.
(defalias 'multi-isearch-pop-state #[(_cmd buffer) "p\232?\205\f \302\211!\207" [buffer multi-isearch-current-buffer switch-to-buffer] 3 (#$ . 6010)])
#@246 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'.
(defalias 'multi-isearch-next-buffer-from-list #[(&optional buffer wrap) "\203 \202 \305 ! \203 \n@\202 \f\n\235A@)\207" [isearch-forward multi-isearch-buffer-list buffers wrap buffer reverse] 2 (#$ . 6274)])
#@63 Return a list of buffers specified interactively, one by one.
(defalias 'multi-isearch-read-buffers #[nil "\304\305p\306#C\307\304 \310=\203 \311\202 \312\307\306#\211\313\230\2045 \235\203, \210\2020 B\202 \237+\207" [bufs buf ido-ignore-item-temp-list read-buffer-function read-buffer "First buffer to search: " t nil ido-read-buffer "Next buffer to search (C-j to end): " "Next buffer to search (RET to end): " ""] 4 (#$ . 6741)])
#@101 Return a list of buffers whose names match specified regexp.
Uses `read-regexp' to read the regexp.
(defalias 'multi-isearch-read-matching-buffers #[nil "\301\302!\211\205 \303\304\305\306\307 \"\")\207" [bufregexp read-regexp "Search in buffers whose names match regexp" delq nil mapcar #[(buf) "\302\303 !\"\205\n \207" [bufregexp buf string-match buffer-name] 4] buffer-list] 6 (#$ . 7199)])
#@276 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.
(defalias 'multi-isearch-buffers #[(buffers) "\304\305\306 \"\307\n@!\210 \203 e\202 db\210\303\310\311\")\207" [multi-isearch-next-buffer-function buffers multi-isearch-buffer-list isearch-forward multi-isearch-next-buffer-from-list mapcar get-buffer switch-to-buffer nil t] 3 (#$ . 7605) (list (if current-prefix-arg (multi-isearch-read-matching-buffers) (multi-isearch-read-buffers)))])
#@283 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.
(defalias 'multi-isearch-buffers-regexp #[(buffers) "\304\305\306 \"\307\n@!\210 \203 e\202 db\210\310\311\312\")\207" [multi-isearch-next-buffer-function buffers multi-isearch-buffer-list isearch-forward multi-isearch-next-buffer-from-list mapcar get-buffer switch-to-buffer isearch-forward-regexp nil t] 3 (#$ . 8281) (list (if current-prefix-arg (multi-isearch-read-matching-buffers) (multi-isearch-read-buffers)))])
#@376 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.
(defalias 'multi-isearch-next-file-buffer-from-list #[(&optional buffer wrap) "\203 \202 \305 !\306 \203 \n@\202 \307\f!\n\235A@!)\207" [isearch-forward multi-isearch-file-list files wrap buffer reverse find-file-noselect buffer-file-name] 3 (#$ . 8994)])
#@61 Return a list of files specified interactively, one by one.
(defalias 'multi-isearch-read-files #[nil "\304\305 #C\306\304\307\211#\211\230\204' \n\235\203 \n\210\202 \nB\202 \n\237*\207" [default-directory buffer-file-name files file read-file-name "First file to search: " nil "Next file to search (RET to end): "] 4 (#$ . 9638)])
#@103 Return a list of files whose names match specified wildcard.
Uses `read-regexp' to read the wildcard.
(defalias 'multi-isearch-read-matching-files #[nil "\301\302!\211\205& \303\304\"?\205& \303\305\"\205& \3061# \307\310\"0\202& \210C)\207" [filename read-regexp "Search in files whose names match wildcard" string-match "\\`/:" "[[*?]" (error) file-expand-wildcards t] 4 (#$ . 9990)])
#@361 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.
(defalias 'multi-isearch-files #[(files) "\304\305\306 \"\307\n@!\210 \203 e\202 db\210\303\310\311\")\207" [multi-isearch-next-buffer-function files multi-isearch-file-list isearch-forward multi-isearch-next-file-buffer-from-list mapcar expand-file-name find-file nil t] 3 (#$ . 10389) (list (if current-prefix-arg (multi-isearch-read-matching-files) (multi-isearch-read-files)))])
#@368 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.
(defalias 'multi-isearch-files-regexp #[(files) "\304\305\306 \"\307\n@!\210 \203 e\202 db\210\310\311\312\")\207" [multi-isearch-next-buffer-function files multi-isearch-file-list isearch-forward multi-isearch-next-file-buffer-from-list mapcar expand-file-name find-file isearch-forward-regexp nil t] 3 (#$ . 11143) (list (if current-prefix-arg (multi-isearch-read-matching-files) (multi-isearch-read-files)))])
#@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 #[nil "\305\306\307\"\210@C\310A\311\211 \203- \f@\2119\203\" >\204& \nB\fA\211\204 *\n\237*\311\207" [unload-function-defs-list auto defs def --dolist-tail-- 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] 4 (#$ . 11934)])
(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)
Mini Shell