Current File : //usr/local/share/emacs/27.2/lisp/autorevert.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\300\302!\210\300\303!\210\304\305\306\307\310\311\310\312&\207" [require cl-lib timer filenotify 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 (#$ . 764))
(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 (#$ . 974))
(put 'auto-revert-tail-mode 'permanent-local t)
#@33 Timer used by Auto-Revert Mode.
(defvar auto-revert-timer nil (#$ . 1203))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\317&\210\300\320\302\303\321DD\322\306\307\310\317&\210\300\323\302\303\324DD\325\326\327\306\307\310\330& \210\300\331\302\303\332DD\333\306\307\310\330\334\335& \210\300\336\302\303\337DD\340\326\341\306\307\310\342& \210\300\343\302\303\344DD\345\306\307\310\330&\210\300\346\302\303\347DD\350\306\307\310\342&\210\300\351\302\303\352DD\353\306\307\310\317\354\355& \210\300\356\302\303\357DD\360\306\307\310\361&\210\300\362\302\303\363DD\364\326\365\306\307\310\342& \210\300\366\302\303\367DD\370\306\307\310\317\334\335& \207" [custom-declare-variable auto-revert-interval funcall function #[0 "\300\207" [5] 1] "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 #[514 "\301\"\210\302\300!\205 \205 \303 \207" [auto-revert-timer set-default boundp auto-revert-set-timer] 5 "\n\n(fn VARIABLE VALUE)"] auto-revert-stop-on-user-input #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [t] 1] "When nil, Auto-Revert Mode does not generate any messages.\nWhen non-nil, a message is generated whenever a buffer is reverted." auto-revert-mode-text #[0 "\300\207" [#1=" ARev"] 1 #1#] "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 #[0 "\300\207" [#2=" Tail"] 1 #2#] "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 #[0 "\300\207" [nil] 1] "Functions to run when Auto-Revert Mode is activated." "Auto-Revert Mode Hook" hook global-auto-revert-mode-text #[0 "\300\207" [#3=""] 1 #3#] "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 #[0 "\300\207" [nil] 1] "Hook called when Global Auto-Revert Mode is activated." global-auto-revert-non-file-buffers #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "List of major modes Global Auto-Revert Mode should not check." (repeat sexp) auto-revert-load-hook #[0 "\300\207" [nil] 1] "Functions to run when Auto-Revert Mode is first loaded." "Load Hook" auto-revert-check-vc-info #[0 "\300\207" [nil] 1] "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)
#@276 When non-nil, Global Auto-Revert Mode will not revert this buffer.
This variable can also be a predicate function, in which case
it'll be called with one parameter (the buffer in question), and
it should return non-nil to make Global Auto-Revert Mode not
revert this buffer.
(defvar global-auto-revert-ignore-buffer nil (#$ . 6559))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \210\302\316\304\305\317DD\320\310\311\312\313\321\322\323\324\314\315&
\210\302\325\304\305\326DD\327\310\311\312\330\314\315& \210\302\331\304\305\332DD\333\310\311\312\313\321\334\314\335& \207" [make-variable-buffer-local global-auto-revert-ignore-buffer custom-declare-variable auto-revert-remote-files funcall function #[0 "\300\207" [nil] 1] "If non-nil remote files are also reverted." :group auto-revert :type boolean :version "24.4" auto-revert-use-notify #[0 "\300\207" [t] 1] "If non-nil Auto-Revert Mode uses file notification functions.\nYou should set this variable through Custom." :set #[514 "\300\"\210J?\205) \301 \211\205' \211@r\211q\210\302J\203 \303 \210)A\266\202\202
\262\207" [set-default buffer-list auto-revert-notify-watch-descriptor auto-revert-notify-rm-watch] 5 "\n\n(fn VARIABLE VALUE)"] :initialize custom-initialize-default auto-revert-notify-exclude-dir-regexp #[0 "\301?\205 \302P\207" [auto-revert-remote-files "^\\(?:/\\(?:afs/\\|m\\(?:edia/\\|nt\\)\\|\\(?:ne\\|tmp_mn\\)t/\\)\\)" "\\|^/[^/|:][^/|]+:"] 2] "Regular expression of directories to be excluded from file notifications." regexp auto-revert-avoid-polling #[0 "\300\207" [nil] 1] "Non-nil to avoid polling files when notification is available.\n\nSet this variable to a non-nil value to save power by avoiding\npolling when possible. Files on file-systems that do not support\nchange notifications must match `auto-revert-notify-exclude-dir-regexp'\nfor Auto-Revert to work properly in this case. This typically\nincludes files on network file systems on Unix-like machines,\nwhen those files are modified from another computer.\n\nWhen nil, buffers in Auto-Revert Mode will always be polled for\nchanges to their files on disk every `auto-revert-interval'\nseconds, in addition to using notification for those files." #[514 "\300\"\210\301\302!\205
\302 \207" [set-default fboundp auto-revert-set-timer] 5 "\n\n(fn VARIABLE VALUE)"] "27.1"] 14)
#@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 (#$ . 8934))
#@58 Non-nil if buffer is handled by Global Auto-Revert mode.
(defvar auto-revert--global-mode nil (#$ . 9212))
(make-variable-buffer-local 'auto-revert--global-mode)
#@56 Buffers not checked when user input stopped execution.
(defvar auto-revert-remaining-buffers nil (#$ . 9380))
#@37 Position of last known end of file.
(defvar auto-revert-tail-pos 0 (#$ . 9496))
(defalias 'auto-revert-find-file-function #[0 "\302\301!\210\303!\3048\262\211\207" [buffer-file-name auto-revert-tail-pos make-local-variable file-attributes 7] 3])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook find-file-hook auto-revert-find-file-function after-set-visited-file-name-hook auto-revert-set-visited-file-name] 3)
#@205 A hash table mapping notification descriptors to lists of buffers.
The buffers use that descriptor for auto-revert notifications.
The key is equal to `auto-revert-notify-watch-descriptor' in each
buffer.
(defvar auto-revert--buffers-by-watch-descriptor (make-hash-table :test 'equal) (#$ . 9930))
#@58 The file watch descriptor active for the current buffer.
(defvar auto-revert-notify-watch-descriptor nil (#$ . 10233))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local auto-revert-notify-watch-descriptor put permanent-local t] 4)
#@110 Non-nil when file has been modified on the file system.
This has been reported by a file notification event.
(defvar auto-revert-notify-modified-p nil (#$ . 10497))
(make-variable-buffer-local 'auto-revert-notify-modified-p)
#@25 Use for debug messages.
(defvar auto-revert-debug nil (#$ . 10728))
#@107 Remove BUFFER from `auto-revert-buffer-list'.
BUFFER defaults to `current-buffer'.
(fn &optional BUFFER)
(defalias 'auto-revert-remove-current-buffer #[256 "\301\206 p\"\211\207" [auto-revert-buffer-list delq] 4 (#$ . 10803)])
#@101 Non-nil if Auto-Revert mode is enabled.
Use the command `auto-revert-mode' to change this variable.
(defvar auto-revert-mode nil (#$ . 11042))
(make-variable-buffer-local 'auto-revert-mode)
#@790 Toggle reverting buffer when the file changes (Auto-Revert Mode).
If called interactively, enable Auto-Revert mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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.
When a buffer is reverted, a message is generated. This can be
suppressed by setting `auto-revert-verbose' to nil.
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.
(fn &optional ARG)
(defalias 'auto-revert-mode #[256 "\304 \305=\203
?\202 \306!\307V\211\203+ p >\2045 p B\310\311\312\313\314$\210\2025 \n\2032 \315 \210\312 \210\316 \210\203A \317 \210\313\320\321\203K \322\202L \323\"\210\324\325!\203p \304 \203` \211\304 \232\203p \326\327\330\203k \331\202l \332#\266\210\333 \210\207" [auto-revert-mode auto-revert-buffer-list auto-revert-notify-watch-descriptor auto-revert-tail-mode current-message toggle prefix-numeric-value 0 add-hook kill-buffer-hook auto-revert-remove-current-buffer nil t auto-revert-notify-rm-watch auto-revert-set-timer auto-revert-buffers run-hooks auto-revert-mode-hook auto-revert-mode-on-hook auto-revert-mode-off-hook called-interactively-p any " in current buffer" message "Auto-Revert mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 11239) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar auto-revert-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [auto-revert-mode-map auto-revert-mode-hook variable-documentation put "Hook run after entering or leaving `auto-revert-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode auto-revert-mode auto-revert-mode-text boundp nil] 6)
#@146 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 #[0 "\300\301!\207" [auto-revert-mode 1] 2 (#$ . 13371)])
#@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 (#$ . 13617))
(make-variable-buffer-local 'auto-revert-tail-mode)
#@951 Toggle reverting tail of buffer when the file grows.
If called interactively, enable Auto-Revert-Tail mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
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!
When a buffer is reverted, a message is generated. This can be
suppressed by setting `auto-revert-verbose' to nil.
Use `auto-revert-mode' for changes other than appends!
(fn &optional ARG)
(defalias 'auto-revert-tail-mode #[256 "\304 \305=\203
?\202 \306!\307V\211\203w \204# \300\307!\210\310\311!\210\312 \203; \n\307U\203; \313\314!\204; \300\307!\210\202w \n\307U\203P \315p!\204P \313\316!\203P \317 \210\320\321\322\323\324$\210\325\302!\204j \326\302!\210\327 !\3308\262 \204u \324\303\331!\210)\323\332\333\203\201 \334\202\202 \335\"\210\336\337!\203\246 \304 \203\226 \211\304 \232\203\246 \340\341\342\203\241 \343\202\242 \344#\266\210\345 \210\207" [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 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-buffers add-hook before-save-hook #[0 "\300\301!\207" [auto-revert-tail-mode 0] 2] nil t local-variable-p make-local-variable file-attributes 7 1 run-hooks auto-revert-tail-mode-hook auto-revert-tail-mode-on-hook auto-revert-tail-mode-off-hook called-interactively-p any " in current buffer" message "Auto-Revert-Tail mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 13834) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar auto-revert-tail-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [auto-revert-tail-mode-map auto-revert-tail-mode-hook variable-documentation put "Hook run after entering or leaving `auto-revert-tail-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode auto-revert-tail-mode auto-revert-tail-mode-text boundp nil] 6)
#@165 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 #[0 "\300\301!\207" [auto-revert-tail-mode 1] 2 (#$ . 16578)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable global-auto-revert-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Auto-Revert mode is enabled.\nSee the `global-auto-revert-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-auto-revert-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group auto-revert :type boolean] 12)
#@1051 Toggle Global Auto-Revert Mode.
If called interactively, enable Global Auto-Revert mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
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 value of `global-auto-revert-ignore-buffer'.
When a buffer is reverted, a message is generated. This can be
suppressed by setting `auto-revert-verbose' to nil.
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.
(fn &optional ARG)
(defalias 'global-auto-revert-mode #[256 "\306 \307\300\310=\203 \311\300!?\202 \312!\313V\"\210\314 \210\203K \315 \211\2036 \211@r\211q\210\316 \210)A\266\202\202! \210\317\320\321\"\210 \203E \317\322\321\"\210\323 \210\202 \324\322\321\"\210\324\320\321\"\210\315 \211\203~ \211@r\211q\210\n\203v \325 \203v \f\204v
\204v \326 \210)A\266\202\202W \210\327\330\311\300!\203\213 \331\202\214 \332\"\210\333\334!\203\266 \335\300!\210\306 \203\244 \211\306 \232\203\266 \336\337\340\311\300!\203\261 \341\202\262 \342#\266\210\343 \210\311\300!\207" [global-auto-revert-mode global-auto-revert-non-file-buffers auto-revert--global-mode auto-revert-notify-watch-descriptor auto-revert-mode auto-revert-tail-mode current-message set-default toggle default-value prefix-numeric-value 0 auto-revert-set-timer buffer-list auto-revert--global-add-current-buffer add-hook find-file-hook auto-revert--global-adopt-current-buffer after-change-major-mode-hook auto-revert-buffers remove-hook nil auto-revert-notify-rm-watch 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%s" "en" "dis" force-mode-line-update] 7 (#$ . 17421) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar global-auto-revert-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [global-auto-revert-mode-map global-auto-revert-mode-hook variable-documentation put "Hook run after entering or leaving `global-auto-revert-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-auto-revert-mode global-auto-revert-mode-text boundp nil] 6)
#@72 Set current buffer to be tracked by Global Auto-Revert if appropriate.
(defalias 'auto-revert--global-add-current-buffer #[0 "?\205; \204 \n\205; \306\307\310 \"?\205; \311=?\205; \f
>?\205; \f\2038 \312\f!\205; \fp!?\205; \313\211\207" [auto-revert--global-mode buffer-file-name global-auto-revert-non-file-buffers buffer-stale-function major-mode global-auto-revert-ignore-modes string-prefix-p " " buffer-name buffer-stale--default-function functionp t global-auto-revert-ignore-buffer] 3 (#$ . 20310)])
#@72 Consider tracking current buffer in a running Global Auto-Revert mode.
(defalias 'auto-revert--global-adopt-current-buffer #[0 "\300 \210\301 \207" [auto-revert--global-add-current-buffer auto-revert-set-timer] 1 (#$ . 20831)])
#@92 Update Auto-Revert management of the current buffer.
Called after `set-visited-file-name'.
(defalias 'auto-revert-set-visited-file-name #[0 "\203 \304 \210 \203 \305 \207\n\204 \205 \306 \207" [auto-revert-notify-watch-descriptor global-auto-revert-mode auto-revert-mode auto-revert-tail-mode auto-revert-notify-rm-watch auto-revert--global-adopt-current-buffer auto-revert-set-timer] 1 (#$ . 21065)])
#@41 List of buffers that need to be polled.
(defalias 'auto-revert--polled-buffers #[0 "\203\n \303\304\305 \"\207 \203 \303\306\n\"\207\n\207" [global-auto-revert-mode auto-revert-avoid-polling auto-revert-buffer-list mapcan #[257 "\205 \301\302\"?\205# \301\303\"\204! \301\304\"\204! \301\305\"\205# \211C\207" [auto-revert-avoid-polling buffer-local-value auto-revert-notify-watch-descriptor auto-revert--global-mode auto-revert-mode auto-revert-tail-mode] 4 "\n\n(fn BUFFER)"] buffer-list #[257 "\300\301\"?\205\n \211C\207" [buffer-local-value auto-revert-notify-watch-descriptor] 4 "\n\n(fn BUFFER)"]] 3 (#$ . 21479)])
#@39 Whether periodic polling is required.
(defalias 'auto-revert--need-polling-p #[0 "\203 ?\206 \303\304\305 \"\207 \203 \306\307\n\"?\207\n\207" [global-auto-revert-mode auto-revert-avoid-polling auto-revert-buffer-list cl-some #[257 "\300\301\"?\205 \300\302\"\206 \300\303\"\206 \300\304\"\207" [buffer-local-value auto-revert-notify-watch-descriptor auto-revert--global-mode auto-revert-mode auto-revert-tail-mode] 4 "\n\n(fn BUFFER)"] buffer-list cl-every #[257 "\300\301\"\207" [buffer-local-value auto-revert-notify-watch-descriptor] 4 "\n\n(fn BUFFER)"]] 3 (#$ . 22116)])
#@306 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 #[0 "\302!\203\n \303!\210\304 \205 \305 \211\306#\211\207" [auto-revert-timer auto-revert-interval timerp cancel-timer auto-revert--need-polling-p run-with-timer auto-revert-buffers] 4 (#$ . 22713) nil])
#@65 Disable file notification for current buffer's associated file.
(defalias 'auto-revert-notify-rm-watch #[0 " \2036 \303p\304\"\"\211\203 \305#\210\202 \306\"\210\210\3071+ \310!0\202/ \210\2020 \210\311\312\313\314#\210\266\315\211\211\207" [auto-revert-notify-watch-descriptor auto-revert--buffers-by-watch-descriptor auto-revert-notify-modified-p delq gethash puthash remhash (error) file-notify-rm-watch remove-hook kill-buffer-hook auto-revert-notify-rm-watch t nil] 8 (#$ . 23266)])
#@64 Enable file notification for current buffer's associated file.
(defalias 'auto-revert-notify-add-watch #[0 "\206 \306 \307\n!\"\206 \310 \206 \n!?\205l \203# \307 \n\"\202& \307\n!\311\312\313\314\315\316!\317\"\320\321%\f\"\210\204S \3221P \323 \203I \324\202J \325\326#0\202R \210\327\205j \330\331p\332\f\"B\f#\210\333\334\335\327\330$\262\207" [auto-revert-notify-watch-descriptor auto-revert-notify-exclude-dir-regexp default-directory buffer-file-name auto-revert--buffers-by-watch-descriptor auto-revert-notify-modified-p string-match expand-file-name file-symlink-p maphash make-byte-code 514 "\304!\2056 \305\306 \"!\307\300!\232\2056 \310\306 \"!\n>\204( \311\312\313\306 \"D\"\210\306 \"\314H\315=\2056 \211\207" vconcat vector [file-notify-descriptors cl-struct-file-notify--watch-tags auto-revert-notify-watch-descriptor file-notify-valid-p file-notify--watch-absolute-filename gethash directory-file-name type-of signal wrong-type-argument file-notify--watch 3 auto-revert-notify-handler] 8 "\n\n(fn KEY VALUE)" (error) file-notify-add-watch (change attribute-change) (change) auto-revert-notify-handler nil t puthash gethash add-hook kill-buffer-hook auto-revert-notify-rm-watch] 8 (#$ . 23775)])
#@263 Duration, in seconds, of the Auto-Revert Mode notification lockout.
This is the quiescence after each notification of a file being
changed during which no automatic reverting takes place, to
prevent many updates in rapid succession from overwhelming the
system.
(defconst auto-revert--lockout-interval 2.5 (#$ . 25016))
#@70 Timer awaiting the end of the notification lockout interval, or nil.
(defvar auto-revert--lockout-timer nil (#$ . 25342))
(make-variable-buffer-local 'auto-revert--lockout-timer)
#@62 Handle an EVENT returned from file notification.
(fn EVENT)
(defalias 'auto-revert-notify-handler #[257 "\3061\327 \211@A@\3078\3108\311\"\204 \312\313!\210;\204$ \312\314!\210\315=\2033 ;\2043 \312\316!\210 \203= \317\320\"\210\321=\203x \211\211\205s \211@r\211q\210\n;\203] \322!\322\n!\230\204a \n\204k \323 \210 \204k \324 \210)A\266\202\202D \262\202\323 \211\211\205\321 \211@\325!\203\312 r\211q\210\n;\203\256 \326>\203\236 \322!\322\n!\230\204\270 \315=\203\256 \322!\322\n!\230\204\270 \n\204\311 \327>\203\311 \330
\204\311 \331 \210\332 \333\334$)A\266\202\202y \262\266\2050\207\317\335\"\210\333\207" [auto-revert--buffers-by-watch-descriptor auto-revert-debug buffer-file-name auto-revert-timer auto-revert-notify-modified-p auto-revert--lockout-timer (debug error) 2 3 gethash cl--assertion-failed descriptor (stringp file) renamed (stringp file1) message "auto-revert-notify-handler %S" stopped file-name-nondirectory auto-revert-notify-rm-watch auto-revert-set-timer buffer-live-p (attribute-changed changed created) (created renamed deleted) t auto-revert-handler run-with-timer nil auto-revert--end-lockout "Error: %S" auto-revert--lockout-interval] 13 (#$ . 25527)])
#@106 End the lockout period after a notification.
If the buffer needs to be reverted, do it now.
(fn BUFFER)
(defalias 'auto-revert--end-lockout #[257 "\302!\205 r\211q\210\303 \205 \304 )\207" [auto-revert--lockout-timer auto-revert-notify-modified-p buffer-live-p nil auto-revert-handler] 3 (#$ . 26753)])
#@51 Check if auto-revert is active in current buffer.
(defalias 'auto-revert-active-p #[0 "\206 \206 \n\207" [auto-revert-mode auto-revert-tail-mode auto-revert--global-mode] 1 (#$ . 27067)])
#@95 Revert current buffer, if appropriate.
This is an internal function used by Auto-Revert Mode.
(defalias 'auto-revert-handler #[0 "p\306\307 \203B \n\204 \310 !?\205T \203 \f\205T
\2037 \311 !\205T #\312 !\3138\262\211\262U?\202T $\206= \314\307!\202T %\204L &\205T $\206R \314\307!\306\211C\306\203\313 '\203n \315=\204n \316\317\320 \"\210 \203\211 m\262\321\322\323\324\325\326\n\"\327\"\330\331%\332\307#\210
\203\224 \333!\210\202\253 ( (\3341\245 \335\336\337\340#0\202\251 \210\202\252 \210) \203\313 \203\266 db\210\211\242\211\203\312 \211@\341d\"\210A\266\202\202\270 \210\204\324 )\205\332 \307 *\342 ))\207" [remote-file-name-inhibit-cache buffer-file-name auto-revert-remote-files auto-revert-notify-watch-descriptor auto-revert-notify-modified-p auto-revert-tail-mode nil t file-remote-p file-readable-p file-attributes 7 buffer-stale--default-function fast message "Reverting buffer `%s'." buffer-name walk-windows make-byte-code 257 "\302!\300=\205 \303!dU\205 \301\301\242B\240\207" vconcat vector [window-buffer window-point] 4 "\n\n(fn WINDOW)" no-mini auto-revert-tail-handler (error) revert-buffer ignore-auto dont-ask preserve-modes set-window-point vc-refresh-state auto-revert-tail-pos buffer-stale-function auto-revert-mode global-auto-revert-non-file-buffers auto-revert-verbose buffer-read-only auto-revert-check-vc-info revert-buffer-in-progress-p] 13 (#$ . 27265)])
#@13
(fn SIZE)
(defalias 'auto-revert-tail-handler #[257 "\303 \304\305\nU\2049 \306\307!\210\310 \210\214~\210\212db\210\311\305\nW\205' \n$\210*\306\312!\210\310 \210\313!\210*\266\314 \207" [buffer-file-name inhibit-read-only auto-revert-tail-pos 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] 9 (#$ . 28698)])
#@939 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
`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 #[0 "\306 \307\310\311\312\313!\314\"\315$\216\316 \317\211\320\317\321\322\"\"\262\211\2035 \211@\211>\203. \211B\262A\266\202\202 \210\211\203O \211@\211>\204H \211B\262A\266\202\2027 \210\211\244\237\262\203\256 \203c \323 \204\256 @\324!\204r \325!\210\202\246 r\211q\210\n\204\207 \204\207 \211\f>\203\207 \325 \210\326 \203\245
\203\242 \204\242 \204\237 \203\242 \327 \210\330 \210)\210A\262\202V \331 ?\205\306 \332 !\203\302 \333 !\210\317\211 \266\203)\207" [auto-revert-remaining-buffers auto-revert-stop-on-user-input auto-revert-mode auto-revert-tail-mode auto-revert-buffer-list auto-revert-use-notify match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 auto-revert--polled-buffers nil delq mapcar #[257 "\301!\205 r\211q\210\302!\203 \302\303\304#\205 \211)\207" [default-directory buffer-live-p file-remote-p nil t] 5 "\n\n(fn BUF)"] input-pending-p buffer-live-p auto-revert-remove-current-buffer auto-revert-active-p auto-revert-notify-add-watch auto-revert-handler auto-revert--need-polling-p timerp cancel-timer auto-revert-notify-watch-descriptor buffer-file-name buffer-auto-revert-by-notification auto-revert-timer] 9 (#$ . 29141)])
(byte-code "\300\301!\210\302\303!\207" [provide autorevert run-hooks auto-revert-load-hook] 2)
Mini Shell