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



(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.\nThis can be one of:\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\"\240\210\301\303\n\n\n%\240\210\301\304		$\240\210
\301\305\n\n\n%\240\210\211\301\306			%\240\210\242\240\210\301\307$\207" [nil make-closure #[0 "\301\302\300\242\"\207" [V0 signal iter-end-of-sequence] 3] #[0 "\302\300\242\301\303\242\240\210\240\207" [V0 V1 V2 V3] 4] #[0 "\300\302\242\240\210\303\304\301\242\"\207" [V0 V1 V2 throw cps--yield] 3] #[0 "\302\300\242\300\211\242A\240\210\242\301\303\242\240\210\240\207" [V0 V1 V2 V3] 4] #[0 "\300\301\242\203\303\242\202
\302\242\240\207" [V0 V1 V2 V3] 2] #[514 "
\303\267\202/\300\302\242\240\210\301\304\240\207\301
\240\210\304C\305\306\300\301\302%\216\3072)\300\242 \210\202!0
\310\240\210)\207\311\312\"\207" [V0 V1 V2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:close 6 :next 15)) nil make-closure #[0 "\303\242?\205\300\302\242\240\210\301\304\240\207" [V0 V1 V2 V3 nil] 2] cps--yield t error "Unknown iterator operation %S"] 9 "\n\n(fn OP VALUE)"]] 16 (#$ . 670)])
(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 (#$ . 2020)])
#@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\262
A\266\202\202D\210\211\262
\202|\322\323\317!\203x\324\202y\325\"!\203\211r
q\210\326\320\211\"\210)\211\203\221\204\227\327!q\210\207\330\310!q\210\331 \210\332 \210\262
\3331\260\334
\306\"0\210\207\210\335!\210\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 (file-missing) insert-file-contents fileloop-next-file] 14 (#$ . 2891)])
#@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\nV\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\306\316p!\210)\214~\210 )\205\207\310\262\202\207" [fileloop--freshly-initialized fileloop--scan-function baud-rate search-slow-speed buffer-file-name switch-to-buffer-preserve-window-point nil fileloop-next-file t message "Scanning file %s..." erase-buffer find-file-noselect push-mark switch-to-buffer fileloop--operate-function] 7 (#$ . 3979) nil])
#@31 

(fn REGEXP FILES CASE-FOLD)
(defalias 'fileloop-initialize-search #[771 "pC\300\301\302#\301\303\"#\207" [fileloop-initialize make-closure #[0 "\303\300\301\"\304\300\305\306#)\207" [V0 V1 case-fold-search fileloop--case-fold re-search-forward nil t] 4] #[0 "\300\242p=\204\300p\240\210\302\303	\"\210\304\207" [V0 buffer-file-name message "Scanning file %s...found" nil] 3]] 10 (#$ . 4672)])
#@25 

(fn REGEXP CASE-FOLD)
(defalias 'fileloop--case-fold #[514 "\211\302>\203\n\211\202\211\203	\203\303\304\"\207\207" [case-fold-search search-upper-case (nil t) isearch-no-upper-case-p t] 6 (#$ . 5082)])
#@600 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	$\304\306\n\n			&#\207" [make-hash-table :test eq fileloop-initialize make-closure #[0 "\304\300\301\"\305\300\306\307#\205\310p\311\224\302#)\207" [V0 V1 V2 case-fold-search fileloop--case-fold re-search-forward nil t puthash 0] 4] #[0 "\306\300\302\"\307\300\301\310\211\303\311\312p\304e#d&	)\207" [V0 V1 V2 V3 V4 case-fold-search fileloop--case-fold perform-replace t nil gethash multi-query-replace-map] 12]] 16 (#$ . 5303)])
(provide 'fileloop)