;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'vlf) #@271 Search for REGEXP COUNT number of times forward or BACKWARD. Use existing REPORTER and start TIME if given. Highlight match if HIGHLIGHT is non nil. Return t if search has been at least partially successful. (fn REGEXP COUNT BACKWARD &optional REPORTER TIME HIGHLIGHT) (defalias 'vlf-re-search #[1539 "C\306X\203\f\307\310!\210\311\312\313\"\210\204+\314\315\316Q\203& Z\202'\n#\262\211\242\2045\211\317 \240\210\320\303!\205B \205B \321^\322\nC C`C\211\242C\242\nC\323\324!\211\203^\325\202_\326 \305\306!\210-\322-\327\306\330\331\332!\333\"\334$\216\327\306\335\331\332&\n\336\"\337$\216\3402\334\2038\242\306U\204\327\341\342\322#\203\322\211\242S\240\210 \n\240\210 \240\210\306\224\240\210\306\225\240\210\242\262\202\236\n\306U\203\340\343\340\342\"\210\202\236\203\377eb\210\344y\210`W\203\363b\210\n\344\345yZ._\\\202 \346\347d\344\245^^!\350!\210\211\351/Z\"\266d\211b\210\262 \nZ\211\247\203/\211@Y\2053\352\"\266\202\236\242\306U\204\327\353\342\322#\203l\211\242S\240\210 \n\240\210 \240\210\306\224\240\210\306\225\240\210\242\262\2028 Y\203z\343\340\342\"\210\2028d\203\234\211b\210\345y\210`W\203\220b\210 \344\211yZ._Z\202\252\346\347Z\211\344\245Z]]!\350!\210\211\351\211/\\\"\266e\211b\210\262 \211\247\203\316\211@Y\205\322\352\"\266\2028\354!0*\262*\266\211\207" [vlf-file-size vlf-end-pos vlf-start-pos tramp-verbose case-fold-search font-lock-mode 0 error "Count must be positive" run-hook-with-args vlf-before-batch-functions search make-progress-reporter "Searching for " "..." float-time boundp 1 t derived-mode-p hexl-mode (:hexl :raw) (:insert :encode) make-byte-code "\300\211\207" vconcat vector [buffer-undo-list] 2 "\312\313!\210\311\203\f\314\315!\210\301\203$\316\304\242\305\242\306\242\307\242\300\310\242\302\242\303&\2025\316\304\242\305\242\307\242\306\242\300\310\242\302\242\303&\317\320\321\"\210\211\207" [set-buffer-modified-p nil font-lock-mode 1 vlf-goto-match run-hook-with-args vlf-after-batch-functions search] 9 end-of-file re-search-backward nil throw 10 -10 vlf-byte-position 1024 vlf-tune-batch vlf-move-to-chunk progress-reporter-do-update re-search-forward progress-reporter-done buffer-undo-list hexl-bits vlf-batch-size] 32 (#$ . 424)]) #@375 Move to MATCH-CHUNK-START MATCH-CHUNK-END surroundingMATCH-START-POS and MATCH-END-POS. According to COUNT and left TO-FIND, show if search has been successful. Use start TIME to report how much it took. Highlight match if HIGHLIGHT is non nil. Return nil if nothing found. (fn MATCH-CHUNK-START MATCH-CHUNK-END MATCH-START-POS MATCH-END-POS COUNT TO-FIND TIME HIGHLIGHT) (defalias 'vlf-goto-match #[2056 "\301\"\210b\210\302\303\304!\203\305\202\306!U\203(\307\310\311 Z\"\210\312\207\313U\314\"\315\316\317#\210\203G\307\320\311 Z\"\210\202U\307\321Z\311 Z#\210\203m\322\313\323\324\325!\326\"\327$\216\330\331!\210)\202q\332!\210\266\333\207" [vlf-batch-size vlf-move-to-chunk vlf-tune-optimal-load derived-mode-p hexl-mode (:hexl :raw) (:insert :encode) message "Not found (%f secs)" float-time nil 0 make-overlay overlay-put face match "Match found (%f secs)" "Moved to the %d match which is last (%f secs)" make-byte-code "\301\300!\207" vconcat vector [delete-overlay] 2 sit-for 1 delete-overlay t] 16 (#$ . 2777)]) #@139 Search forward for REGEXP prefix COUNT number of times. Search is performed chunk by chunk in `vlf-batch-size' memory. (fn REGEXP COUNT) (defalias 'vlf-re-search-forward #[514 "\301C\302\303\304\305\306\"\307\"\310$\216\211\311\301\211\211\312&\240)\207" [vlf-batch-size nil make-byte-code 0 "\301\242\206\300\211\207" vconcat vector [vlf-batch-size] 2 vlf-re-search t] 12 (#$ . 3846) (byte-code "\302 \205\303\304\205 @\" \206\305D\207" [regexp-history current-prefix-arg vlf-no-modifications read-regexp "Search whole file" 1] 3)]) #@140 Search backward for REGEXP prefix COUNT number of times. Search is performed chunk by chunk in `vlf-batch-size' memory. (fn REGEXP COUNT) (defalias 'vlf-re-search-backward #[514 "\301C\302\303\304\305\306\"\307\"\310$\216\211\311\312\301\211\312&\240)\207" [vlf-batch-size nil make-byte-code 0 "\301\242\206\300\211\207" vconcat vector [vlf-batch-size] 2 vlf-re-search t] 12 (#$ . 4406) (byte-code "\302 \205\303\304\205 @\" \206\305D\207" [regexp-history current-prefix-arg vlf-no-modifications read-regexp "Search whole file backward" 1] 3)]) #@70 Go to line N. If N is negative, count from the end of file. (fn N) (defalias 'vlf-goto-line #[257 "\306\307!\203\n\310!\207\311\312\313\"\210\314 \210\315\300!\205\205\316^ \n `\f\317 \320C\304\321!\210\322\323!\210\324\321\325\326\327     \n&\330\"\331$\216\321 W\203\264\321 ^\332\333\334 !\335Q\321 #\336) S\262\f*\336*\324\321\337\326\327!\340\"\341$\216\f ZW\205\253\322\342!\210\343\211 \\\"\210eb\210 \321U\206\252\344\345\320 %\205\252\320u\210\336\240)\262)\266\203\202 \332\346\334\f!\335Q\321 #\336)\n[\262 *\336*\324\321\337\326\327!\347\"\341$\216 W\205\372\322\350!\210\343 Z\"\210db\210\344\345\336\n%\240)\262)\266\202*\207" [tramp-verbose vlf-start-pos vlf-end-pos vlf-batch-size font-lock-mode vlf-file-size derived-mode-p hexl-mode vlf-goto-line-hexl run-hook-with-args vlf-before-batch-functions goto-line vlf-verify-size boundp 1 float-time nil 0 vlf-tune-batch (:raw) make-byte-code "\304\203\306\307!\210\305\242\204/\310\311\312\313\314\315!\316\"\317$\216\320\300\301\"\210)\210\303b\210\302\321\322!\210\323\324\325\"\207" vconcat vector [font-lock-mode 1 t make-byte-code 0 "\300\211\207" vconcat vector [buffer-undo-list] 2 vlf-move-to-chunk message "Unable to find line" run-hook-with-args vlf-after-batch-functions goto-line buffer-undo-list vlf-batch-size] 7 make-progress-reporter "Searching for line " number-to-string "..." t "\300\211\207" [buffer-undo-list] 2 (:insert :encode) vlf-move-to-chunk vlf-re-search "[\n ]" "Searching for line -" [buffer-undo-list] (:insert :encode) inhibit-read-only buffer-undo-list] 20 (#$ . 4976) (byte-code "\300 \205 \301\302!C\207" [vlf-no-modifications read-number "Go to line: "] 2)]) #@100 Go to line N. If N is negative, count from the end of file. Assume `hexl-mode' is active. (fn N) (defalias 'vlf-goto-line-hexl #[257 "\303\304!\210\211\305W\203, _\\\211\306\n\"Z\262\307!\210db\210\310\211\n\\^Z \"\\y\207\211 _S\211\306\n\"Z\262\307!\210eb\210\311\312 \245#y\207" [vlf-file-size hexl-bits vlf-batch-size vlf-tune-load (:hexl :raw) 0 mod vlf-move-to-batch round - 1] 7 (#$ . 6717)]) #@275 Query replace over whole file matching REGEXP with TO-STRING. Third arg DELIMITED (prefix arg if interactive), if non-nil, replace only matches surrounded by word boundaries. A negative prefix arg means replace BACKWARD. (fn REGEXP TO-STRING &optional DELIMITED BACKWARD) (defalias 'vlf-query-replace #[1026 "\302\303\304#\205V\211\203)\305\306\211&\210\307\310 !\"\311=\203K\306\262\202K\203<\312\306\302#\203K\313!\210\202-\314\306\302#\203K\313!\210\202<\315 \203\316 \210\202\207" [query-replace-map last-input-event t vlf-re-search 1 query-replace-regexp nil lookup-key vector automatic re-search-backward replace-match re-search-forward buffer-modified-p save-buffer] 12 (#$ . 7139) (byte-code "\301\302\203\303=\203\304\202\305\202\306\307Q\310\"\211@A@\3118\3128F\207" [current-prefix-arg query-replace-read-args "Query replace over whole file" - " backward" " word" "" " regexp" t 2 3] 6)]) (provide 'vlf-search)