Mercurial > emacs

changeset 9121:faecbbbcceb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fset_marker, set_marker_restricted, Fcopy_marker): Use type test macros.
author Karl Heuer <kwzh@gnu.org>
date Tue, 27 Sep 1994 02:24:00 +0000
parents ed766dfb4efe
children 9ba3f17d6631
files src/marker.c
diffstat 1 files changed, 4 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/src/marker.c	Tue Sep 27 02:12:02 1994 +0000
+++ b/src/marker.c	Tue Sep 27 02:24:00 1994 +0000
@@ -88,7 +88,7 @@
   /* If position is nil or a marker that points nowhere,
      make this marker point nowhere.  */
   if (NILP (pos)
-      || (XTYPE (pos) == Lisp_Marker && !XMARKER (pos)->buffer))
+      || (MARKERP (pos) && !XMARKER (pos)->buffer))
     {
       unchain_marker (marker);
       return marker;
@@ -145,7 +145,7 @@
   /* If position is nil or a marker that points nowhere,
      make this marker point nowhere.  */
   if (NILP (pos) ||
-      (XTYPE (pos) == Lisp_Marker && !XMARKER (pos)->buffer))
+      (MARKERP (pos) && !XMARKER (pos)->buffer))
     {
       unchain_marker (marker);
       return marker;
@@ -271,14 +271,11 @@
 
   while (1)
     {
-      if (XTYPE (marker) == Lisp_Int
-	  || XTYPE (marker) == Lisp_Marker)
+      if (INTEGERP (marker) || MARKERP (marker))
 	{
 	  new = Fmake_marker ();
 	  Fset_marker (new, marker,
-		       ((XTYPE (marker) == Lisp_Marker)
-			? Fmarker_buffer (marker)
-			: Qnil));
+		       (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil));
 	  return new;
 	}
       else