(get_char_property_and_overlay):

Signal error if POSITION is out of range in a buffer.

diff --git a/src/ChangeLog b/src/ChangeLog
index ec82db08df4fef8ab7692b4f19ac13a877c32ec7..cc29a16b1d0eccc91c93057eb8935476ef6581e4 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-30  Richard Stallman  <rms@gnu.org>
+
+       * textprop.c (get_char_property_and_overlay):
+       Signal error if POSITION is out of range in a buffer.
+
 2007-12-29  Martin Rudalics  <rudalics@gmx.at>
 
        * w32fns.c (Fx_create_frame): Make copy of frame parameters

diff --git a/src/textprop.c b/src/textprop.c
index f7b50755ed1f0f1a70447e5527048146f62bfda3..6c1470735bd39ae3a4d42eda34b0152bfcabcbfa 100644 (file)
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -646,6 +646,10 @@ get_char_property_and_overlay (position, prop, object, overlay)
       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);