From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Sep 1994 06:25:26 +0000 (+0000)
Subject: (Fget_char_property): Pass new arg to overlays_at.
X-Git-Tag: emacs-19.34~6892
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59a486aba0b1e9a4993b35246844676e9b0f2215;p=emacs.git

(Fget_char_property): Pass new arg to overlays_at.
(NULL): Define if not defined.
---

diff --git a/src/textprop.c b/src/textprop.c
index 515838732c8..853aa12c902 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -22,6 +22,10 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "intervals.h"
 #include "buffer.h"
 #include "window.h"
+
+#ifndef NULL
+#define NULL (void *)0
+#endif
 
 
 /* NOTES:  previous- and next- property change will have to skip
@@ -543,7 +547,8 @@ overlays are considered only if they are associated with OBJECT.")
       len = 40;
       overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
 
-      noverlays = overlays_at (posn, 0, &overlay_vec, &len, &next_overlay);
+      noverlays = overlays_at (posn, 0, &overlay_vec, &len,
+			       &next_overlay, NULL);
 
       /* If there are more than 40,
 	 make enough space for all, and try again.  */
@@ -551,7 +556,8 @@ overlays are considered only if they are associated with OBJECT.")
 	{
 	  len = noverlays;
 	  overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
-	  noverlays = overlays_at (posn, 0, &overlay_vec, &len, &next_overlay);
+	  noverlays = overlays_at (posn, 0, &overlay_vec, &len,
+				   &next_overlay, NULL);
 	}
       noverlays = sort_overlays (overlay_vec, noverlays, w);