From 695764015cebf5ebe3c96da163609bef951d36e6 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 20 Apr 1998 09:37:18 +0000 Subject: [PATCH] (view-really-at-end): Return true when at end and not reverting. --- lisp/view.el | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) 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. -- 2.39.2