# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 827884669 0
# Node ID f8a7a08fb9dd1d573481a21d3dbefc997685553d
# Parent  582cb6240b09ad2f0dbb01a4c54d5bc51b083072
(set-visited-file-name): Don't call find-buffer-visiting if filename is nil.

diff -r 582cb6240b09 -r f8a7a08fb9dd lisp/files.el
--- a/lisp/files.el	Tue Mar 26 18:46:04 1996 +0000
+++ b/lisp/files.el	Tue Mar 26 23:57:49 1996 +0000
@@ -1423,7 +1423,7 @@
 	  (setq truename (file-truename filename))
 	  (if find-file-visit-truename
 	      (setq filename truename))))
-    (let ((buffer (find-buffer-visiting filename)))
+    (let ((buffer (and filename (find-buffer-visiting filename))))
       (and buffer (not (eq buffer (current-buffer)))
 	   (not (y-or-n-p (message "A buffer is visiting %s; proceed? "
 				   filename)))