From: Luc Teirlinck <teirllm@auburn.edu>
Date: Mon, 5 Apr 2004 01:09:37 +0000 (+0000)
Subject: (auto-revert-handler): If point (or a window point) is at the end of
X-Git-Tag: ttn-vms-21-2-B4~6973
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f41bcba72b31a2d629896dad4cd82b1a234451c;p=emacs.git

(auto-revert-handler): If point (or a window point) is at the end of
the buffer, keep it there after reverting.  This allows to tail a file.
Mention this in the `Commentary'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8fb7dd36323..cf38476e364 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2004-04-04  Luc Teirlinck  <teirllm@auburn.edu>
+
+	* autorevert.el (auto-revert-handler): If point (or a window
+	point) is at the end of the buffer, keep it there after
+	reverting.  This allows to tail a file.
+	Mention this in the `Commentary'.
+
+	* format.el (format-write-file): Add optional argument CONFIRM
+	and make it behave like the analogous argument to `write-file'.
+
 2004-04-04  Eli Zaretskii  <eliz@gnu.org>
 
 	* calendar/timeclock.el (timeclock-relative)
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 6e74a96eff5..58bb6d29705 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -44,6 +44,17 @@
 ;; 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).
+;;
+;; 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.
 
 ;; Usage:
 ;;
@@ -298,10 +309,10 @@ will use an up-to-date value of `auto-revert-interval'"
   "Revert current buffer, if appropriate.
 This is an internal function used by Auto-Revert Mode."
   (unless (buffer-modified-p)
-    (let (revert)
-      (or (and (buffer-file-name)
-	       (file-readable-p (buffer-file-name))
-	       (not (verify-visited-file-modtime (current-buffer)))
+    (let ((buffer (current-buffer)) revert eob eoblist)
+      (or (and buffer-file-name
+	       (file-readable-p buffer-file-name)
+	       (not (verify-visited-file-modtime buffer))
 	       (setq revert t))
 	  (and (or auto-revert-mode global-auto-revert-non-file-buffers)
 	       revert-buffer-function
@@ -312,7 +323,22 @@ This is an internal function used by Auto-Revert Mode."
 	(when (and auto-revert-verbose
 		   (not (eq revert 'fast)))
 	  (message "Reverting buffer `%s'." (buffer-name)))
-	(revert-buffer 'ignore-auto 'dont-ask 'preserve-modes))
+	;; 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
+	   #'(lambda (window)
+	       (and (eq (window-buffer window) buffer)
+		    (= (window-point window) (point-max))
+		    (push window eoblist)))
+	   'no-mini t))
+	(revert-buffer 'ignore-auto 'dont-ask 'preserve-modes)
+	(when buffer-file-name
+	  (when eob (goto-char (point-max)))
+	  (dolist (window eoblist)
+	    (set-window-point window (point-max)))))
       ;; `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)