(handle_single_display_prop): Fix for int/Lisp_Object mixup.

diff --git a/src/xdisp.c b/src/xdisp.c
index 8b3fc8ea654078d8cf2e5395d751f6139e59c614..4e4f54f1d3df08b640a41586d580864986d4bfac 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -2824,10 +2824,10 @@ handle_single_display_prop (it, prop, object, position,
         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;