From 4a44b14c12e68228dde8230eb924964acf3ba6cd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 3 Apr 1994 19:37:59 +0000 Subject: [PATCH] (overlays_at): Use XGCTYPE. --- src/buffer.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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); -- 2.39.5