From: Andreas Schwab <schwab@suse.de>
Date: Mon, 20 Apr 1998 09:37:18 +0000 (+0000)
Subject: (view-really-at-end): Return true when at end and not
X-Git-Tag: emacs-20.3~1398
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=695764015cebf5ebe3c96da163609bef951d36e6;p=emacs.git

(view-really-at-end): Return true when at end and not
reverting.
---

diff --git a/lisp/view.el b/lisp/view.el
index f7610132a0d..f2ee76f2e22 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -722,21 +722,21 @@ Also set the mark at the position where point was."
        (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.