diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/view.el | 30 |
1 files 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. |