# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 999565336 0
# Node ID ee6a2760c8dc87cc1f298e085e94eabb4a3f526c
# Parent  0ae77dccd75dbbcb9589f52c80e61a8268dafdd1
(handle_single_display_prop): Fix for int/Lisp_Object mixup.

diff -r 0ae77dccd75d -r ee6a2760c8dc src/xdisp.c
--- a/src/xdisp.c	Mon Sep 03 23:33:57 2001 +0000
+++ b/src/xdisp.c	Tue Sep 04 01:02:16 2001 +0000
@@ -2824,10 +2824,10 @@
 	 object where the property was found, and `buffer-position'
 	 to the current position in the buffer.  */
       specbind (Qobject, object);
-      specbind (Qposition, CHARPOS (*position));
-      specbind (Qbuffer_position, (STRINGP (object)
-				   ? make_number (IT_CHARPOS (*it))
-				   : make_number (CHARPOS (*position))));
+      specbind (Qposition, make_number (CHARPOS (*position)));
+      specbind (Qbuffer_position,
+		make_number (STRINGP (object)
+			     ? IT_CHARPOS (*it) : CHARPOS (*position)));
       GCPRO1 (form);
       form = safe_eval (form);
       UNGCPRO;