;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:36:44 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/autorevert.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`autorevert.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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.\n\nAuto-Revert Mode can be activated for individual buffer.\nGlobal Auto-Revert Mode applies to all buffers." :group files convenience] 8) #@122 *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 (#$ . -933)) #@171 When on, buffers are automatically reverted when files on disk change. Set this variable using \[customize] only. Otherwise, use the command `global-auto-revert-mode'. (custom-declare-variable 'global-auto-revert-mode 'nil '(#$ . 1103) :group 'auto-revert :initialize 'custom-initialize-default :set '(lambda (symbol value) (global-auto-revert-mode (or value 0))) :type 'boolean :require 'autorevert) #@57 Time, in seconds, between Auto-Revert Mode file checks. (custom-declare-variable 'auto-revert-interval '5 '(#$ . 1512) :group 'auto-revert :type 'integer) #@67 When non-nil Auto-Revert Mode stops checking files on user input. (custom-declare-variable 'auto-revert-stop-on-user-input 't '(#$ . 1673) :group 'auto-revert :type 'boolean) #@171 When nil, Auto-Revert Mode will not generate any messages. Currently, messages are generated when the mode is activated or deactivated, and whenever a file is reverted. (custom-declare-variable 'auto-revert-verbose 't '(#$ . 1855) :group 'auto-revert :type 'boolean) #@141 String to display in the mode line when Auto-Revert Mode is active. (When the string is not empty, make sure that it has a leading space.) (custom-declare-variable 'auto-revert-mode-text '" ARev" '(#$ . 2130) :tag "Auto Revert Mode Text" :group 'auto-revert :type 'string) #@54 Functions to run when Auto-Revert Mode is activated. (custom-declare-variable 'auto-revert-mode-hook 'nil '(#$ . 2410) :tag "Auto Revert Mode Hook" :group 'auto-revert :type 'hook) #@223 String to display when Global Auto-Revert Mode is active. The default is nothing since when this mode is active this text doesn't vary over time, or between buffers. Hence mode line text would only waste precious space. (custom-declare-variable 'global-auto-revert-mode-text '"" '(#$ . 2598) :group 'auto-revert :type 'string) #@56 Hook called when Global Auto-Revert Mode is activated. (custom-declare-variable 'global-auto-revert-mode-hook 'nil '(#$ . 2933) :group 'auto-revert :type 'hook) #@195 *When nil only file buffers are reverted by Global Auto-Revert Mode. When non-nil, both file buffers and buffers with a custom `revert-buffer-function' are reverted by Global Auto-Revert Mode. (custom-declare-variable 'global-auto-revert-non-file-buffers 'nil '(#$ . -3101) :group 'auto-revert :type 'boolean) #@63 List of major modes Global Auto-Revert Mode should not check. (custom-declare-variable 'global-auto-revert-ignore-modes ''nil '(#$ . 3418) :group 'auto-revert :type '(repeat sexp)) #@57 Functions to run when Auto-Revert Mode is first loaded. (custom-declare-variable 'auto-revert-load-hook 'nil '(#$ . 3605) :tag "Load Hook" :group 'auto-revert :type 'hook) #@130 *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 (#$ . -3784)) (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 (#$ . 4042)) #@33 Timer used by Auto-Revert Mode. (defvar auto-revert-timer nil (#$ . 4320)) #@56 Buffers not checked when user input stopped execution. (defvar auto-revert-remaining-buffers nil (#$ . 4401)) #@246 Toggle reverting buffer when file on disk changes. With arg, turn Auto Revert mode on if and only if arg is positive. This is a minor mode that affects only the current buffer. Use `global-auto-revert-mode' to automatically revert all buffers. (defalias 'auto-revert-mode #[(&optional arg) "\304\301!\210\305\301\306\307#\210\204 ?\202\310!\311V\n\203.t\203.\312\313 \203+\314\202,\315\"\210 \203?p >\204Dp B\202D\316p \"\317 \210 \203R\320 \210\321\322!\210 \207" [arg auto-revert-mode auto-revert-verbose auto-revert-buffer-list make-local-variable put permanent-local t prefix-numeric-value 0 message "Auto-Revert Mode is now %s." "on" "off" delq auto-revert-set-timer auto-revert-buffers run-hooks auto-revert-mode-hook] 4 (#$ . 4518) "P"]) #@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 (#$ . 5288)]) #@223 Revert any buffer when file on disk change. With arg, turn Auto Revert mode on globally if and only if arg is positive. This is a minor mode that affects all buffers. Use `auto-revert-mode' to revert a particular buffer. (defalias 'global-auto-revert-mode #[(&optional arg) "\204 ?\202\303!\304V\n\203$t\203$\305\306 \203!\307\202\"\310\"\210\311 \210 \2051\312 \210\313\314!\207" [arg global-auto-revert-mode auto-revert-verbose prefix-numeric-value 0 message "Global Auto-Revert Mode is now %s." "on" "off" auto-revert-set-timer auto-revert-buffers run-hooks global-auto-revert-mode-hook] 3 (#$ . 5530) "P"]) #@30 Restart or cancel the timer. (defalias 'auto-revert-set-timer #[nil "\304!\203\n\305!\210 \204\n\203\306 \211\307#\211\207\310\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 nil] 4 (#$ . 6160)]) #@911 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' 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 "\203 \306 \202\n \307\211 \307\211\2032@\211\f>\203) BA\211\204*\f\307\211\203V@\211 >\204M\nBA\211\204=*\n \244\237\211\203\361\203j\310 \204\361\f@\311!\203\343\212q\210\204\214 >\203\214\312 \"\204\242\203\337\204\337>\204\337\313 \204\337\314 \203\273\315\314 !\203\337\316!?\202\313\203\337\203\311\204\316\203\337\203\331\317\320\"\210\321\322\211\211#\210)\202\351\312 \")\fA\211\204`\f?\205 ?\205\323!\210\307\211+\207" [global-auto-revert-mode auto-revert-buffer-list new remaining bufs auto-revert-remaining-buffers buffer-list nil input-pending-p buffer-name delq buffer-modified-p buffer-file-name file-readable-p verify-visited-file-modtime message "Reverting buffer `%s'." revert-buffer t cancel-timer buf #1=#:--dolist-temp--97269 #2=#:--dolist-temp--97270 auto-revert-stop-on-user-input auto-revert-mode global-auto-revert-ignore-buffer major-mode global-auto-revert-ignore-modes revert-buffer-function global-auto-revert-non-file-buffers auto-revert-verbose auto-revert-timer] 5 (#$ . 6476)]) (byte-code "\302\236\204\n\303B\301\236\204\304B\305\306!\210\307\310!\210 \203$\301\311!\210\302\207" [minor-mode-alist global-auto-revert-mode auto-revert-mode (auto-revert-mode auto-revert-mode-text) (global-auto-revert-mode global-auto-revert-mode-text) provide autorevert run-hooks auto-revert-load-hook 1] 2)