From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 25 Feb 1994 03:24:15 +0000 (+0000)
Subject: (set-visited-file-name): Unlock the file if setting the visited file name to
X-Git-Tag: emacs-19.34~9767
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a8f71e7eb96d885421b16c96df125ea4c11a4aa;p=emacs.git

(set-visited-file-name): Unlock the file if setting the visited file name to
nil.
---

diff --git a/lisp/files.el b/lisp/files.el
index aac5ebb1a64..1ca1369d250 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1151,9 +1151,8 @@ if you wish to pass an empty string as the argument."
 		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.