;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) #@63 Contains timer if vlf buffer is set to continuously recenter. (defvar vlf-follow-timer nil (#$ . 423)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local vlf-follow-timer put permanent-local t] 4) #@69 Recenter chunk around current point in VLF-BUFFER. (fn VLF-BUFFER) (defalias 'vlf-recenter #[257 "\205[p=\205[\304e!\204\304d!\205[ \305`!\\\n\306\245\307 \203?\305d! \\\310 Z^\\]\"\266\311 Z!b\202Y\312Z!\210\211W\205Y\211 ZW\205Y\311 Z!b\266\202\207" [vlf-follow-timer vlf-start-pos vlf-batch-size vlf-file-size pos-visible-in-window-p position-bytes 2 buffer-modified-p vlf-move-to-chunk byte-to-position vlf-move-to-batch] 9 (#$ . 651)]) #@27 Stop continuous recenter. (defalias 'vlf-stop-follow #[0 "\205 \301!\210\302\211\207" [vlf-follow-timer cancel-timer nil] 2 (#$ . 1122)]) #@81 Continuously recenter chunk around point every INTERVAL seconds. (fn INTERVAL) (defalias 'vlf-start-follow #[257 "\301\211\302p$\303\304\305\306\307$\207" [vlf-follow-timer run-with-idle-timer vlf-recenter add-hook kill-buffer-hook vlf-stop-follow nil t] 6 (#$ . 1270)]) #@56 Toggle continuous chunk recenter around current point. (defalias 'vlf-toggle-follow #[0 "\205 \203\302 \210\303\304!\207\305\306\307\310\"!\207" [vlf-mode vlf-follow-timer vlf-stop-follow message "Following stopped" vlf-start-follow read-number "Number of seconds: " 1] 4 (#$ . 1550) nil]) (provide 'vlf-follow)