diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-24 01:27:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-24 01:27:46 +0000 |
| commit | 2aa8cc2dc5bd6a1e2ec58efee520c3658ff315f4 (patch) | |
| tree | d8830d40e3d3f30fe5da22c90774f81382931ac8 /lisp/files.el | |
| parent | 11da536332c909dc5400f38647a948bafefaa2c6 (diff) | |
| download | emacs-2aa8cc2dc5bd6a1e2ec58efee520c3658ff315f4.tar.gz | |
(find-alternate-file): Confirm killing buffer only if it is visiting a file.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 93467439621..f4766bc1760 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -516,7 +516,7 @@ If the current buffer now contains an empty file that you just visited file-dir (file-name-directory file))) (list (read-file-name "Find alternate file: " file-dir nil nil file-name)))) - (and (buffer-modified-p) + (and (buffer-modified-p) (buffer-file-name) ;; (not buffer-read-only) (not (yes-or-no-p (format "Buffer %s is modified; kill anyway? " (buffer-name)))) |