changeset 21678:acaff8b34667

(view-really-at-end): Return true when at end and not reverting.
author Andreas Schwab <schwab@suse.de>
date Mon, 20 Apr 1998 09:37:18 +0000
parents f42b78e033db
children 11cba7297255
files lisp/view.el
diffstat 1 files changed, 15 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/view.el	Mon Apr 20 07:09:58 1998 +0000
+++ b/lisp/view.el	Mon Apr 20 09:37:18 1998 +0000
@@ -722,21 +722,21 @@
        (let ((buf (current-buffer))
 	     (bufname (buffer-name))
 	     (file (buffer-file-name)))
-	 (when (and view-try-extend-at-buffer-end
-		    file
-		    (not (verify-visited-file-modtime buf))
-		    (file-exists-p file)
-		    (or (not (buffer-modified-p buf))
-			(progn
-			  (setq file (file-name-nondirectory file))
-			  (yes-or-no-p
-			   (format
-			    "File %s changed on disk.  Discard your edits%s? "
-			    file
-			    (if (string= bufname file) ""
-			      (concat " in " bufname)))))))
-	   (revert-buffer t t t)
-	   (pos-visible-in-window-p (point-max))))))
+	 (or (not view-try-extend-at-buffer-end)
+	     (null file)
+	     (verify-visited-file-modtime buf)
+	     (not (file-exists-p file))
+	     (when (buffer-modified-p buf)
+	       (setq file (file-name-nondirectory file))
+	       (not (yes-or-no-p
+		     (format
+		      "File %s changed on disk.  Discard your edits%s? "
+		      file
+		      (if (string= bufname file) ""
+			(concat " in " bufname))))))
+	     (progn
+	       (revert-buffer t t t)
+	       (pos-visible-in-window-p (point-max)))))))
 
 (defun view-end-message ()
   ;; Tell that we are at end of buffer.