Mercurial > emacs
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 } |