Current File : //usr/local/share/emacs/27.2/lisp/fileloop.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!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317%\207" [require generator custom-declare-group fileloop nil "Operations on multiple files." :group tools custom-declare-variable fileloop-revert-buffers funcall function #[0 "\300\207" [silent] 1] "Whether to revert files during fileloop operation.\n `silent' means to only do it if `revert-without-query' is applicable;\n t means to offer to do it for all applicable files;\n nil means never to do it" :type (choice (const silent) (const t) (const nil))] 6)
#@13
(fn LIST)
(defalias 'fileloop--list-to-iterator #[257 "\211C\300C\300C\300C\300C\300C\300C\300C\301\302\303\304\305 !\306\"\307$\240\210\301\302\310\304\305
$\311\"\312$\240\210\301\302\313\304\305\f\f #\314\"\307$\240\210\301\302\315\304\305
$\311\"\312$\240\210\211\301\302\316\304\305\f\f\f\n$\311\"\317$\240\210\242\240\210\301\320\321\304\305 #\322\"\323\324%\211\262\266\207\207" [nil make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [signal iter-end-of-sequence] 3 "\302\300\242\301\303\242\240\210\240\207" [] 4 "\300\302\242\240\210\303\304\301\242\"\207" [throw cps--yield] "\302\300\242\300\211\242A\240\210\242\301\303\242\240\210\240\207" "\300\301\242\203 \303\242\202
\302\242\240\207" 2 514 "\303\267\2027 \300\302\242\240\210\301\304\240\207\301\240\210\304C\305\306\307\310\311\300\301\302$\312\"\313$\216\31421 \300\242 \210\202) 0\315\240\210)\207\316\317\"\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:close 6 :next 15)) nil make-byte-code 0 "\303\242?\205 \300\302\242\240\210\301\304\240\207" vconcat vector [nil] 2 cps--yield t error "unknown iterator operation %S"] 12 "\n\n(fn OP VALUE)"] 19 (#$ . 970)])
(defvar fileloop--iterator iter-empty)
(defvar fileloop--scan-function #[0 "\300\301!\207" [user-error "No operation in progress"] 2])
(defvar fileloop--operate-function 'ignore)
(defvar fileloop--freshly-initialized nil)
#@615 Initialize a new round of operation on several files.
FILES can be either a list of file names, or an iterator (used with `iter-next')
which returns a file name at each step.
SCAN-FUNCTION is a function called with no argument inside a buffer
and it should return non-nil if that buffer has something on which to operate.
OPERATE-FUNCTION is a function called with no argument; it is expected
to perform the operation on the current file buffer and when done
should return non-nil to mean that we should immediately continue
operating on the next file and nil otherwise.
(fn FILES SCAN-FUNCTION OPERATE-FUNCTION)
(defalias 'fileloop-initialize #[771 "<\203 \304!\204 \305!\202 \211\306\211\207" [fileloop--iterator fileloop--scan-function fileloop--operate-function fileloop--freshly-initialized functionp fileloop--list-to-iterator t] 5 (#$ . 2432)])
#@26
(fn &optional NOVISIT)
(defalias 'fileloop-next-file #[256 "\3041 \305!0\202
\210\306\211\204# \203 \307\310!\203 \311\310!\210\312\313!\210\314!\211?\203\211 \203\211 \315!\204\211 \316=\203l \317!\204\211 \306\n\211\203e \211@\211\306\320\321#)\266\203\203^ \320\262A\266\202\202D \210\211\262\202| \322\323\317!\203x \324\202y \325\"!\203\211 rq\210\326\320\211\"\210)\211\203\221 \204\231 \327!q\210\202\254 \330\310!q\210\331 \210\332 \210\262\333\306\"\210\262\207" [fileloop--iterator fileloop-revert-buffers revert-without-query inhibit-changing-match-data (iter-end-of-sequence) iter-next nil get-buffer " *next-file*" kill-buffer user-error "All files processed" get-file-buffer verify-visited-file-modtime silent buffer-modified-p t string-match y-or-n-p format "File %s changed on disk. Discard your edits? " "File %s changed on disk. Reread from disk? " revert-buffer find-file-noselect get-buffer-create kill-all-local-variables erase-buffer insert-file-contents] 14 (#$ . 3303)])
#@37 Continue last multi-file operation.
(defalias 'fileloop-continue #[0 "\306\211\211\211\204 \204 \214~\210 )\204R \203 b\210\306\262\307\310!\262\211\2049 \204B \n V\203B \310\211\262\203B \311\312\206@ \f\"\210\306?\205J `\262eb\210\202 \203k `\313 \210\314!q\210\306\262~\210\211b\266\202p \315\310\"\210\316p!\210\214~\210
)\205\203 \310\262\202 \207" [fileloop--freshly-initialized fileloop--scan-function baud-rate search-slow-speed buffer-file-name fileloop--operate-function nil fileloop-next-file t message "Scanning file %s..." erase-buffer find-file-noselect push-mark switch-to-buffer] 7 (#$ . 4338) nil])
#@31
(fn REGEXP FILES CASE-FOLD)
(defalias 'fileloop-initialize-search #[771 "pC\300\301\302\303\304\305\n \"\306\"\307$\301\302\310\304\305!\311\"\312$#\207" [fileloop-initialize make-byte-code 0 "\303\300\301\"\304\300\305\306#)\207" vconcat vector [case-fold-search fileloop--case-fold re-search-forward nil t] 4 "\300\242p=\204 \300p\240\210\302\303 \"\210\304\207" [buffer-file-name message "Scanning file %s...found" nil] 3] 13 (#$ . 4985)])
#@25
(fn REGEXP CASE-FOLD)
(defalias 'fileloop--case-fold #[514 "\211\302>\203\n \211\202 \211\203 \203 \303\304\"\202 \211\207" [case-fold-search search-upper-case (nil t) isearch-no-upper-case-p t] 6 (#$ . 5443)])
#@620 Initialize a new round of query&replace on several files.
FROM is a regexp and TO is the replacement to use.
FILES describes the files, as in `fileloop-initialize'.
CASE-FOLD can be t, nil, or `default':
if it is nil, matching of FROM is case-sensitive.
if it is t, matching of FROM is case-insensitive, except
when `search-upper-case' is non-nil and FROM includes
upper-case letters.
if it is `default', the function uses the value of
`case-fold-search' instead.
DELIMITED if non-nil means replace only word-delimited matches.
(fn FROM TO FILES CASE-FOLD &optional DELIMITED)
(defalias 'fileloop-initialize-replace #[1284 "\300\301\302\303\304\305 \"\306\"\307$\301\302\310\304\305\f\f $\311\"\312$#\207" [fileloop-initialize make-byte-code 0 "\303\300\301\"\304\300\305\306#\205 \307\224b)\207" vconcat vector [case-fold-search fileloop--case-fold re-search-forward nil t 0] 4 "\306\300\302\" \307\300\301\310\211\303\311
&)\207" [case-fold-search multi-query-replace-map fileloop--case-fold perform-replace t nil] 8] 17 (#$ . 5670)])
(provide 'fileloop)
Mini Shell