# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 780370066 0
# Node ID dc5a9c83dc35df1029b9a4ef2b7736d1c29c0f4c
# Parent  122d7c1a868bbbe77e95c4be39777c192f4ebf8f
(find-alternate-file): Confirm killing buffer only if it is visiting a file.

diff -r 122d7c1a868b -r dc5a9c83dc35 lisp/files.el
--- a/lisp/files.el	Sat Sep 24 01:16:19 1994 +0000
+++ b/lisp/files.el	Sat Sep 24 01:27:46 1994 +0000
@@ -516,7 +516,7 @@
 		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))))