diff options
| author | Karl Heuer | 1995-05-29 06:54:09 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-29 06:54:09 +0000 |
| commit | b7d19f4a094edee26dfe029e5a50106e87b99a75 (patch) | |
| tree | d3c6b5a3894cb954613f402fb85540e629b7b393 | |
| parent | 70efb6137f0ac4c2ef28934490da8b389884e80d (diff) | |
| download | emacs-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.el | 18 |
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))))) |