From: Kim F. Storm <storm@cua.dk>
Date: Mon, 17 May 2004 22:50:41 +0000 (+0000)
Subject: (face_at_buffer_position): Use GET_OVERLAYS_AT.
X-Git-Tag: ttn-vms-21-2-B4~6166
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0bc90bbad41afce8e8e4130e25e4f36f09cfd5fa;p=emacs.git

(face_at_buffer_position): Use GET_OVERLAYS_AT.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 01065ef0cf1..c95b29e4ec6 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,13 @@
+2004-05-18  Kim F. Storm  <storm@cua.dk>
+
+	* 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  <storm@cua.dk>
 
 	* alloc.c (mark_object): Ignore Lisp_Misc_Free objects.
diff --git a/src/xfaces.c b/src/xfaces.c
index ac44f3317ce..2bd3f31d6ea 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;
   }