# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 922470942 0
# Node ID e8b7cb3fac8c1e99ecdddd3dbe05a366bba85c0e
# Parent  2a1ffba95a709f9b50eb35923dc83e35a0bca43a
(Fset_buffer_modified_p): Don't lock or unlock
if buffer-file-name is nil.

diff -r 2a1ffba95a70 -r e8b7cb3fac8c src/buffer.c
--- a/src/buffer.c	Fri Mar 26 17:53:18 1999 +0000
+++ b/src/buffer.c	Fri Mar 26 17:55:42 1999 +0000
@@ -807,7 +807,8 @@
      If buffer becoming unmodified, unlock the file.  */
 
   fn = current_buffer->file_truename;
-  if (!NILP (fn))
+  /* Test buffer-file-name so that binding it to nil is effective.  */
+  if (!NILP (fn) && ! NILP (current_buffer->filename))
     {
       already = SAVE_MODIFF < MODIFF;
       if (!already && !NILP (flag))