Mercurial > emacs
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.