From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Apr 1994 19:37:59 +0000 (+0000)
Subject: (overlays_at): Use XGCTYPE.
X-Git-Tag: emacs-19.34~9197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a44b14c12e68228dde8230eb924964acf3ba6cd;p=emacs.git

(overlays_at): Use XGCTYPE.
---

diff --git a/src/buffer.c b/src/buffer.c
index 36d0e042d5f..a5a4346e47b 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1304,13 +1304,13 @@ overlays_at (pos, extend, vec_ptr, len_ptr, next_ptr)
   int inhibit_storing = 0;
 
   for (tail = current_buffer->overlays_before;
-       CONSP (tail);
+       XGCTYPE (tail) == Lisp_Cons;
        tail = XCONS (tail)->cdr)
     {
       int startpos;
 
       overlay = XCONS (tail)->car;
-      if (! OVERLAY_VALID (overlay))
+      if (XGCTYPE (overlay) == Lisp_Overlay)
 	abort ();
 
       start = OVERLAY_START (overlay);
@@ -1344,13 +1344,13 @@ overlays_at (pos, extend, vec_ptr, len_ptr, next_ptr)
     }
 
   for (tail = current_buffer->overlays_after;
-       CONSP (tail);
+       XGCTYPE (tail) == Lisp_Cons;
        tail = XCONS (tail)->cdr)
     {
       int startpos;
 
       overlay = XCONS (tail)->car;
-      if (! OVERLAY_VALID (overlay))
+      if (XGCTYPE (overlay) == Lisp_Overlay)
 	abort ();
 
       start = OVERLAY_START (overlay);