| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/autorevert.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:11 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/autorevert.el ;;; in Emacs version 24.3.1 ;;; 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\306\310&\207" [require timer custom-declare-group auto-revert nil "Revert individual buffers when files on disk change.\nAuto-Revert mode enables auto-revert in individual buffers.\nGlobal Auto-Revert mode does so in all buffers." :group files convenience] 8) #@120 Non-nil when Auto-Revert Mode is active. Never set this variable directly, use the command `auto-revert-mode' instead. (defvar auto-revert-mode nil (#$ . 865)) (put 'auto-revert-mode 'permanent-local t) #@130 Non-nil when Auto-Revert Tail Mode is active. Never set this variable directly, use the command `auto-revert-tail-mode' instead. (defvar auto-revert-tail-mode nil (#$ . 1075)) (put 'auto-revert-tail-mode 'permanent-local t) #@33 Timer used by Auto-Revert Mode. (defvar auto-revert-timer nil (#$ . 1305)) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\306\315&\210\300\316\313\317\304\305\306\315&\210\300\320\321\322\323\324\304\305\306\325& \210\300\326\327\330\304\305\306\325\331\332& \210\300\333\334\335\323\336\304\305\306\337& \210\300\340\341\342\304\305\306\325&\210\300\343\334\344\304\305\306\337&\210\300\345\334\346\304\305\306\315\347\350& \210\300\351\334\352\304\305\306\353&\210\300\354\334\355\323\356\304\305\306\337& \210\300\357\334\360\304\305\306\315\331\332& \207" [custom-declare-variable auto-revert-interval 5 "Time, in seconds, between Auto-Revert Mode file checks.\nThe value may be an integer or floating point number.\n\nIf a timer is already active, there are two ways to make sure\nthat the new value will take effect immediately. You can set\nthis variable through Custom or you can call the command\n`auto-revert-set-timer' after setting the variable. Otherwise,\nthe new value will take effect the first time Auto Revert Mode\ncalls `auto-revert-set-timer' for internal reasons or in your\nnext editing session." :group auto-revert :type number :set #[(variable value) "\303 \"\210\304\302!\205 \n\205 \305 \207" [variable value auto-revert-timer set-default boundp auto-revert-set-timer] 3] auto-revert-stop-on-user-input t "When non-nil, user input temporarily interrupts Auto-Revert Mode.\nWith this setting, Auto-Revert Mode checks for user input after\nhandling each buffer and does not process any further buffers\n(until the next run of the timer) if user input is available.\nWhen nil, Auto-Revert Mode checks files and reverts buffers,\nwith quitting disabled, without paying attention to user input.\nThus, with this setting, Emacs might be non-responsive at times." boolean auto-revert-verbose "When nil, Auto-Revert Mode does not generate any messages.\nWhen non-nil, a message is generated whenever a file is reverted." auto-revert-mode-text " ARev" "String to display in the mode line when Auto-Revert Mode is active.\n\n(When the string is not empty, make sure that it has a leading space.)" :tag "Auto Revert Mode Text" string auto-revert-tail-mode-text " Tail" "String to display in the mode line when Auto-Revert Tail Mode is active.\n\n(When the string is not empty, make sure that it has a leading space.)" :version "22.1" auto-revert-mode-hook nil "Functions to run when Auto-Revert Mode is activated." "Auto Revert Mode Hook" hook global-auto-revert-mode-text "" "String to display when Global Auto-Revert Mode is active.\n\nThe default is nothing since when this mode is active this text doesn't\nvary over time, or between buffers. Hence mode line text\nwould only waste precious space." global-auto-revert-mode-hook "Hook called when Global Auto-Revert Mode is activated." global-auto-revert-non-file-buffers "When nil, Global Auto-Revert mode operates only on file-visiting buffers.\n\nWhen non-nil, both file buffers and buffers with a custom\n`revert-buffer-function' and a `buffer-stale-function' are\nreverted by Global Auto-Revert mode. These include the Buffer\nList buffer displayed by `buffer-menu', and Dired buffers showing\ncomplete local directories. The Buffer List buffer reverts every\n`auto-revert-interval' seconds; Dired buffers when the file list of\nthe main directory changes. Dired buffers do not auto-revert as\na result of changes in subdirectories, or in the contents, size,\nmodes, etc., of files. You may still sometimes want to revert\nthem manually.\n\nUse this option with care since it could lead to excessive auto-reverts.\nFor more information, see Info node `(emacs)Autorevert'." :link (info-link "(emacs)Autorevert") global-auto-revert-ignore-modes "List of major modes Global Auto-Revert Mode should not check." (repeat sexp) auto-revert-load-hook "Functions to run when Auto-Revert Mode is first loaded." "Load Hook" auto-revert-check-vc-info "If non-nil Auto Revert Mode reliably updates version control info.\nAuto Revert Mode updates version control info whenever the buffer\nneeds reverting, regardless of the value of this variable.\nHowever, the version control state can change without changes to\nthe work file. If the change is made from the current Emacs\nsession, all info is updated. But if, for instance, a new\nversion is checked in from outside the current Emacs session, the\nversion control number in the mode line, as well as other version\ncontrol related information, may not be properly updated. If you\nare worried about this, set this variable to a non-nil value.\n\nThis currently works by automatically updating the version\ncontrol info every `auto-revert-interval' seconds. Nevertheless,\nit should not cause excessive CPU usage on a reasonably fast\nmachine, if it does not apply to too many version controlled\nbuffers. CPU usage depends on the version control system."] 10) #@128 When non-nil, Global Auto-Revert Mode will not revert this buffer. This variable becomes buffer local when set in any fashion. (defvar global-auto-revert-ignore-buffer nil (#$ . 6242)) (make-variable-buffer-local 'global-auto-revert-ignore-buffer) #@224 List of buffers in Auto-Revert Mode. Note that only Auto-Revert Mode, never Global Auto-Revert Mode, adds buffers to this list. The timer function `auto-revert-buffers' is responsible for purging the list of old buffers. (defvar auto-revert-buffer-list nil (#$ . 6497)) #@56 Buffers not checked when user input stopped execution. (defvar auto-revert-remaining-buffers nil (#$ . 6775)) #@37 Position of last known end of file. (defvar auto-revert-tail-pos 0 (#$ . 6891)) (add-hook 'find-file-hook #[nil "\302\301!\210\303\304!8\211\207" [buffer-file-name auto-revert-tail-pos make-local-variable 7 file-attributes] 3]) #@101 Non-nil if Auto-Revert mode is enabled. Use the command `auto-revert-mode' to change this variable. (defvar auto-revert-mode nil (#$ . 7128)) (make-variable-buffer-local 'auto-revert-mode) #@571 Toggle reverting buffer when the file changes (Auto Revert mode). With a prefix argument ARG, enable Auto Revert mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. Auto Revert mode is a minor mode that affects only the current buffer. When enabled, it reverts the buffer when the file on disk changes. Use `global-auto-revert-mode' to automatically revert all buffers. Use `auto-revert-tail-mode' if you know that the file will only grow without being changed in the part that is already in the buffer. (defalias 'auto-revert-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\203% p >\204* p B\202* \311p \"\312 \210\n\2036 \313 \210\314\315\316\n\203@ \317\202A \320\"\210\321\322!\203b \305 \203U \305 \232\203b \323\324\n\203_ \325\202` \326\"\210)\327 \210\n\207" [#1=#:last-message arg auto-revert-mode auto-revert-buffer-list auto-revert-tail-mode current-message toggle prefix-numeric-value 0 delq auto-revert-set-timer auto-revert-buffers nil run-hooks auto-revert-mode-hook auto-revert-mode-on-hook auto-revert-mode-off-hook called-interactively-p any message "Auto-Revert mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 7324) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \305\211%\207" [auto-revert-mode-map add-minor-mode auto-revert-mode auto-revert-mode-text boundp nil] 6) #@141 Turn on Auto-Revert Mode. This function is designed to be added to hooks, for example: (add-hook 'c-mode-hook 'turn-on-auto-revert-mode) (defalias 'turn-on-auto-revert-mode #[nil "\300\301!\207" [auto-revert-mode 1] 2 (#$ . 8753)]) #@111 Non-nil if Auto-Revert-Tail mode is enabled. Use the command `auto-revert-tail-mode' to change this variable. (defvar auto-revert-tail-mode nil (#$ . 8995)) (make-variable-buffer-local 'auto-revert-tail-mode) #@732 Toggle reverting tail of buffer when the file grows. With a prefix argument ARG, enable Auto-Revert Tail mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. When Auto Revert Tail mode is enabled, the tail of the file is constantly followed, as with the shell command `tail -f'. This means that whenever the file grows on disk (presumably because some background process is appending to it from time to time), this is reflected in the current buffer. You can edit the buffer and turn this mode off and on again as you please. But make sure the background process has stopped writing before you save the file! Use `auto-revert-mode' for changes other than appends! (defalias 'auto-revert-tail-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203u \204$ \302\311!\210\312\313!\210\314 \203< \315\f!\203< \316\317!\204< \302\311!\210\202u \315\f!\203Q \320p!\204Q \316\321!\203Q \322 \210\323\324\325\326\327$\210\330\304!\204h \331\304!\210\332\333 !8 \204s \327\305\334!\210)\326\335\336\n\203 \337\202\200 \340\"\210\341\342!\203\241 \306 \203\224 \306 \232\203\241 \343\344\n\203\236 \345\202\237 \346\"\210)\347 \210\n\207" [#1=#:last-message arg auto-revert-tail-mode buffer-file-name auto-revert-tail-pos auto-revert-mode current-message toggle prefix-numeric-value 0 error "This buffer is not visiting a file" buffer-modified-p zerop y-or-n-p "Buffer is modified, so tail offset may be wrong. Proceed? " verify-visited-file-modtime "File changed on disk, content may be missing. Perform a full revert? " auto-revert-handler add-hook before-save-hook #[nil "\300\301!\207" [auto-revert-tail-mode 0] 2] nil t local-variable-p make-local-variable 7 file-attributes 1 run-hooks auto-revert-tail-mode-hook auto-revert-tail-mode-on-hook auto-revert-tail-mode-off-hook called-interactively-p any message "Auto-Revert-Tail mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 9211) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \305\211%\207" [auto-revert-tail-mode-map add-minor-mode auto-revert-tail-mode auto-revert-tail-mode-text boundp nil] 6) #@160 Turn on Auto-Revert Tail mode. This function is designed to be added to hooks, for example: (add-hook 'my-logfile-mode-hook 'turn-on-auto-revert-tail-mode) (defalias 'turn-on-auto-revert-tail-mode #[nil "\300\301!\207" [auto-revert-tail-mode 1] 2 (#$ . 11398)]) #@290 Non-nil if Global-Auto-Revert mode is enabled. See the command `global-auto-revert-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-auto-revert-mode'. (custom-declare-variable 'global-auto-revert-mode nil '(#$ . 11670) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'auto-revert :type 'boolean) #@831 Toggle Global Auto Revert mode. With a prefix argument ARG, enable Global Auto Revert mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. Global Auto Revert mode is a global minor mode that reverts any buffer associated with a file when the file changes on disk. Use `auto-revert-mode' to revert a particular buffer. If `global-auto-revert-non-file-buffers' is non-nil, this mode may also revert some non-file buffers, as described in the documentation of that variable. It ignores buffers with modes matching `global-auto-revert-ignore-modes', and buffers with a non-nil vale of `global-auto-revert-ignore-buffer'. This function calls the hook `global-auto-revert-mode-hook'. It displays the text that `global-auto-revert-mode-text' specifies in the mode line. (defalias 'global-auto-revert-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\307 \210\n\203 \310 \210\311\312\n\203( \313\202) \314\"\210\315\316!\203N \317\302!\210\303 \203A \303 \232\203N \320\321\n\203K \322\202L \323\"\210)\324 \210\n\207" [#1=#:last-message arg global-auto-revert-mode current-message toggle prefix-numeric-value 0 auto-revert-set-timer auto-revert-buffers run-hooks global-auto-revert-mode-hook global-auto-revert-mode-on-hook global-auto-revert-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Auto-Revert mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 12137) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \305\211%\207" [global-auto-revert-mode-map add-minor-mode global-auto-revert-mode global-auto-revert-mode-text boundp nil] 6) #@305 Restart or cancel the timer used by Auto-Revert Mode. If such a timer is active, cancel it. Start a new timer if Global Auto-Revert Mode is active or if Auto-Revert Mode is active in some buffer. Restarting the timer ensures that Auto-Revert Mode will use an up-to-date value of `auto-revert-interval' (defalias 'auto-revert-set-timer #[nil "\304!\203\n \305!\210 \204 \n\205 \306 \211\307#\211\207" [auto-revert-timer global-auto-revert-mode auto-revert-buffer-list auto-revert-interval timerp cancel-timer run-with-timer auto-revert-buffers] 4 (#$ . 13827) nil]) #@65 Check if auto-revert is active (in current buffer or globally). (defalias 'auto-revert-active-p #[nil "\206 \206 \n\205 ?\205 \f >?\207" [auto-revert-mode auto-revert-tail-mode global-auto-revert-mode global-auto-revert-ignore-buffer major-mode global-auto-revert-ignore-modes] 2 (#$ . 14405)]) #@95 Revert current buffer, if appropriate. This is an internal function used by Auto-Revert Mode. (defalias 'auto-revert-handler #[nil "\204\n \306 ?\205\332 p\307 \203? \203, \310 \311 !\205( \312\313 !8\211U?)\202< \314 !\204? \311 !\203? \315 !?\206_ \204I \205_ !\205_ \316\317!\205_ \320!\205_ \310! \"\307\211 # $\"\203\315 %\203~ \"\321=\204~ \322\323\324 \"\210 \203\213 m#\325\326\327\310#\210\203\226 \330\n!\210\202\241 & &\331\332\333\334#\210) \203\315 #\203\255 db\210$\307 '\211 (\203\314 (@'\335'd\"\210(A\211(\204\270 *\"\204\327 )\205\331 \336 -\207" [auto-revert-tail-mode buffer size buffer-file-name remote-file-name-inhibit-cache auto-revert-tail-pos buffer-modified-p nil t file-readable-p 7 file-attributes file-remote-p verify-visited-file-modtime boundp buffer-stale-function functionp fast message "Reverting buffer `%s'." buffer-name walk-windows #[(window) "\303! =\205 \304!dU\205 \nB\211\207" [window buffer eoblist window-buffer window-point] 2] no-mini auto-revert-tail-handler revert-buffer ignore-auto dont-ask preserve-modes set-window-point vc-find-file-hook auto-revert-mode global-auto-revert-non-file-buffers revert-buffer-function revert eob eoblist auto-revert-verbose buffer-read-only window --dolist-tail-- auto-revert-check-vc-info] 5 (#$ . 14713)]) (defalias 'auto-revert-tail-handler #[(size) "\306 \307\310\f U\2048 \311\312!\210\313 \210\214~\210\212db\210\314 \310\f W\205' \f $\210*\311\315!\210\313 \210 \316 !\210,\317 \207" [buffer-file-name file inhibit-read-only modified auto-revert-tail-pos size buffer-modified-p t nil run-hooks before-revert-hook undo-boundary insert-file-contents after-revert-hook restore-buffer-modified-p set-visited-file-modtime] 5]) #@941 Revert buffers as specified by Auto-Revert and Global Auto-Revert Mode. Should `global-auto-revert-mode' be active all file buffers are checked. Should `auto-revert-mode' be active in some buffers, those buffers are checked. Non-file buffers that have a custom `revert-buffer-function' and a `buffer-stale-function' are reverted either when Auto-Revert Mode is active in that buffer, or when the variable `global-auto-revert-non-file-buffers' is non-nil and Global Auto-Revert Mode is active. This function stops whenever there is user input. The buffers not checked are stored in the variable `auto-revert-remaining-buffers'. To avoid starvation, the buffers in `auto-revert-remaining-buffers' are checked first the next time this function is called. This function is also responsible for removing buffers no longer in Auto-Revert mode from `auto-revert-buffer-list', and for canceling the timer when no buffers need to be checked. (defalias 'auto-revert-buffers #[nil "\306 \307\216 \203 \310 \202 \n\311\211 \311 \211 \2038 @\211 >\203/ \fBA\211\204 * \311 \211 \203\\ @\211\f>\204S BA\211\204C * \f\244\237\211\203\261 \203p \312 \204\261 @ \313!\203\243 rq\210\204\227 \204\227 \n>\203\227 \314\n\"\315 \203\237 \316 \210)\202\251 \314\n\") A\211\204f ?\205\307 \n?\205\307 \317!\210\311\211-\207" [save-match-data-internal global-auto-revert-mode auto-revert-buffer-list new remaining bufs match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) buffer-list nil input-pending-p buffer-live-p delq auto-revert-active-p auto-revert-handler cancel-timer auto-revert-remaining-buffers buf --dolist-tail-- auto-revert-stop-on-user-input auto-revert-mode auto-revert-tail-mode auto-revert-timer] 4 (#$ . 16474)]) (byte-code "\300\301!\210\302\303!\207" [provide autorevert run-hooks auto-revert-load-hook] 2)