Mercurial > emacs

changeset 9109:6e44ddc40153

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(validate_interval_range, add_properties, remove_properties, Fnext_property_change, Fnext_single_property_change, Fprevious_property_change, Fprevious_single_property_change, Ftext_property_any, Ftext_property_not_all): Use type test macros.
author Karl Heuer <kwzh@gnu.org>
date Tue, 27 Sep 1994 01:16:02 +0000
parents c0287cefc0f8
children c0eefdfd11f4
files src/textprop.c
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/src/textprop.c	Tue Sep 27 01:13:35 1994 +0000
+++ b/src/textprop.c	Tue Sep 27 01:16:02 1994 +0000
@@ -117,7 +117,7 @@
       *end = n;
     }
 
-  if (XTYPE (object) == Lisp_Buffer)
+  if (BUFFERP (object))
     {
       register struct buffer *b = XBUFFER (object);
 
@@ -358,7 +358,7 @@
 	      break;
 
 	    /* Record this change in the buffer, for undo purposes.  */
-	    if (XTYPE (object) == Lisp_Buffer)
+	    if (BUFFERP (object))
 	      {
 		modify_region (XBUFFER (object),
 			       make_number (i->position),
@@ -376,7 +376,7 @@
       if (! found)
 	{
 	  /* Record this change in the buffer, for undo purposes.  */
-	  if (XTYPE (object) == Lisp_Buffer)
+	  if (BUFFERP (object))
 	    {
 	      modify_region (XBUFFER (object),
 			     make_number (i->position),
@@ -414,7 +414,7 @@
       /* First, remove the symbol if its at the head of the list */
       while (! NILP (current_plist) && EQ (sym, Fcar (current_plist)))
 	{
-	  if (XTYPE (object) == Lisp_Buffer)
+	  if (BUFFERP (object))
 	    {
 	      modify_region (XBUFFER (object),
 			     make_number (i->position),
@@ -436,7 +436,7 @@
 	  this = Fcdr (Fcdr (tail2));
 	  if (EQ (sym, Fcar (this)))
 	    {
-	      if (XTYPE (object) == Lisp_Buffer)
+	      if (BUFFERP (object))
 		{
 		  modify_region (XBUFFER (object),
 				 make_number (i->position),
@@ -609,7 +609,7 @@
   if (! NILP (limit) && !(next->position < XFASTINT (limit)))
     return limit;
 
-  XFASTINT (pos) = next->position - (XTYPE (object) == Lisp_String);
+  XFASTINT (pos) = next->position - (STRINGP (object));
   return pos;
 }
 
@@ -684,7 +684,7 @@
   if (! NILP (limit) && !(next->position < XFASTINT (limit)))
     return limit;
 
-  XFASTINT (pos) = next->position - (XTYPE (object) == Lisp_String);
+  XFASTINT (pos) = next->position - (STRINGP (object));
   return pos;
 }
 
@@ -729,7 +729,7 @@
     return limit;
 
   XFASTINT (pos) = (previous->position + LENGTH (previous)
-		    - (XTYPE (object) == Lisp_String));
+		    - (STRINGP (object)));
   return pos;
 }
 
@@ -779,7 +779,7 @@
     return limit;
 
   XFASTINT (pos) = (previous->position + LENGTH (previous)
-		    - (XTYPE (object) == Lisp_String));
+		    - (STRINGP (object)));
   return pos;
 }
 
@@ -1084,7 +1084,7 @@
 	  pos = i->position;
 	  if (pos < XINT (start))
 	    pos = XINT (start);
-	  return make_number (pos - (XTYPE (object) == Lisp_String));
+	  return make_number (pos - (STRINGP (object)));
 	}
       i = next_interval (i);
     }
@@ -1120,7 +1120,7 @@
 	{
 	  if (i->position > s)
 	    s = i->position;
-	  return make_number (s - (XTYPE (object) == Lisp_String));
+	  return make_number (s - (STRINGP (object)));
 	}
       i = next_interval (i);
     }