From 0bc90bbad41afce8e8e4130e25e4f36f09cfd5fa Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 17 May 2004 22:50:41 +0000 Subject: [PATCH] (face_at_buffer_position): Use GET_OVERLAYS_AT. --- src/ChangeLog | 10 ++++++++++ src/xfaces.c | 18 +----------------- 2 files changed, 11 insertions(+), 17 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 01065ef0cf..c95b29e4ec 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,13 @@ +2004-05-18 Kim F. Storm + + * buffer.h (GET_OVERLAYS_AT): New macro. + * msdos.c (IT_note_mouse_highlight): Use it. + * textprop.c (get_char_property_and_overlay): Use it. + * xdisp.c (next_overlay_change, note_mouse_highlight): Use it. + * xfaces.c (face_at_buffer_position): Use it. + + * print.c (print_object): Increase buf size. + 2004-05-17 Kim F. Storm * alloc.c (mark_object): Ignore Lisp_Misc_Free objects. diff --git a/src/xfaces.c b/src/xfaces.c index ac44f3317c..2bd3f31d6e 100644 --- a/src/xfaces.c +++ b/src/xfaces.c @@ -7297,24 +7297,8 @@ face_at_buffer_position (w, pos, region_beg, region_end, /* Look at properties from overlays. */ { int next_overlay; - int len; - - /* First try with room for 40 overlays. */ - len = 40; - overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object)); - noverlays = overlays_at (pos, 0, &overlay_vec, &len, - &next_overlay, NULL, 0); - - /* If there are more than 40, make enough space for all, and try - again. */ - if (noverlays > len) - { - len = noverlays; - overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object)); - noverlays = overlays_at (pos, 0, &overlay_vec, &len, - &next_overlay, NULL, 0); - } + GET_OVERLAYS_AT (pos, overlay_vec, noverlays, &next_overlay, 0); if (next_overlay < endpos) endpos = next_overlay; } -- 2.20.1