;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) #@28 VLF file that is searched. (defvar vlf-occur-vlf-file nil (#$ . 423)) (make-variable-buffer-local 'vlf-occur-vlf-file) #@29 VLF buffer that is scanned. (defvar vlf-occur-vlf-buffer nil (#$ . 548)) (byte-code "\300\301!\210\300\302!\207" [make-variable-buffer-local vlf-occur-vlf-buffer vlf-occur-regexp] 2) #@24 Is `hexl-mode' active? (defvar vlf-occur-hexl nil (#$ . 737)) (make-variable-buffer-local 'vlf-occur-hexl) #@41 Number of lines scanned by `vlf-occur'. (defvar vlf-occur-lines 0 (#$ . 850)) (make-variable-buffer-local 'vlf-occur-lines) #@38 Keymap for command `vlf-occur-mode'. (defvar vlf-occur-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\307#\210\301\313\314#\210\301\315\316#\210\211\207" [make-sparse-keymap define-key "n" vlf-occur-next-match "p" vlf-occur-prev-match " " vlf-occur-visit "\215" vlf-occur-visit-new-buffer [mouse-1] "o" vlf-occur-show [remap save-buffer] vlf-occur-save] 5) (#$ . 980)) (defvar vlf-occur-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [vlf-occur-mode-hook variable-documentation put "Hook run after entering VLF[occur] mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp vlf-occur-mode-map definition-name vlf-occur-mode] 4) (defvar vlf-occur-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [vlf-occur-mode-abbrev-table vlf-occur-mode-map variable-documentation put purecopy "Keymap for `vlf-occur-mode'." boundp vlf-occur-mode-syntax-table definition-name vlf-occur-mode (lambda (#1=#:def-tmp-var) (defvar vlf-occur-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vlf-occur-mode'." (lambda (#1#) (defvar vlf-occur-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vlf-occur-mode'." derived-mode-parent special-mode] 5) #@258 Major mode for showing occur matches of VLF opened files. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `vlf-occur-mode-hook', as the final or penultimate step during initialization. \{vlf-occur-mode-map} (defalias 'vlf-occur-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331\332\333\334\307$\210)\335\336!\207" [delay-mode-hooks major-mode mode-name vlf-occur-mode-map vlf-occur-mode-syntax-table vlf-occur-mode-abbrev-table make-local-variable t special-mode vlf-occur-mode "VLF[occur]" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table add-hook write-file-functions vlf-occur-save nil run-mode-hooks vlf-occur-mode-hook local-abbrev-table] 5 (#$ . 2606) nil]) #@28 Move cursor to next match. (defalias 'vlf-occur-next-match #[0 "\300`\301\"\302=\203\303`\301\"b\210\304`d\301\302$\206\304e`\301\302$b\207" [get-text-property face match next-single-property-change text-property-any] 5 (#$ . 3684) nil]) #@32 Move cursor to previous match. (defalias 'vlf-occur-prev-match #[0 "\300`\301\"\302=\203\303`\301\"b\210\300`\301\"\302=?\205&\303`\301\"\206!db\210\202\207" [get-text-property face match previous-single-property-change] 3 (#$ . 3932) nil]) #@215 Visit current `vlf-occur' link in a vlf buffer but stay in the occur buffer. If original VLF buffer has been killed, open new VLF session each time. EVENT may hold details of the invocation. (fn &optional EVENT) (defalias 'vlf-occur-show #[256 "\211\203\300\301!\211@\262!\202p\302!\210\303!\207" [window-buffer event-end vlf-occur-visit pop-to-buffer] 4 (#$ . 4186) (list last-nonmenu-event)]) #@43 Visit `vlf-occur' link in new vlf buffer. (defalias 'vlf-occur-visit-new-buffer #[0 "\301\302 )\207" [current-prefix-arg t vlf-occur-visit] 1 (#$ . 4597) nil]) #@199 Visit current `vlf-occur' link in a vlf buffer. With prefix argument or if original VLF buffer has been killed, open new VLF session. EVENT may hold details of the invocation. (fn &optional EVENT) (defalias 'vlf-occur-visit #[256 "\211\203\306\307!\211@\262!q\210\310\307!!b\210`\211\311\312\"Z\313\314\"\211\205\317\313\315\"\316!\2033\202:\317\320P!\211 \n?p\313\321\"\\ \203k \322\323\"\262\324!\203\\\325!\210\210\204d\326 \210\327!\210\202\300\324!\204\300\3302\252\331 \211\205\247\211@\211q\210\f\203\240 \232\203\240\332\326!?=\203\240\211\211\262\203\240\333\330\323\"\210A\266\202\202w\2620\204\272\322\323\"\262\204\272\326 \210\327!\210\334!\210\335\"\210\211b\266\206\207" [vlf-occur-vlf-file vlf-occur-vlf-buffer vlf-occur-hexl current-prefix-arg vlf-mode buffer-file-name window-buffer event-end posn-point previous-single-char-property-change vlf-match get-text-property chunk-start chunk-end file-exists-p read-file-name " doesn't exist, locate it: " line-pos vlf t buffer-live-p vlf-tune-copy-profile hexl-mode switch-to-buffer found buffer-list derived-mode-p throw pop-to-buffer vlf-move-to-chunk] 15 (#$ . 4765) (list last-nonmenu-event)]) #@149 Make whole file occur style index for REGEXP branching to new buffer. Prematurely ending indexing will still show what's found so far. (fn REGEXP) (defalias 'vlf-occur-other-buffer #[257 "p \n\306\307!\310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\321\322\323!\210\324\302!\210 \203B\325!\210\326\203>\327\202?\330\321\"\210\331\332!\210\203M\307 \210eb\210\333\"\210 \205`\325p\"*\262\207" [buffer-file-name vlf-file-size vlf-batch-size buffer-file-truename buffer-undo-list vlf-tune-enabled derived-mode-p hexl-mode generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 t set-buffer-modified-p nil make-local-variable vlf-tune-copy-profile vlf-tune-batch (:hexl :raw) (:insert :encode) vlf-mode 1 vlf-build-occur] 13 (#$ . 5992)]) #@125 Make whole file occur style index for REGEXP. Prematurely ending indexing will still show what's found so far. (fn REGEXP) (defalias 'vlf-occur #[257 "\304\305\306\"\210\307 \204:\204 \nW\203\310!\210\202Q\n ` \311\312\313!\203+\314\202,\315\316\"\210\317\320!\210eb\210\321\320\322\323\324$\325\"\326$\216\327p\"\210)\266\304\330\306\"\207" [buffer-undo-list vlf-batch-size vlf-start-pos vlf-end-pos run-hook-with-args vlf-before-batch-functions occur buffer-modified-p vlf-occur-other-buffer vlf-tune-batch derived-mode-p hexl-mode (:hexl :raw) (:insert :encode) t vlf-move-to-batch 0 make-byte-code "\305\300\301\"\210\302b\210\303\211\207" vconcat vector [vlf-batch-size vlf-move-to-chunk] 3 vlf-build-occur vlf-after-batch-functions] 14 (#$ . 6836) (byte-code "\301\302\205@\"C\207" [regexp-history read-regexp "List lines matching regexp"] 3)]) #@77 Build occur style index for REGEXP over VLF-BUFFER. (fn REGEXP VLF-BUFFER) (defalias 'vlf-build-occur #[514 "\306\300!\205 \205 \307^\310\307C\311\211C\311\312e\211\312\313\314\315\n!\316Q!\317\320!\312\321 \2030\322\2021\323\324\325\326Q \f#rq\210\310)\327\311\330\331\332 &\333\"\334$\216\204 \335\312\310#\2038 \336\242\337\340 \311\224T\"#\240\210\311\224\262 \311\225\262 @\212\nb\210\341 )\211\342 {eU\204\234\311\262\312\262r q\210\242U\204\321\343c\210`S\211\344\211T\"\345\346\347\350\242!\351\352##\210\345\353\310#\210\262\311\262\266 \204\337\242U\204\347\203\355\312O\202\356\354\355\356\357\360\n\361\362\363\242\"& c\210\312\262\242\262\211\242T\240\210\336 \307[$\364\\\\\351\365\361\362\366\242\"F#\266)\266\202[@\fU\262\204[\203zdb\210\367y\210 \211\242 `W\203_\340 `\"\202j b\210\340  \"S\\\240\210@\370\211yZA_Z\202\333d\371B\370\245^ \372BZ!\206\237b\210\341 \211eU\203\234`S\202\235\211\262]\211b\210\211\341 Z\262\336\242\340\"\311W\203\277\337\202\300\311#\240\210\nb\210\312y\210`U\205\324 Z\262 \373!\266\203\374!\210\211@\375\211B\\\"\266e\262 \262b\210\211 \211\247\203\211@Y\205\376\"\266\202[\377!+\207" [tramp-verbose case-fold-search buffer-file-name vlf-start-pos vlf-file-size buffer-undo-list boundp 1 t 0 nil generate-new-buffer "*VLF-occur " file-name-nondirectory "*" derived-mode-p hexl-mode float-time (:hexl :raw) (:insert :encode) make-progress-reporter "Building index for " "..." make-byte-code "\307\310!\210\303\242\311U\203\312\304!\210\313\314\300\315 \306Z#\207r\304q\210\316c\210eb\210\317\320\321\303\242\302\242\300%\322\323#c\210\307\310!\210\324u\210\325 \210\211\301\300\305\302\242)\266\326\304!\210\313\327\300\315 \306Z#\207" vconcat vector [set-buffer-modified-p nil 0 kill-buffer message "No matches for \"%s\" (%f secs)" float-time "\n" propertize format "%d matches from %d lines for \"%s\" in file: %s" face underline 2 vlf-occur-mode display-buffer "Occur finished for \"%s\" (%f secs)" buffer-file-name default-directory vlf-occur-vlf-file vlf-occur-vlf-buffer vlf-occur-regexp vlf-occur-hexl vlf-occur-lines] 9 re-search-forward + -1 count-lines line-beginning-position line-end-position "\n:" make-overlay overlay-put before-string propertize number-to-string face shadow vlf-match chunk-start chunk-end mouse-face (highlight) line-pos help-echo format "Move to line %d" add-text-properties match "Move to match %d" -10 10 1024 byte-to-position vlf-byte-position vlf-tune-batch vlf-move-to-chunk progress-reporter-do-update progress-reporter-done vlf-end-pos hexl-bits vlf-batch-size] 34 (#$ . 7720)]) #@79 Serialize `vlf-occur' results to FILE which can later be reloaded. (fn FILE) (defalias 'vlf-occur-save #[257 "\211\306\307\310!\311Q!r\211q\210\312\313c\210)\314\n \f F\"\210\212eb\210d\211\315`T\316\"bU\204_`T\317S\320\"\211\203Z\314\321!\322\323\"\322\324\"\322\325\"\326\315 \316\"S\"\257\"\210\266\202$\210)r\211q\210\327 \210)\330!\266\312\207" [buffer-file-name buffer-undo-list vlf-occur-vlf-file vlf-occur-regexp vlf-occur-hexl vlf-occur-lines generate-new-buffer "*VLF-occur-save " file-name-nondirectory "*" t ";; -*- eval: (vlf-occur-load) -*-\n" prin1 next-single-char-property-change vlf-match get-char-property before-string string-to-number get-text-property chunk-start chunk-end line-pos buffer-substring-no-properties save-buffer kill-buffer] 15 (#$ . 10484) (byte-code "\206\302\303\304\211\211\305 !\306P%C\207" [buffer-file-name vlf-occur-vlf-file read-file-name "Save vlf-occur results in: " nil file-name-nondirectory ".vlfo"] 7)]) #@58 Load serialized `vlf-occur' results from current buffer. (defalias 'vlf-occur-load #[0 "eb\210p\306!\211@A@\3078\310\311\312!\313Q!\314!\210\315eb\210\316\211\31711\306 !0\2023\210\320\211\262\203\242db\210\321c\210`S\322\211T\"\323@!`\324\325\326\327\330##\210\324\331\315#\210\326\3328\333A@\334\335\n8\336\337\340\3078\341\342 P& c\210\211b\210\343\n\320\315#\203\235\344\316\224\316\225\327\345\341\346\347 T\211\262\"F#\210\202}\266\202%\350 !\210eb\210\326\346\351\n\f%\327\352#c\266\353\320!\210\354 \210\3358\211\207" [buffer-file-name buffer-undo-list vlf-occur-vlf-file vlf-occur-regexp vlf-occur-hexl vlf-occur-lines read 3 generate-new-buffer "*VLF-occur " file-name-nondirectory "*" switch-to-buffer t 0 (error) nil "\n:" make-overlay number-to-string overlay-put before-string propertize face shadow vlf-match 4 chunk-start chunk-end 2 mouse-face (highlight) line-pos help-echo "Move to line " re-search-forward add-text-properties match format "Move to match %d" kill-buffer "%d matches from %d lines for \"%s\" in file: %s" underline set-buffer-modified-p vlf-occur-mode] 26 (#$ . 11472) nil]) (provide 'vlf-occur)