# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 762146655 0
# Node ID b44d5d121bc521afe685f7e294588a36ea9b993d
# Parent  d42c85701055ce6a6478e89a226b25b73cc32572
(set-visited-file-name): Unlock the file if setting the visited file name to
nil.

diff -r d42c85701055 -r b44d5d121bc5 lisp/files.el
--- a/lisp/files.el	Fri Feb 25 01:42:03 1994 +0000
+++ b/lisp/files.el	Fri Feb 25 03:24:15 1994 +0000
@@ -1151,9 +1151,8 @@
 		nil
 	      (expand-file-name filename))))
   (or (equal filename buffer-file-name)
-      (null filename)
       (progn
-	(lock-buffer filename)
+	(and filename (lock-buffer filename))
 	(unlock-buffer)))
   (setq buffer-file-name filename)
   (if filename				; make buffer name reflect filename.