| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/misearch.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:25 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/misearch.el ;;; in Emacs version 24.3.1 ;;; 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) #@980 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 `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 (#$ . 1352)) #@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 (#$ . 2398)) #@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 (#$ . 2612)) (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 (#$ . 2912)]) #@61 Clean up the multi-buffer search after terminating isearch. (defalias 'multi-isearch-end #[nil "\305\211\306\307\n\"\210\306\310 \"\210\306\311\f\"\210\312\313\314\"\207" [multi-isearch-current-buffer multi-isearch-next-buffer-current-function multi-isearch-orig-search-fun multi-isearch-orig-wrap multi-isearch-orig-push-state nil set-default isearch-search-fun-function isearch-wrap-function isearch-push-state-function remove-hook isearch-mode-end-hook multi-isearch-end] 4 (#$ . 3626)]) #@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)\206L \f?\205L \205L \203? \203F \203F \307\311\312\217\202L \313\314 \315D\"+\207" [buffer found search-fun string bound noerror isearch-search-fun-default nil t (byte-code "\204. \n\206\n p\306\"r\nq\210 \203 e\202 db\210`` \n#)\202 \n\2035 \n \207" [found multi-isearch-next-buffer-current-function buffer isearch-forward isearch-barrier isearch-opoint nil search-fun string bound noerror multi-isearch-current-buffer] 4) ((error (byte-code "\301\302\303D\"\207" [string signal search-failed "end of multi"] 4))) signal search-failed "repeat for next buffer" res multi-isearch-pause multi-isearch-current-buffer multi-isearch-search] 5]] 1 (#$ . 4125)]) #@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 (#$ . 5030)]) #@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 (#$ . 5635)]) #@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 (#$ . 5919)]) (defvar multi-isearch-buffer-list nil) #@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 \306 ! \203 \n@\202 \f\n\235\211 A@))\207" [isearch-forward multi-isearch-buffer-list buffers wrap buffer x reverse] 3 (#$ . 6222)]) #@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\204+ \314\300 \"\210\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): " "" add-to-list] 4 (#$ . 6697)]) #@62 Return a list of buffers whose names match specified 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 (#$ . 7154)]) #@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 @!\210 \203 e\202 db\210\303 *\207" [buffers multi-isearch-buffer-list multi-isearch-next-buffer-function isearch-forward multi-isearch-next-buffer-from-list mapcar get-buffer switch-to-buffer] 4 (#$ . 7521) (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 @!\210 \203 e\202 db\210\310 *\207" [buffers multi-isearch-buffer-list multi-isearch-next-buffer-function isearch-forward multi-isearch-next-buffer-from-list mapcar get-buffer switch-to-buffer isearch-forward-regexp] 4 (#$ . 8181) (list (if current-prefix-arg (multi-isearch-read-matching-buffers) (multi-isearch-read-buffers)))]) (defvar multi-isearch-file-list nil) #@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 \306 !\307 \203 \n@\202 \310\f!\n\235\211 A@)!)\207" [isearch-forward multi-isearch-file-list files wrap buffer x reverse find-file-noselect buffer-file-name] 4 (#$ . 8915)]) #@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 \310\302 \"\210\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): " add-to-list] 4 (#$ . 9567)]) #@62 Return a list of files whose names match specified wildcard. (defalias 'multi-isearch-read-matching-files #[nil "\301\302!\211\205 \303\304\"?\205 \303\305\"\205 \306\307\310\217)\207" [filename read-regexp "Search in files whose names match wildcard" string-match "\\`/:" "[[*?]" nil (file-expand-wildcards filename t) ((error (list filename)))] 4 (#$ . 9915)]) #@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 @!\210 \203 e\202 db\210\303 *\207" [files multi-isearch-file-list multi-isearch-next-buffer-function isearch-forward multi-isearch-next-file-buffer-from-list mapcar expand-file-name find-file] 4 (#$ . 10291) (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 @!\210 \203 e\202 db\210\310 *\207" [files multi-isearch-file-list multi-isearch-next-buffer-function isearch-forward multi-isearch-next-file-buffer-from-list mapcar expand-file-name find-file isearch-forward-regexp] 4 (#$ . 11029) (list (if current-prefix-arg (multi-isearch-read-matching-files) (multi-isearch-read-files)))]) (byte-code "\300\301!\210\300\302!\207" [provide multi-isearch misearch] 2)