aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-05-29 06:54:09 +0000
committerKarl Heuer1995-05-29 06:54:09 +0000
commitb7d19f4a094edee26dfe029e5a50106e87b99a75 (patch)
treed3c6b5a3894cb954613f402fb85540e629b7b393
parent70efb6137f0ac4c2ef28934490da8b389884e80d (diff)
downloademacs-b7d19f4a094edee26dfe029e5a50106e87b99a75.tar.gz
emacs-b7d19f4a094edee26dfe029e5a50106e87b99a75.zip
(find-file-noselect): In "file changed" messages,
mention buffer name if different from file name.
-rw-r--r--lisp/files.el18
1 files changed, 13 insertions, 5 deletions
diff --git a/lisp/files.el b/lisp/files.el
index e04a3d19012..6a658e7b8cc 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -685,11 +685,19 @@ The buffer is not selected, just returned to the caller."
685 (cond ((not (file-exists-p filename)) 685 (cond ((not (file-exists-p filename))
686 (error "File %s no longer exists!" filename)) 686 (error "File %s no longer exists!" filename))
687 ((yes-or-no-p 687 ((yes-or-no-p
688 (format 688 (if (string= (file-name-nondirectory filename)
689 (if (buffer-modified-p buf) 689 (buffer-name buf))
690 "File %s changed on disk. Discard your edits? " 690 (format
691 "File %s changed on disk. Reread from disk? ") 691 (if (buffer-modified-p buf)
692 (file-name-nondirectory filename))) 692 "File %s changed on disk. Discard your edits? "
693 "File %s changed on disk. Reread from disk? ")
694 (file-name-nondirectory filename))
695 (format
696 (if (buffer-modified-p buf)
697 "File %s changed on disk. Discard your edits in %s? "
698 "File %s changed on disk. Reread from disk into %s? ")
699 (file-name-nondirectory filename)
700 (buffer-name buf))))
693 (save-excursion 701 (save-excursion
694 (set-buffer buf) 702 (set-buffer buf)
695 (revert-buffer t t))))) 703 (revert-buffer t t)))))