From d20d1d19eb92d6624fda6e60876993bce52ab99f Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 03:01:57 +0000
Subject: [PATCH] (unlock_all_files, Funlock_buffer, unlock_buffer): Use type
 test macros.

---
 src/filelock.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/filelock.c b/src/filelock.c
index dd331de57c0..9c494ae36eb 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -382,8 +382,7 @@ unlock_all_files ()
        tail = XCONS (tail)->cdr)
     {
       b = XBUFFER (XCONS (XCONS (tail)->car)->cdr);
-      if (XTYPE (b->filename) == Lisp_String &&
-	  b->save_modified < BUF_MODIFF (b))
+      if (STRINGP (b->filename) && b->save_modified < BUF_MODIFF (b))
 	unlock_file (b->filename);
     }
 }
@@ -414,7 +413,7 @@ if it should normally be locked.")
   ()
 {
   if (current_buffer->save_modified < MODIFF &&
-      XTYPE (current_buffer->filename) == Lisp_String)
+      STRINGP (current_buffer->filename))
     unlock_file (current_buffer->filename);
   return Qnil;
 }
@@ -426,7 +425,7 @@ unlock_buffer (buffer)
      struct buffer *buffer;
 {
   if (buffer->save_modified < BUF_MODIFF (buffer) &&
-      XTYPE (buffer->filename) == Lisp_String)
+      STRINGP (buffer->filename))
     unlock_file (buffer->filename);
 }
 
-- 
2.39.5