2001-07-16 12:23:00 +00:00
|
|
|
;;; autorevert.el --- revert buffers when files on disk change
|
1997-07-04 05:07:07 +00:00
|
|
|
|
2013-01-01 09:11:05 +00:00
|
|
|
;; Copyright (C) 1997-1999, 2001-2013 Free Software Foundation, Inc.
|
1997-07-04 05:07:07 +00:00
|
|
|
|
1999-12-01 16:22:27 +00:00
|
|
|
;; Author: Anders Lindgren <andersl@andersl.com>
|
1998-05-26 09:23:23 +00:00
|
|
|
;; Keywords: convenience
|
1999-12-01 16:22:27 +00:00
|
|
|
;; Created: 1997-06-01
|
|
|
|
;; Date: 1999-11-30
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1997-07-04 05:07:07 +00:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
;; (at your option) any later version.
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 08:06:51 +00:00
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
;; Introduction:
|
|
|
|
;;
|
|
|
|
;; Whenever a file that Emacs is editing has been changed by another
|
1998-03-25 19:13:11 +00:00
|
|
|
;; program the user normally has to execute the command `revert-buffer'
|
1997-07-04 05:07:07 +00:00
|
|
|
;; to load the new content of the file into Emacs.
|
|
|
|
;;
|
|
|
|
;; This package contains two minor modes: Global Auto-Revert Mode and
|
1998-03-25 19:13:11 +00:00
|
|
|
;; Auto-Revert Mode. Both modes automatically revert buffers
|
2004-07-17 20:55:57 +00:00
|
|
|
;; whenever the corresponding files have been changed on disk and the
|
|
|
|
;; buffer contains no unsaved changes.
|
1997-07-04 05:07:07 +00:00
|
|
|
;;
|
2004-05-30 21:46:34 +00:00
|
|
|
;; Auto-Revert Mode can be activated for individual buffers. Global
|
|
|
|
;; Auto-Revert Mode applies to all file buffers. (If the user option
|
|
|
|
;; `global-auto-revert-non-file-buffers' is non-nil, it also applies
|
|
|
|
;; to some non-file buffers. This option is disabled by default.)
|
|
|
|
;; Since checking a remote file is too slow, these modes do not check
|
|
|
|
;; or revert remote files.
|
1997-07-04 05:07:07 +00:00
|
|
|
;;
|
1998-03-25 19:13:11 +00:00
|
|
|
;; Both modes operate by checking the time stamp of all files at
|
|
|
|
;; intervals of `auto-revert-interval'. The default is every five
|
|
|
|
;; seconds. The check is aborted whenever the user actually uses
|
|
|
|
;; Emacs. You should never even notice that this package is active
|
|
|
|
;; (except that your buffers will be reverted, of course).
|
2004-04-05 01:09:37 +00:00
|
|
|
;;
|
|
|
|
;; After reverting a file buffer, Auto Revert Mode normally puts point
|
|
|
|
;; at the same position that a regular manual revert would. However,
|
|
|
|
;; there is one exception to this rule. If point is at the end of the
|
|
|
|
;; buffer before reverting, it stays at the end. Similarly if point
|
|
|
|
;; is displayed at the end of a file buffer in any window, it will stay
|
|
|
|
;; at the end of the buffer in that window, even if the window is not
|
|
|
|
;; selected. This way, you can use Auto Revert Mode to `tail' a file.
|
|
|
|
;; Just put point at the end of the buffer and it will stay there.
|
|
|
|
;; These rules apply to file buffers. For non-file buffers, the
|
|
|
|
;; behavior may be mode dependent.
|
2004-07-17 20:55:57 +00:00
|
|
|
;;
|
|
|
|
;; While you can use Auto Revert Mode to tail a file, this package
|
|
|
|
;; contains a third minor mode, Auto Revert Tail Mode, which does so
|
|
|
|
;; more efficiently, as long as you are sure that the file will only
|
|
|
|
;; change by growing at the end. It only appends the new output,
|
|
|
|
;; instead of reverting the entire buffer. It does so even if the
|
|
|
|
;; buffer contains unsaved changes. (Because they will not be lost.)
|
2009-08-02 17:21:16 +00:00
|
|
|
;; Auto Revert Tail Mode works also for remote files.
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
;; Usage:
|
|
|
|
;;
|
2004-07-14 21:06:39 +00:00
|
|
|
;; Go to the appropriate buffer and press either of:
|
1997-07-04 05:07:07 +00:00
|
|
|
;; M-x auto-revert-mode RET
|
2004-07-14 21:06:39 +00:00
|
|
|
;; M-x auto-revert-tail-mode RET
|
1997-07-04 05:07:07 +00:00
|
|
|
;;
|
|
|
|
;; To activate Global Auto-Revert Mode, press:
|
|
|
|
;; M-x global-auto-revert-mode RET
|
|
|
|
;;
|
1998-03-25 19:13:11 +00:00
|
|
|
;; To activate Global Auto-Revert Mode every time Emacs is started
|
2011-11-20 02:29:42 +00:00
|
|
|
;; customize the option `global-auto-revert-mode' or the following
|
1998-03-25 19:13:11 +00:00
|
|
|
;; line could be added to your ~/.emacs:
|
1997-07-04 05:07:07 +00:00
|
|
|
;; (global-auto-revert-mode 1)
|
|
|
|
;;
|
|
|
|
;; The function `turn-on-auto-revert-mode' could be added to any major
|
|
|
|
;; mode hook to activate Auto-Revert Mode for all buffers in that
|
|
|
|
;; mode. For example, the following line will activate Auto-Revert
|
|
|
|
;; Mode in all C mode buffers:
|
|
|
|
;;
|
|
|
|
;; (add-hook 'c-mode-hook 'turn-on-auto-revert-mode)
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
;; Dependencies:
|
|
|
|
|
|
|
|
(require 'timer)
|
2004-02-16 13:47:39 +00:00
|
|
|
|
1997-07-04 05:07:07 +00:00
|
|
|
;; Custom Group:
|
|
|
|
;;
|
|
|
|
;; The two modes will be placed next to Auto Save Mode under the
|
|
|
|
;; Files group under Emacs.
|
|
|
|
|
|
|
|
(defgroup auto-revert nil
|
1998-03-25 19:13:11 +00:00
|
|
|
"Revert individual buffers when files on disk change.
|
2012-04-22 13:58:00 +00:00
|
|
|
Auto-Revert mode enables auto-revert in individual buffers.
|
|
|
|
Global Auto-Revert mode does so in all buffers."
|
1998-05-26 09:23:23 +00:00
|
|
|
:group 'files
|
|
|
|
:group 'convenience)
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
|
|
|
|
;; Variables:
|
|
|
|
|
2004-07-14 21:06:39 +00:00
|
|
|
;;; What's this?: ;; Autoload for the benefit of `make-mode-line-mouse-sensitive'.
|
|
|
|
;;; What's this?: ;;;###autoload
|
1997-07-04 05:07:07 +00:00
|
|
|
(defvar auto-revert-mode nil
|
2011-02-20 00:09:28 +00:00
|
|
|
"Non-nil when Auto-Revert Mode is active.
|
2002-04-08 23:05:26 +00:00
|
|
|
Never set this variable directly, use the command `auto-revert-mode' instead.")
|
|
|
|
(put 'auto-revert-mode 'permanent-local t)
|
1997-07-04 05:07:07 +00:00
|
|
|
|
2004-07-14 21:06:39 +00:00
|
|
|
(defvar auto-revert-tail-mode nil
|
2011-02-20 00:09:28 +00:00
|
|
|
"Non-nil when Auto-Revert Tail Mode is active.
|
2004-12-30 03:01:28 +00:00
|
|
|
Never set this variable directly, use the command
|
|
|
|
`auto-revert-tail-mode' instead.")
|
2004-07-14 21:06:39 +00:00
|
|
|
(put 'auto-revert-tail-mode 'permanent-local t)
|
|
|
|
|
2004-03-21 00:30:12 +00:00
|
|
|
(defvar auto-revert-timer nil
|
|
|
|
"Timer used by Auto-Revert Mode.")
|
|
|
|
|
1997-07-04 05:07:07 +00:00
|
|
|
(defcustom auto-revert-interval 5
|
2003-12-29 12:41:49 +00:00
|
|
|
"Time, in seconds, between Auto-Revert Mode file checks.
|
2004-03-21 00:30:12 +00:00
|
|
|
The value may be an integer or floating point number.
|
|
|
|
|
|
|
|
If a timer is already active, there are two ways to make sure
|
|
|
|
that the new value will take effect immediately. You can set
|
|
|
|
this variable through Custom or you can call the command
|
|
|
|
`auto-revert-set-timer' after setting the variable. Otherwise,
|
|
|
|
the new value will take effect the first time Auto Revert Mode
|
|
|
|
calls `auto-revert-set-timer' for internal reasons or in your
|
|
|
|
next editing session."
|
1997-07-04 05:07:07 +00:00
|
|
|
:group 'auto-revert
|
2004-03-21 00:30:12 +00:00
|
|
|
:type 'number
|
|
|
|
:set (lambda (variable value)
|
|
|
|
(set-default variable value)
|
|
|
|
(and (boundp 'auto-revert-timer)
|
|
|
|
auto-revert-timer
|
|
|
|
(auto-revert-set-timer))))
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
(defcustom auto-revert-stop-on-user-input t
|
2005-02-16 05:00:29 +00:00
|
|
|
"When non-nil, user input temporarily interrupts Auto-Revert Mode.
|
2005-02-17 00:58:19 +00:00
|
|
|
With this setting, Auto-Revert Mode checks for user input after
|
2005-02-16 14:14:56 +00:00
|
|
|
handling each buffer and does not process any further buffers
|
|
|
|
\(until the next run of the timer) if user input is available.
|
|
|
|
When nil, Auto-Revert Mode checks files and reverts buffers,
|
|
|
|
with quitting disabled, without paying attention to user input.
|
2005-02-18 00:46:29 +00:00
|
|
|
Thus, with this setting, Emacs might be non-responsive at times."
|
1997-07-04 05:07:07 +00:00
|
|
|
:group 'auto-revert
|
|
|
|
:type 'boolean)
|
|
|
|
|
|
|
|
(defcustom auto-revert-verbose t
|
2005-02-16 05:00:29 +00:00
|
|
|
"When nil, Auto-Revert Mode does not generate any messages.
|
2004-03-28 03:56:53 +00:00
|
|
|
When non-nil, a message is generated whenever a file is reverted."
|
1997-07-04 05:07:07 +00:00
|
|
|
:group 'auto-revert
|
|
|
|
:type 'boolean)
|
|
|
|
|
|
|
|
(defcustom auto-revert-mode-text " ARev"
|
|
|
|
"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.)"
|
|
|
|
:tag "Auto Revert Mode Text" ; To separate it from `global-...'
|
|
|
|
:group 'auto-revert
|
|
|
|
:type 'string)
|
|
|
|
|
2004-07-14 21:06:39 +00:00
|
|
|
(defcustom auto-revert-tail-mode-text " Tail"
|
|
|
|
"String to display in the mode line when Auto-Revert Tail Mode is active.
|
|
|
|
|
|
|
|
\(When the string is not empty, make sure that it has a leading space.)"
|
|
|
|
:group 'auto-revert
|
2004-10-30 20:30:31 +00:00
|
|
|
:type 'string
|
2005-02-09 15:50:47 +00:00
|
|
|
:version "22.1")
|
2004-07-14 21:06:39 +00:00
|
|
|
|
1997-07-04 05:07:07 +00:00
|
|
|
(defcustom auto-revert-mode-hook nil
|
|
|
|
"Functions to run when Auto-Revert Mode is activated."
|
|
|
|
:tag "Auto Revert Mode Hook" ; To separate it from `global-...'
|
|
|
|
:group 'auto-revert
|
|
|
|
:type 'hook)
|
|
|
|
|
|
|
|
(defcustom global-auto-revert-mode-text ""
|
|
|
|
"String to display when Global Auto-Revert Mode is active.
|
|
|
|
|
|
|
|
The default is nothing since when this mode is active this text doesn't
|
1998-03-25 19:13:11 +00:00
|
|
|
vary over time, or between buffers. Hence mode line text
|
1997-07-04 05:07:07 +00:00
|
|
|
would only waste precious space."
|
|
|
|
:group 'auto-revert
|
|
|
|
:type 'string)
|
|
|
|
|
|
|
|
(defcustom global-auto-revert-mode-hook nil
|
|
|
|
"Hook called when Global Auto-Revert Mode is activated."
|
|
|
|
:group 'auto-revert
|
|
|
|
:type 'hook)
|
|
|
|
|
|
|
|
(defcustom global-auto-revert-non-file-buffers nil
|
2004-06-21 03:12:46 +00:00
|
|
|
"When nil, Global Auto-Revert mode operates only on file-visiting buffers.
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
When non-nil, both file buffers and buffers with a custom
|
2004-03-28 03:56:53 +00:00
|
|
|
`revert-buffer-function' and a `buffer-stale-function' are
|
2004-06-19 00:36:39 +00:00
|
|
|
reverted by Global Auto-Revert mode. These include the Buffer
|
2009-06-28 00:52:23 +00:00
|
|
|
List buffer displayed by `buffer-menu', and Dired buffers showing
|
|
|
|
complete local directories. The Buffer List buffer reverts every
|
|
|
|
`auto-revert-interval' seconds; Dired buffers when the file list of
|
|
|
|
the main directory changes. Dired buffers do not auto-revert as
|
|
|
|
a result of changes in subdirectories, or in the contents, size,
|
|
|
|
modes, etc., of files. You may still sometimes want to revert
|
|
|
|
them manually.
|
2002-04-08 23:05:26 +00:00
|
|
|
|
2004-06-21 03:12:46 +00:00
|
|
|
Use this option with care since it could lead to excessive auto-reverts.
|
2006-05-06 14:38:07 +00:00
|
|
|
For more information, see Info node `(emacs)Autorevert'."
|
1997-07-04 05:07:07 +00:00
|
|
|
:group 'auto-revert
|
2004-06-15 22:03:33 +00:00
|
|
|
:type 'boolean
|
2006-05-06 14:38:07 +00:00
|
|
|
:link '(info-link "(emacs)Autorevert"))
|
1997-07-04 05:07:07 +00:00
|
|
|
|
2004-07-14 21:06:39 +00:00
|
|
|
(defcustom global-auto-revert-ignore-modes ()
|
1997-07-04 05:07:07 +00:00
|
|
|
"List of major modes Global Auto-Revert Mode should not check."
|
|
|
|
:group 'auto-revert
|
|
|
|
:type '(repeat sexp))
|
|
|
|
|
|
|
|
(defcustom auto-revert-load-hook nil
|
|
|
|
"Functions to run when Auto-Revert Mode is first loaded."
|
|
|
|
:tag "Load Hook"
|
|
|
|
:group 'auto-revert
|
|
|
|
:type 'hook)
|
|
|
|
|
2004-04-01 01:37:03 +00:00
|
|
|
(defcustom auto-revert-check-vc-info nil
|
|
|
|
"If non-nil Auto Revert Mode reliably updates version control info.
|
|
|
|
Auto Revert Mode updates version control info whenever the buffer
|
|
|
|
needs reverting, regardless of the value of this variable.
|
|
|
|
However, the version control state can change without changes to
|
|
|
|
the work file. If the change is made from the current Emacs
|
|
|
|
session, all info is updated. But if, for instance, a new
|
|
|
|
version is checked in from outside the current Emacs session, the
|
|
|
|
version control number in the mode line, as well as other version
|
|
|
|
control related information, may not be properly updated. If you
|
|
|
|
are worried about this, set this variable to a non-nil value.
|
|
|
|
|
|
|
|
This currently works by automatically updating the version
|
|
|
|
control info every `auto-revert-interval' seconds. Nevertheless,
|
|
|
|
it should not cause excessive CPU usage on a reasonably fast
|
|
|
|
machine, if it does not apply to too many version controlled
|
2005-03-27 03:07:38 +00:00
|
|
|
buffers. CPU usage depends on the version control system."
|
2004-04-01 01:37:03 +00:00
|
|
|
:group 'auto-revert
|
|
|
|
:type 'boolean
|
2005-02-09 15:50:47 +00:00
|
|
|
:version "22.1")
|
2004-04-01 01:37:03 +00:00
|
|
|
|
1997-07-04 05:07:07 +00:00
|
|
|
(defvar global-auto-revert-ignore-buffer nil
|
2011-02-20 00:09:28 +00:00
|
|
|
"When non-nil, Global Auto-Revert Mode will not revert this buffer.
|
1998-03-25 19:13:11 +00:00
|
|
|
This variable becomes buffer local when set in any fashion.")
|
1997-07-04 05:07:07 +00:00
|
|
|
(make-variable-buffer-local 'global-auto-revert-ignore-buffer)
|
|
|
|
|
|
|
|
;; Internal variables:
|
|
|
|
|
2004-07-14 21:06:39 +00:00
|
|
|
(defvar auto-revert-buffer-list ()
|
1997-07-04 05:07:07 +00:00
|
|
|
"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.")
|
|
|
|
|
2004-07-14 21:06:39 +00:00
|
|
|
(defvar auto-revert-remaining-buffers ()
|
1997-07-04 05:07:07 +00:00
|
|
|
"Buffers not checked when user input stopped execution.")
|
|
|
|
|
2004-07-14 21:06:39 +00:00
|
|
|
(defvar auto-revert-tail-pos 0
|
|
|
|
"Position of last known end of file.")
|
|
|
|
|
|
|
|
(add-hook 'find-file-hook
|
2007-08-04 02:31:52 +00:00
|
|
|
(lambda ()
|
|
|
|
(set (make-local-variable 'auto-revert-tail-pos)
|
|
|
|
(nth 7 (file-attributes buffer-file-name)))))
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
;; Functions:
|
|
|
|
|
|
|
|
;;;###autoload
|
2002-04-08 23:05:26 +00:00
|
|
|
(define-minor-mode auto-revert-mode
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
"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.
|
1997-07-04 05:07:07 +00:00
|
|
|
|
2004-07-14 21:06:39 +00:00
|
|
|
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."
|
2005-04-04 08:51:19 +00:00
|
|
|
:group 'auto-revert :lighter auto-revert-mode-text
|
1997-07-04 05:07:07 +00:00
|
|
|
(if auto-revert-mode
|
|
|
|
(if (not (memq (current-buffer) auto-revert-buffer-list))
|
|
|
|
(push (current-buffer) auto-revert-buffer-list))
|
|
|
|
(setq auto-revert-buffer-list
|
|
|
|
(delq (current-buffer) auto-revert-buffer-list)))
|
|
|
|
(auto-revert-set-timer)
|
|
|
|
(when auto-revert-mode
|
2004-07-14 21:06:39 +00:00
|
|
|
(auto-revert-buffers)
|
|
|
|
(setq auto-revert-tail-mode nil)))
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun turn-on-auto-revert-mode ()
|
|
|
|
"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)"
|
|
|
|
(auto-revert-mode 1))
|
|
|
|
|
|
|
|
|
2004-07-14 21:06:39 +00:00
|
|
|
;;;###autoload
|
|
|
|
(define-minor-mode auto-revert-tail-mode
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
"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.
|
2004-07-14 21:06:39 +00:00
|
|
|
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
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.
|
2004-07-14 21:06:39 +00:00
|
|
|
|
|
|
|
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!"
|
|
|
|
:group 'find-file :lighter auto-revert-tail-mode-text
|
|
|
|
(when auto-revert-tail-mode
|
|
|
|
(unless buffer-file-name
|
|
|
|
(auto-revert-tail-mode 0)
|
|
|
|
(error "This buffer is not visiting a file"))
|
|
|
|
(if (and (buffer-modified-p)
|
2007-08-04 02:31:52 +00:00
|
|
|
(zerop auto-revert-tail-pos) ; library was loaded only after finding file
|
2004-07-14 21:06:39 +00:00
|
|
|
(not (y-or-n-p "Buffer is modified, so tail offset may be wrong. Proceed? ")))
|
|
|
|
(auto-revert-tail-mode 0)
|
2007-08-04 02:31:52 +00:00
|
|
|
;; a-r-tail-pos stores the size of the file at the time of the
|
|
|
|
;; last revert. After this package loads, it adds a
|
|
|
|
;; find-file-hook to set this variable every time a file is
|
|
|
|
;; loaded. If the package is loaded only _after_ visiting the
|
|
|
|
;; file to be reverted, then we have no idea what the value of
|
|
|
|
;; a-r-tail-pos should have been when the file was visited. If
|
|
|
|
;; the file has changed on disk in the meantime, all we can do
|
|
|
|
;; is offer to revert the whole thing. If you choose not to
|
|
|
|
;; revert, then you might miss some output then happened
|
|
|
|
;; between visiting the file and activating a-r-t-mode.
|
|
|
|
(and (zerop auto-revert-tail-pos)
|
|
|
|
(not (verify-visited-file-modtime (current-buffer)))
|
|
|
|
(y-or-n-p "File changed on disk, content may be missing. \
|
|
|
|
Perform a full revert? ")
|
|
|
|
;; Use this (not just revert-buffer) for point-preservation.
|
|
|
|
(auto-revert-handler))
|
2004-07-14 21:06:39 +00:00
|
|
|
;; else we might reappend our own end when we save
|
|
|
|
(add-hook 'before-save-hook (lambda () (auto-revert-tail-mode 0)) nil t)
|
|
|
|
(or (local-variable-p 'auto-revert-tail-pos) ; don't lose prior position
|
2005-08-09 02:55:00 +00:00
|
|
|
(set (make-local-variable 'auto-revert-tail-pos)
|
2007-03-24 13:39:21 +00:00
|
|
|
(nth 7 (file-attributes buffer-file-name))))
|
2004-07-14 21:06:39 +00:00
|
|
|
;; let auto-revert-mode set up the mechanism for us if it isn't already
|
|
|
|
(or auto-revert-mode
|
|
|
|
(let ((auto-revert-tail-mode t))
|
|
|
|
(auto-revert-mode 1)))
|
|
|
|
(setq auto-revert-mode nil))))
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun turn-on-auto-revert-tail-mode ()
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
"Turn on Auto-Revert Tail mode.
|
2004-07-14 21:06:39 +00:00
|
|
|
|
|
|
|
This function is designed to be added to hooks, for example:
|
|
|
|
(add-hook 'my-logfile-mode-hook 'turn-on-auto-revert-tail-mode)"
|
|
|
|
(auto-revert-tail-mode 1))
|
|
|
|
|
|
|
|
|
1997-07-04 05:07:07 +00:00
|
|
|
;;;###autoload
|
2002-04-08 23:05:26 +00:00
|
|
|
(define-minor-mode global-auto-revert-mode
|
2009-06-28 00:52:23 +00:00
|
|
|
"Toggle Global Auto Revert mode.
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
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.
|
2009-06-28 00:52:23 +00:00
|
|
|
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
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.
|
2009-06-28 00:52:23 +00:00
|
|
|
|
|
|
|
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."
|
2002-04-08 23:05:26 +00:00
|
|
|
:global t :group 'auto-revert :lighter global-auto-revert-mode-text
|
1997-07-04 05:07:07 +00:00
|
|
|
(auto-revert-set-timer)
|
|
|
|
(when global-auto-revert-mode
|
2002-04-08 23:05:26 +00:00
|
|
|
(auto-revert-buffers)))
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
|
|
|
|
(defun auto-revert-set-timer ()
|
2004-03-28 03:56:53 +00:00
|
|
|
"Restart or cancel the timer used by Auto-Revert Mode.
|
2004-03-28 14:02:48 +00:00
|
|
|
If such a timer is active, cancel it. Start a new timer if
|
2004-03-28 03:56:53 +00:00
|
|
|
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'"
|
2004-03-21 00:30:12 +00:00
|
|
|
(interactive)
|
1997-07-04 05:07:07 +00:00
|
|
|
(if (timerp auto-revert-timer)
|
|
|
|
(cancel-timer auto-revert-timer))
|
2002-04-08 23:05:26 +00:00
|
|
|
(setq auto-revert-timer
|
|
|
|
(if (or global-auto-revert-mode auto-revert-buffer-list)
|
|
|
|
(run-with-timer auto-revert-interval
|
|
|
|
auto-revert-interval
|
2004-07-14 21:06:39 +00:00
|
|
|
'auto-revert-buffers))))
|
1997-07-04 05:07:07 +00:00
|
|
|
|
2004-02-16 13:12:21 +00:00
|
|
|
(defun auto-revert-active-p ()
|
|
|
|
"Check if auto-revert is active (in current buffer or globally)."
|
|
|
|
(or auto-revert-mode
|
2004-07-14 21:06:39 +00:00
|
|
|
auto-revert-tail-mode
|
2004-02-16 13:12:21 +00:00
|
|
|
(and
|
|
|
|
global-auto-revert-mode
|
|
|
|
(not global-auto-revert-ignore-buffer)
|
|
|
|
(not (memq major-mode
|
|
|
|
global-auto-revert-ignore-modes)))))
|
|
|
|
|
|
|
|
(defun auto-revert-handler ()
|
2004-03-28 03:56:53 +00:00
|
|
|
"Revert current buffer, if appropriate.
|
|
|
|
This is an internal function used by Auto-Revert Mode."
|
2004-07-14 21:06:39 +00:00
|
|
|
(when (or auto-revert-tail-mode (not (buffer-modified-p)))
|
2007-09-30 20:26:55 +00:00
|
|
|
(let* ((buffer (current-buffer)) size
|
2004-07-14 21:06:39 +00:00
|
|
|
(revert
|
|
|
|
(or (and buffer-file-name
|
2007-09-30 20:26:55 +00:00
|
|
|
(if auto-revert-tail-mode
|
2009-08-02 17:21:16 +00:00
|
|
|
;; Tramp caches the file attributes. Setting
|
2011-04-13 14:27:41 +00:00
|
|
|
;; `remote-file-name-inhibit-cache' forces Tramp
|
|
|
|
;; to reread the values.
|
|
|
|
(let ((remote-file-name-inhibit-cache t))
|
2012-03-11 18:02:48 +00:00
|
|
|
(and (file-readable-p buffer-file-name)
|
|
|
|
(/= auto-revert-tail-pos
|
|
|
|
(setq size
|
|
|
|
(nth 7 (file-attributes
|
|
|
|
buffer-file-name))))))
|
2009-08-02 17:21:16 +00:00
|
|
|
(and (not (file-remote-p buffer-file-name))
|
2012-03-11 17:58:16 +00:00
|
|
|
(file-readable-p buffer-file-name)
|
2009-08-02 17:21:16 +00:00
|
|
|
(not (verify-visited-file-modtime buffer)))))
|
2004-07-17 20:55:57 +00:00
|
|
|
(and (or auto-revert-mode
|
2004-07-14 21:06:39 +00:00
|
|
|
global-auto-revert-non-file-buffers)
|
|
|
|
revert-buffer-function
|
|
|
|
(boundp 'buffer-stale-function)
|
|
|
|
(functionp buffer-stale-function)
|
|
|
|
(funcall buffer-stale-function t))))
|
|
|
|
eob eoblist)
|
2004-03-23 05:24:55 +00:00
|
|
|
(when revert
|
2004-04-01 01:37:03 +00:00
|
|
|
(when (and auto-revert-verbose
|
|
|
|
(not (eq revert 'fast)))
|
2004-03-27 01:13:45 +00:00
|
|
|
(message "Reverting buffer `%s'." (buffer-name)))
|
2004-04-05 01:09:37 +00:00
|
|
|
;; If point (or a window point) is at the end of the buffer,
|
|
|
|
;; we want to keep it at the end after reverting. This allows
|
|
|
|
;; to tail a file.
|
|
|
|
(when buffer-file-name
|
|
|
|
(setq eob (eobp))
|
|
|
|
(walk-windows
|
2011-04-13 14:27:41 +00:00
|
|
|
(lambda (window)
|
|
|
|
(and (eq (window-buffer window) buffer)
|
|
|
|
(= (window-point window) (point-max))
|
|
|
|
(push window eoblist)))
|
2004-04-05 01:09:37 +00:00
|
|
|
'no-mini t))
|
2004-07-14 21:06:39 +00:00
|
|
|
(if auto-revert-tail-mode
|
2007-09-30 20:26:55 +00:00
|
|
|
(auto-revert-tail-handler size)
|
2004-10-19 16:49:51 +00:00
|
|
|
;; Bind buffer-read-only in case user has done C-x C-q,
|
|
|
|
;; so as not to forget that. This gives undesirable results
|
|
|
|
;; when the file's mode changes, but that is less common.
|
2004-09-03 22:28:10 +00:00
|
|
|
(let ((buffer-read-only buffer-read-only))
|
|
|
|
(revert-buffer 'ignore-auto 'dont-ask 'preserve-modes)))
|
2004-04-05 01:09:37 +00:00
|
|
|
(when buffer-file-name
|
|
|
|
(when eob (goto-char (point-max)))
|
|
|
|
(dolist (window eoblist)
|
|
|
|
(set-window-point window (point-max)))))
|
2004-04-01 01:37:03 +00:00
|
|
|
;; `preserve-modes' avoids changing the (minor) modes. But we
|
|
|
|
;; do want to reset the mode for VC, so we do it manually.
|
|
|
|
(when (or revert auto-revert-check-vc-info)
|
|
|
|
(vc-find-file-hook)))))
|
2004-02-16 13:12:21 +00:00
|
|
|
|
2009-08-02 17:21:16 +00:00
|
|
|
(defun auto-revert-tail-handler (size)
|
2007-09-30 20:26:55 +00:00
|
|
|
(let ((modified (buffer-modified-p))
|
2007-07-06 12:58:16 +00:00
|
|
|
(inhibit-read-only t) ; Ignore.
|
2004-07-14 21:06:39 +00:00
|
|
|
(file buffer-file-name)
|
2007-07-06 12:58:16 +00:00
|
|
|
(buffer-file-name nil)) ; Ignore that file has changed.
|
2007-09-30 20:26:55 +00:00
|
|
|
(when (/= auto-revert-tail-pos size)
|
2007-07-06 12:58:16 +00:00
|
|
|
(run-hooks 'before-revert-hook)
|
2004-12-30 23:30:21 +00:00
|
|
|
(undo-boundary)
|
2004-07-14 21:06:39 +00:00
|
|
|
(save-restriction
|
|
|
|
(widen)
|
|
|
|
(save-excursion
|
|
|
|
(goto-char (point-max))
|
2007-09-30 20:26:55 +00:00
|
|
|
(insert-file-contents file nil
|
|
|
|
(and (< auto-revert-tail-pos size)
|
|
|
|
auto-revert-tail-pos)
|
|
|
|
size)))
|
2007-07-06 12:58:16 +00:00
|
|
|
(run-hooks 'after-revert-hook)
|
2004-12-30 23:30:21 +00:00
|
|
|
(undo-boundary)
|
2004-07-14 21:06:39 +00:00
|
|
|
(setq auto-revert-tail-pos size)
|
2007-07-06 12:58:16 +00:00
|
|
|
(restore-buffer-modified-p modified)))
|
2004-07-14 21:06:39 +00:00
|
|
|
(set-visited-file-modtime))
|
|
|
|
|
1997-07-04 05:07:07 +00:00
|
|
|
(defun auto-revert-buffers ()
|
|
|
|
"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.
|
|
|
|
|
2004-03-28 03:56:53 +00:00
|
|
|
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.
|
1997-07-04 05:07:07 +00:00
|
|
|
|
1998-03-25 19:13:11 +00:00
|
|
|
This function stops whenever there is user input. The buffers not
|
1997-07-04 05:07:07 +00:00
|
|
|
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.
|
|
|
|
|
1998-03-25 19:13:11 +00:00
|
|
|
This function is also responsible for removing buffers no longer in
|
1997-07-04 05:07:07 +00:00
|
|
|
Auto-Revert mode from `auto-revert-buffer-list', and for canceling
|
|
|
|
the timer when no buffers need to be checked."
|
2005-06-01 20:51:03 +00:00
|
|
|
(save-match-data
|
|
|
|
(let ((bufs (if global-auto-revert-mode
|
|
|
|
(buffer-list)
|
|
|
|
auto-revert-buffer-list))
|
|
|
|
(remaining ())
|
|
|
|
(new ()))
|
|
|
|
;; Partition `bufs' into two halves depending on whether or not
|
|
|
|
;; the buffers are in `auto-revert-remaining-buffers'. The two
|
|
|
|
;; halves are then re-joined with the "remaining" buffers at the
|
|
|
|
;; head of the list.
|
|
|
|
(dolist (buf auto-revert-remaining-buffers)
|
|
|
|
(if (memq buf bufs)
|
|
|
|
(push buf remaining)))
|
|
|
|
(dolist (buf bufs)
|
|
|
|
(if (not (memq buf remaining))
|
|
|
|
(push buf new)))
|
|
|
|
(setq bufs (nreverse (nconc new remaining)))
|
|
|
|
(while (and bufs
|
|
|
|
(not (and auto-revert-stop-on-user-input
|
|
|
|
(input-pending-p))))
|
|
|
|
(let ((buf (car bufs)))
|
2008-03-26 02:38:15 +00:00
|
|
|
(if (buffer-live-p buf)
|
2005-06-01 20:51:03 +00:00
|
|
|
(with-current-buffer buf
|
|
|
|
;; Test if someone has turned off Auto-Revert Mode in a
|
|
|
|
;; non-standard way, for example by changing major mode.
|
|
|
|
(if (and (not auto-revert-mode)
|
|
|
|
(not auto-revert-tail-mode)
|
|
|
|
(memq buf auto-revert-buffer-list))
|
|
|
|
(setq auto-revert-buffer-list
|
|
|
|
(delq buf auto-revert-buffer-list)))
|
|
|
|
(when (auto-revert-active-p) (auto-revert-handler)))
|
|
|
|
;; Remove dead buffer from `auto-revert-buffer-list'.
|
|
|
|
(setq auto-revert-buffer-list
|
|
|
|
(delq buf auto-revert-buffer-list))))
|
|
|
|
(setq bufs (cdr bufs)))
|
|
|
|
(setq auto-revert-remaining-buffers bufs)
|
|
|
|
;; Check if we should cancel the timer.
|
|
|
|
(when (and (not global-auto-revert-mode)
|
|
|
|
(null auto-revert-buffer-list))
|
|
|
|
(cancel-timer auto-revert-timer)
|
|
|
|
(setq auto-revert-timer nil)))))
|
1997-07-04 05:07:07 +00:00
|
|
|
|
|
|
|
|
|
|
|
;; The end:
|
|
|
|
(provide 'autorevert)
|
|
|
|
|
|
|
|
(run-hooks 'auto-revert-load-hook)
|
|
|
|
|
2001-07-16 12:23:00 +00:00
|
|
|
;;; autorevert.el ends here
|