Mercurial > emacs
annotate lisp/autorevert.el @ 54615:7f0f4acf41c9
*** empty log message ***
author | Nick Roberts <nickrob@snap.net.nz> |
---|---|
date | Sun, 28 Mar 2004 20:19:41 +0000 |
parents | ce6a58ba4c84 |
children | 237f008115f7 |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36992
diff
changeset
|
1 ;;; autorevert.el --- revert buffers when files on disk change |
18597 | 2 |
36992
55fdf25cbb27
(global-auto-revert-non-file-buffers): Remove
Gerd Moellmann <gerd@gnu.org>
parents:
27574
diff
changeset
|
3 ;; Copyright (C) 1997, 1998, 1999, 2001 Free Software Foundation, Inc. |
18597 | 4 |
26673
f649f6c04a54
(auto-revert-buffers): Auto-revert mode was turned
Gerd Moellmann <gerd@gnu.org>
parents:
26097
diff
changeset
|
5 ;; Author: Anders Lindgren <andersl@andersl.com> |
22250
a77d473867b8
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21289
diff
changeset
|
6 ;; Keywords: convenience |
26673
f649f6c04a54
(auto-revert-buffers): Auto-revert mode was turned
Gerd Moellmann <gerd@gnu.org>
parents:
26097
diff
changeset
|
7 ;; Created: 1997-06-01 |
f649f6c04a54
(auto-revert-buffers): Auto-revert mode was turned
Gerd Moellmann <gerd@gnu.org>
parents:
26097
diff
changeset
|
8 ;; Date: 1999-11-30 |
18597 | 9 |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
26 | |
27 ;;; Commentary: | |
28 | |
29 ;; Introduction: | |
30 ;; | |
31 ;; Whenever a file that Emacs is editing has been changed by another | |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
32 ;; program the user normally has to execute the command `revert-buffer' |
18597 | 33 ;; to load the new content of the file into Emacs. |
34 ;; | |
35 ;; This package contains two minor modes: Global Auto-Revert Mode and | |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
36 ;; Auto-Revert Mode. Both modes automatically revert buffers |
18597 | 37 ;; whenever the corresponding files have been changed on disk. |
38 ;; | |
39 ;; Auto-Revert Mode can be activated for individual buffers. | |
40 ;; Global Auto-Revert Mode applies to all file buffers. | |
41 ;; | |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
42 ;; Both modes operate by checking the time stamp of all files at |
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
43 ;; intervals of `auto-revert-interval'. The default is every five |
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
44 ;; seconds. The check is aborted whenever the user actually uses |
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
45 ;; Emacs. You should never even notice that this package is active |
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
46 ;; (except that your buffers will be reverted, of course). |
18597 | 47 |
48 ;; Usage: | |
49 ;; | |
50 ;; Go to the appropriate buffer and press: | |
51 ;; M-x auto-revert-mode RET | |
52 ;; | |
53 ;; To activate Global Auto-Revert Mode, press: | |
54 ;; M-x global-auto-revert-mode RET | |
55 ;; | |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
56 ;; To activate Global Auto-Revert Mode every time Emacs is started |
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
57 ;; customise the option `global-auto-revert-mode' or the following |
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
58 ;; line could be added to your ~/.emacs: |
18597 | 59 ;; (global-auto-revert-mode 1) |
60 ;; | |
61 ;; The function `turn-on-auto-revert-mode' could be added to any major | |
62 ;; mode hook to activate Auto-Revert Mode for all buffers in that | |
63 ;; mode. For example, the following line will activate Auto-Revert | |
64 ;; Mode in all C mode buffers: | |
65 ;; | |
66 ;; (add-hook 'c-mode-hook 'turn-on-auto-revert-mode) | |
67 | |
68 ;;; Code: | |
69 | |
70 ;; Dependencies: | |
71 | |
72 (require 'timer) | |
53984
73f78af624f2
(auto-revert-dired-file-list): added missing variable `file' to `let'.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53980
diff
changeset
|
73 (autoload 'dired-get-filename "dired") |
53986
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
74 (autoload 'vc-workfile-version "vc-hooks") |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
75 (autoload 'vc-mode-line "vc-hooks") |
53984
73f78af624f2
(auto-revert-dired-file-list): added missing variable `file' to `let'.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53980
diff
changeset
|
76 |
73f78af624f2
(auto-revert-dired-file-list): added missing variable `file' to `let'.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53980
diff
changeset
|
77 (eval-when-compile |
73f78af624f2
(auto-revert-dired-file-list): added missing variable `file' to `let'.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53980
diff
changeset
|
78 (defvar dired-directory) |
53986
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
79 (defvar vc-mode) |
53984
73f78af624f2
(auto-revert-dired-file-list): added missing variable `file' to `let'.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53980
diff
changeset
|
80 (require 'cl)) |
18597 | 81 |
82 | |
83 ;; Custom Group: | |
84 ;; | |
85 ;; The two modes will be placed next to Auto Save Mode under the | |
86 ;; Files group under Emacs. | |
87 | |
88 (defgroup auto-revert nil | |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
89 "Revert individual buffers when files on disk change. |
18597 | 90 |
91 Auto-Revert Mode can be activated for individual buffer. | |
92 Global Auto-Revert Mode applies to all buffers." | |
22250
a77d473867b8
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21289
diff
changeset
|
93 :group 'files |
a77d473867b8
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21289
diff
changeset
|
94 :group 'convenience) |
18597 | 95 |
96 | |
97 ;; Variables: | |
98 | |
25215
5d684a6517db
(auto-revert-mode): Add autoload cookie.
Dave Love <fx@gnu.org>
parents:
22388
diff
changeset
|
99 ;; Autoload for the benefit of `make-mode-line-mouse-sensitive'. |
5d684a6517db
(auto-revert-mode): Add autoload cookie.
Dave Love <fx@gnu.org>
parents:
22388
diff
changeset
|
100 ;;;###autoload |
18597 | 101 (defvar auto-revert-mode nil |
102 "*Non-nil when Auto-Revert Mode is active. | |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
103 Never set this variable directly, use the command `auto-revert-mode' instead.") |
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
104 (put 'auto-revert-mode 'permanent-local t) |
18597 | 105 |
54452
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
106 (defvar auto-revert-timer nil |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
107 "Timer used by Auto-Revert Mode.") |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
108 |
18597 | 109 (defcustom auto-revert-interval 5 |
53379
cd6072a24608
(auto-revert-interval): Doc fix.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
52401
diff
changeset
|
110 "Time, in seconds, between Auto-Revert Mode file checks. |
54452
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
111 The value may be an integer or floating point number. |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
112 |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
113 If a timer is already active, there are two ways to make sure |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
114 that the new value will take effect immediately. You can set |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
115 this variable through Custom or you can call the command |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
116 `auto-revert-set-timer' after setting the variable. Otherwise, |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
117 the new value will take effect the first time Auto Revert Mode |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
118 calls `auto-revert-set-timer' for internal reasons or in your |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
119 next editing session." |
18597 | 120 :group 'auto-revert |
54452
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
121 :type 'number |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
122 :set (lambda (variable value) |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
123 (set-default variable value) |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
124 (and (boundp 'auto-revert-timer) |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
125 auto-revert-timer |
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
126 (auto-revert-set-timer)))) |
18597 | 127 |
128 (defcustom auto-revert-stop-on-user-input t | |
129 "When non-nil Auto-Revert Mode stops checking files on user input." | |
130 :group 'auto-revert | |
131 :type 'boolean) | |
132 | |
133 (defcustom auto-revert-verbose t | |
134 "When nil, Auto-Revert Mode will not generate any messages. | |
54609
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
135 When non-nil, a message is generated whenever a file is reverted." |
18597 | 136 :group 'auto-revert |
137 :type 'boolean) | |
138 | |
139 (defcustom auto-revert-mode-text " ARev" | |
140 "String to display in the mode line when Auto-Revert Mode is active. | |
141 | |
142 \(When the string is not empty, make sure that it has a leading space.)" | |
143 :tag "Auto Revert Mode Text" ; To separate it from `global-...' | |
144 :group 'auto-revert | |
145 :type 'string) | |
146 | |
147 (defcustom auto-revert-mode-hook nil | |
148 "Functions to run when Auto-Revert Mode is activated." | |
149 :tag "Auto Revert Mode Hook" ; To separate it from `global-...' | |
150 :group 'auto-revert | |
151 :type 'hook) | |
152 | |
153 (defcustom global-auto-revert-mode-text "" | |
154 "String to display when Global Auto-Revert Mode is active. | |
155 | |
156 The default is nothing since when this mode is active this text doesn't | |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
157 vary over time, or between buffers. Hence mode line text |
18597 | 158 would only waste precious space." |
159 :group 'auto-revert | |
160 :type 'string) | |
161 | |
162 (defcustom global-auto-revert-mode-hook nil | |
163 "Hook called when Global Auto-Revert Mode is activated." | |
164 :group 'auto-revert | |
165 :type 'hook) | |
166 | |
167 (defcustom global-auto-revert-non-file-buffers nil | |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
168 "When nil only file buffers are reverted by Global Auto-Revert Mode. |
18597 | 169 |
170 When non-nil, both file buffers and buffers with a custom | |
54609
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
171 `revert-buffer-function' and a `buffer-stale-function' are |
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
172 reverted by Global Auto-Revert Mode. |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
173 |
54513
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
174 Use this option with care since it could lead to excessive reverts. |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
175 Note also that for some non-file buffers the check whether the |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
176 buffer needs updating may be imperfect, due to efficiency |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
177 considerations, and may not take all information listed in the |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
178 buffer into account. Hence, a non-nil value for this option does |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
179 not necessarily make manual updates useless for non-file buffers." |
18597 | 180 :group 'auto-revert |
181 :type 'boolean) | |
182 | |
183 (defcustom global-auto-revert-ignore-modes '() | |
184 "List of major modes Global Auto-Revert Mode should not check." | |
185 :group 'auto-revert | |
186 :type '(repeat sexp)) | |
187 | |
188 (defcustom auto-revert-load-hook nil | |
189 "Functions to run when Auto-Revert Mode is first loaded." | |
190 :tag "Load Hook" | |
191 :group 'auto-revert | |
192 :type 'hook) | |
193 | |
194 (defvar global-auto-revert-ignore-buffer nil | |
20648
b644667dcd19
(global-auto-revert-ignore-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18597
diff
changeset
|
195 "*When non-nil, Global Auto-Revert Mode will not revert this buffer. |
18597 | 196 |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
197 This variable becomes buffer local when set in any fashion.") |
18597 | 198 (make-variable-buffer-local 'global-auto-revert-ignore-buffer) |
199 | |
200 ;; Internal variables: | |
201 | |
202 (defvar auto-revert-buffer-list '() | |
203 "List of buffers in Auto-Revert Mode. | |
204 | |
205 Note that only Auto-Revert Mode, never Global Auto-Revert Mode, adds | |
206 buffers to this list. | |
207 | |
208 The timer function `auto-revert-buffers' is responsible for purging | |
209 the list of old buffers.") | |
210 | |
211 (defvar auto-revert-remaining-buffers '() | |
212 "Buffers not checked when user input stopped execution.") | |
213 | |
214 | |
215 ;; Functions: | |
216 | |
217 ;;;###autoload | |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
218 (define-minor-mode auto-revert-mode |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
219 "Toggle reverting buffer when file on disk changes. |
18597 | 220 |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
221 With arg, turn Auto Revert mode on if and only if arg is positive. |
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
222 This is a minor mode that affects only the current buffer. |
18597 | 223 Use `global-auto-revert-mode' to automatically revert all buffers." |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
224 nil auto-revert-mode-text nil |
18597 | 225 (if auto-revert-mode |
226 (if (not (memq (current-buffer) auto-revert-buffer-list)) | |
227 (push (current-buffer) auto-revert-buffer-list)) | |
228 (setq auto-revert-buffer-list | |
229 (delq (current-buffer) auto-revert-buffer-list))) | |
230 (auto-revert-set-timer) | |
231 (when auto-revert-mode | |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
232 (auto-revert-buffers))) |
18597 | 233 |
234 | |
235 ;;;###autoload | |
236 (defun turn-on-auto-revert-mode () | |
237 "Turn on Auto-Revert Mode. | |
238 | |
239 This function is designed to be added to hooks, for example: | |
240 (add-hook 'c-mode-hook 'turn-on-auto-revert-mode)" | |
241 (auto-revert-mode 1)) | |
242 | |
243 | |
244 ;;;###autoload | |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
245 (define-minor-mode global-auto-revert-mode |
54609
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
246 "Revert any buffer when file on disk changes. |
18597 | 247 |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
248 With arg, turn Auto Revert mode on globally if and only if arg is positive. |
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
249 This is a minor mode that affects all buffers. |
18597 | 250 Use `auto-revert-mode' to revert a particular buffer." |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
251 :global t :group 'auto-revert :lighter global-auto-revert-mode-text |
18597 | 252 (auto-revert-set-timer) |
253 (when global-auto-revert-mode | |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
254 (auto-revert-buffers))) |
18597 | 255 |
256 | |
257 (defun auto-revert-set-timer () | |
54609
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
258 "Restart or cancel the timer used by Auto-Revert Mode. |
54612
ce6a58ba4c84
(auto-revert-set-timer): Minor doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54609
diff
changeset
|
259 If such a timer is active, cancel it. Start a new timer if |
54609
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
260 Global Auto-Revert Mode is active or if Auto-Revert Mode is active |
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
261 in some buffer. Restarting the timer ensures that Auto-Revert Mode |
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
262 will use an up-to-date value of `auto-revert-interval'" |
54452
b0a078151291
(auto-revert-interval): Make new value take effect immediately when
Luc Teirlinck <teirllm@auburn.edu>
parents:
54045
diff
changeset
|
263 (interactive) |
18597 | 264 (if (timerp auto-revert-timer) |
265 (cancel-timer auto-revert-timer)) | |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
266 (setq auto-revert-timer |
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
267 (if (or global-auto-revert-mode auto-revert-buffer-list) |
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
268 (run-with-timer auto-revert-interval |
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
269 auto-revert-interval |
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
270 'auto-revert-buffers) |
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
271 nil))) |
18597 | 272 |
53980
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
273 (defun auto-revert-active-p () |
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
274 "Check if auto-revert is active (in current buffer or globally)." |
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
275 (or auto-revert-mode |
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
276 (and |
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
277 global-auto-revert-mode |
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
278 (not global-auto-revert-ignore-buffer) |
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
279 (not (memq major-mode |
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
280 global-auto-revert-ignore-modes))))) |
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
281 |
53986
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
282 (defun auto-revert-vc-cvs-file-version (file) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
283 "Get version of FILE by reading control file on disk." |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
284 (let* ((control "CVS/Entries") |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
285 (name (file-name-nondirectory file)) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
286 (path (format "%s/%s" |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
287 (file-name-directory file) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
288 control))) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
289 (when (file-exists-p path) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
290 (with-temp-buffer |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
291 (insert-file-contents-literally path) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
292 (goto-char (point-min)) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
293 (when (re-search-forward |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
294 ;; /file.txt/1.3/Mon Sep 15 18:43:20 2003// |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
295 (format "%s/\\([.0-9]+\\)" (regexp-quote name)) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
296 nil t) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
297 (match-string 1)))))) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
298 |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
299 (defun auto-revert-vc-buffer-p () |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
300 "Check if buffer is version controlled." |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
301 (and (boundp 'vc-mode) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
302 (string-match "[0-9]" (or vc-mode "")))) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
303 |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
304 (defun auto-revert-handler-vc () |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
305 "Check if version controlled buffer needs revert." |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
306 ;; [Emacs 1] |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
307 ;; 1. File is saved (*) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
308 ;; 2. checkin is done 1.1 -> 1.2 |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
309 ;; 3. VC reverts, so that updated version number is shown in mode line |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
310 ;; |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
311 ;; Suppose the same file has been opened in another Emacs and |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
312 ;; autorevert.el is on. |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
313 ;; |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
314 ;; [Emacs 2] |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
315 ;; 1. Step (1) is detected and buffer is reverted. |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
316 ;; 2. But check in does not always change the file in dis, but possibly only |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
317 ;; control files like CVS/Entries |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
318 ;; 3. The buffer is not reverted to update VC version line. |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
319 ;; Incorrect version number 1.1 is shown in this Emacs |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
320 ;; |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
321 (when (featurep 'vc) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
322 (let* ((file (buffer-file-name)) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
323 (backend (vc-backend (buffer-file-name))) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
324 (version-buffer (vc-workfile-version file))) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
325 (when (stringp version-buffer) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
326 (cond |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
327 ((eq backend 'CVS) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
328 (let ((version-file |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
329 (auto-revert-vc-cvs-file-version (buffer-file-name)))) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
330 (and (stringp version-file) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
331 (not (string-match version-file version-buffer))))) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
332 ((eq backend 'RCS) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
333 ;; TODO: |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
334 )))))) |
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
335 |
53980
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
336 (defun auto-revert-handler () |
54609
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
337 "Revert current buffer, if appropriate. |
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
338 This is an internal function used by Auto-Revert Mode." |
54513
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
339 (unless (buffer-modified-p) |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
340 (let (revert) |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
341 (cond |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
342 ((auto-revert-vc-buffer-p) |
54592
6a2022999abf
(auto-revert-handler): Print revert message before, rather than after,
Luc Teirlinck <teirllm@auburn.edu>
parents:
54513
diff
changeset
|
343 (when (auto-revert-handler-vc) |
6a2022999abf
(auto-revert-handler): Print revert message before, rather than after,
Luc Teirlinck <teirllm@auburn.edu>
parents:
54513
diff
changeset
|
344 (setq revert 'vc))) |
54513
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
345 ((or (and (buffer-file-name) |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
346 (file-readable-p (buffer-file-name)) |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
347 (not (verify-visited-file-modtime (current-buffer)))) |
54606
959316c3db53
(auto-revert-handler): Handle auto-revert-mode.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54592
diff
changeset
|
348 (and (or auto-revert-mode global-auto-revert-non-file-buffers) |
54513
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
349 revert-buffer-function |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
350 (boundp 'buffer-stale-function) |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
351 (functionp buffer-stale-function) |
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
352 (funcall buffer-stale-function t))) |
53986
643f584fdd38
Autorevert: Add support for VC controlled files.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53984
diff
changeset
|
353 (setq revert t))) |
54513
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
354 (when revert |
54592
6a2022999abf
(auto-revert-handler): Print revert message before, rather than after,
Luc Teirlinck <teirllm@auburn.edu>
parents:
54513
diff
changeset
|
355 (when auto-revert-verbose |
6a2022999abf
(auto-revert-handler): Print revert message before, rather than after,
Luc Teirlinck <teirllm@auburn.edu>
parents:
54513
diff
changeset
|
356 (message "Reverting buffer `%s'." (buffer-name))) |
54513
188394103088
(global-auto-revert-non-file-buffers): Expand doc string.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54452
diff
changeset
|
357 (revert-buffer 'ignore-auto 'dont-ask 'preserve-modes) |
54606
959316c3db53
(auto-revert-handler): Handle auto-revert-mode.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54592
diff
changeset
|
358 ;; `preserve-modes' avoids changing the (minor) modes. But we |
959316c3db53
(auto-revert-handler): Handle auto-revert-mode.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54592
diff
changeset
|
359 ;; do want to reset the mode for VC, so we do it explicitly. |
959316c3db53
(auto-revert-handler): Handle auto-revert-mode.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54592
diff
changeset
|
360 (vc-find-file-hook) |
54592
6a2022999abf
(auto-revert-handler): Print revert message before, rather than after,
Luc Teirlinck <teirllm@auburn.edu>
parents:
54513
diff
changeset
|
361 (if (eq revert 'vc) |
6a2022999abf
(auto-revert-handler): Print revert message before, rather than after,
Luc Teirlinck <teirllm@auburn.edu>
parents:
54513
diff
changeset
|
362 (vc-mode-line buffer-file-name)))))) |
53980
0bcb32954b6f
Added support to detect changed dired buffers.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53379
diff
changeset
|
363 |
18597 | 364 (defun auto-revert-buffers () |
365 "Revert buffers as specified by Auto-Revert and Global Auto-Revert Mode. | |
366 | |
367 Should `global-auto-revert-mode' be active all file buffers are checked. | |
368 | |
369 Should `auto-revert-mode' be active in some buffers, those buffers | |
370 are checked. | |
371 | |
54609
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
372 Non-file buffers that have a custom `revert-buffer-function' and |
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
373 a `buffer-stale-function' are reverted either when Auto-Revert |
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
374 Mode is active in that buffer, or when the variable |
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
375 `global-auto-revert-non-file-buffers' is non-nil and Global |
b35a0c2934f9
(auto-revert-verbose, global-auto-revert-non-file-buffers)
Luc Teirlinck <teirllm@auburn.edu>
parents:
54606
diff
changeset
|
376 Auto-Revert Mode is active. |
18597 | 377 |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
378 This function stops whenever there is user input. The buffers not |
18597 | 379 checked are stored in the variable `auto-revert-remaining-buffers'. |
380 | |
381 To avoid starvation, the buffers in `auto-revert-remaining-buffers' | |
382 are checked first the next time this function is called. | |
383 | |
21288
1b06a18f33fd
Various doc fixes, mainly grammar.
Dave Love <fx@gnu.org>
parents:
20648
diff
changeset
|
384 This function is also responsible for removing buffers no longer in |
18597 | 385 Auto-Revert mode from `auto-revert-buffer-list', and for canceling |
386 the timer when no buffers need to be checked." | |
387 (let ((bufs (if global-auto-revert-mode | |
388 (buffer-list) | |
389 auto-revert-buffer-list)) | |
390 (remaining '()) | |
391 (new '())) | |
392 ;; Partition `bufs' into two halves depending on whether or not | |
393 ;; the buffers are in `auto-revert-remaining-buffers'. The two | |
394 ;; halves are then re-joined with the "remaining" buffers at the | |
395 ;; head of the list. | |
396 (dolist (buf auto-revert-remaining-buffers) | |
397 (if (memq buf bufs) | |
398 (push buf remaining))) | |
399 (dolist (buf bufs) | |
400 (if (not (memq buf remaining)) | |
401 (push buf new))) | |
402 (setq bufs (nreverse (nconc new remaining))) | |
403 (while (and bufs | |
404 (not (and auto-revert-stop-on-user-input | |
405 (input-pending-p)))) | |
406 (let ((buf (car bufs))) | |
407 (if (buffer-name buf) ; Buffer still alive? | |
44456
a7dbce305a53
(auto-revert-mode, global-auto-revert-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
408 (with-current-buffer buf |
18597 | 409 ;; Test if someone has turned off Auto-Revert Mode in a |
410 ;; non-standard way, for example by changing major mode. | |
411 (if (and (not auto-revert-mode) | |
412 (memq buf auto-revert-buffer-list)) | |
413 (setq auto-revert-buffer-list | |
414 (delq buf auto-revert-buffer-list))) | |
54606
959316c3db53
(auto-revert-handler): Handle auto-revert-mode.
Luc Teirlinck <teirllm@auburn.edu>
parents:
54592
diff
changeset
|
415 (when (auto-revert-active-p) (auto-revert-handler))) |
18597 | 416 ;; Remove dead buffer from `auto-revert-buffer-list'. |
417 (setq auto-revert-buffer-list | |
418 (delq buf auto-revert-buffer-list)))) | |
419 (setq bufs (cdr bufs))) | |
420 (setq auto-revert-remaining-buffers bufs) | |
421 ;; Check if we should cancel the timer. | |
422 (when (and (not global-auto-revert-mode) | |
423 (null auto-revert-buffer-list)) | |
424 (cancel-timer auto-revert-timer) | |
425 (setq auto-revert-timer nil)))) | |
426 | |
427 | |
428 ;; The end: | |
429 (provide 'autorevert) | |
430 | |
431 (run-hooks 'auto-revert-load-hook) | |
432 | |
52401 | 433 ;;; arch-tag: f6bcb07b-4841-477e-9e44-b18678e58876 |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36992
diff
changeset
|
434 ;;; autorevert.el ends here |