Current File : //proc/thread-self/root/kunden/usr/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\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\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\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\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)