# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1199022125 0
# Node ID f53d1d3c813f572c0a1dd464ed0507cf8195c5f6
# Parent  f40808e1706ff82b958d5b4368b5a47a2b947385
(get_char_property_and_overlay):
Signal error if POSITION is out of range in a buffer.

diff -r f40808e1706f -r f53d1d3c813f src/textprop.c
--- a/src/textprop.c	Sun Dec 30 03:36:05 2007 +0000
+++ b/src/textprop.c	Sun Dec 30 13:42:05 2007 +0000
@@ -646,6 +646,10 @@
       Lisp_Object *overlay_vec;
       struct buffer *obuf = current_buffer;
 
+      if (XINT (position) < BUF_BEGV (XBUFFER (object))
+	  || XINT (position) > BUF_ZV (XBUFFER (object)))
+	xsignal1 (Qargs_out_of_range, position);
+
       set_buffer_temp (XBUFFER (object));
 
       GET_OVERLAYS_AT (XINT (position), overlay_vec, noverlays, NULL, 0);