comparison src/xdisp.c @ 39098:ee6a2760c8dc

(handle_single_display_prop): Fix for int/Lisp_Object mixup.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 04 Sep 2001 01:02:16 +0000
parents 9819ee584001
children 544f85c0de57
comparison
equal deleted inserted replaced
39097:0ae77dccd75d 39098:ee6a2760c8dc
2822 /* Bind `object' to the object having the `display' property, a 2822 /* Bind `object' to the object having the `display' property, a
2823 buffer or string. Bind `position' to the position in the 2823 buffer or string. Bind `position' to the position in the
2824 object where the property was found, and `buffer-position' 2824 object where the property was found, and `buffer-position'
2825 to the current position in the buffer. */ 2825 to the current position in the buffer. */
2826 specbind (Qobject, object); 2826 specbind (Qobject, object);
2827 specbind (Qposition, CHARPOS (*position)); 2827 specbind (Qposition, make_number (CHARPOS (*position)));
2828 specbind (Qbuffer_position, (STRINGP (object) 2828 specbind (Qbuffer_position,
2829 ? make_number (IT_CHARPOS (*it)) 2829 make_number (STRINGP (object)
2830 : make_number (CHARPOS (*position)))); 2830 ? IT_CHARPOS (*it) : CHARPOS (*position)));
2831 GCPRO1 (form); 2831 GCPRO1 (form);
2832 form = safe_eval (form); 2832 form = safe_eval (form);
2833 UNGCPRO; 2833 UNGCPRO;
2834 unbind_to (count, Qnil); 2834 unbind_to (count, Qnil);
2835 } 2835 }