[Ben, Tomonori San, am I making sense?] Jan Vroonhof <jan.vroonhof(a)ntlworld.com&gt; writes: Here is the relevant part of the patch patch... ＠＠ -1661,10 +1661,32 ＠＠ face = glyph_face (gb->glyph, data->window); if (NILP (face)) - rb.findex = data->findex; + findex = data->findex; else - rb.findex = get_builtin_face_cache_index (w, face); + findex = get_builtin_face_cache_index (w, face); + instance = glyph_image_instance (gb->glyph, data->window, + ERROR_ME_NOT, 1); + if (TEXT_IMAGE_INSTANCEP (instance)) + { + Lisp_Object string = XIMAGE_INSTANCE_TEXT_STRING (instance); + face_index orig_findex = data->findex; + Bytind orig_bufpos = data->bi_bufpos; + Bytind orig_start_col_enabled = data->bi_start_col_enabled; + + data->findex = findex; + data->bi_start_col_enabled = 0; + if (!allow_cursor) + data->bi_bufpos = 0; + add_bufbyte_string_runes (data, XSTRING_DATA (string), + XSTRING_LENGTH (string), 0); + data->findex = orig_findex; + data->bi_bufpos = orig_bufpos; + data->bi_start_col_enabled = orig_start_col_enabled; + return NULL; + } + + rb.findex = findex; rb.xpos = data->pixpos; rb.width = width; rb.bufpos = 0; /* glyphs are never "at" anywhere */ ＠＠ -1675,13 +1697,6 ＠＠ else rb.endpos = 0; rb.type = RUNE_DGLYPH; - /* #### Ben sez: this is way bogus if the glyph is a string. - You should not make the output routines have to cope with - this. The string could contain Mule characters, or non- - printable characters, or characters to be passed through - the display table, or non-character objects (when this gets - implemented), etc. Instead, this routine here should parse - the string into a series of runes. */ rb.object.dglyph.glyph = gb->glyph; rb.object.dglyph.extent = gb->extent; rb.object.dglyph.xoffset = xoffset; Note that for text glpyhs we no longer add the glpyh to the display structure. What if that is that was only reference to the glyph? Does this patch (untested) fix the problem? Index: src/redisplay.c =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs/src/redisplay.c,v retrieving revision 1.55.2.66 diff -u -r1.55.2.66 redisplay.c --- redisplay.c 2000/12/05 05:34:35 1.55.2.66 +++ redisplay.c 2001/02/11 23:57:31 ＠＠ -1676,7 +1676,11 ＠＠ data->findex = orig_findex; data->bi_bufpos = orig_bufpos; data->bi_start_col_enabled = orig_start_col_enabled; - return NULL; + /* We have added the text from the glyph here because + that is clean. However we still add the glyph to + the display structure so it is marked. */ + width = 0; + xoffset = 0; } rb.findex = findex; Index: src/redisplay-x.c =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs/src/redisplay-x.c,v retrieving revision 1.23.2.31 diff -u -r1.23.2.31 redisplay-x.c --- redisplay-x.c 2001/01/06 08:21:12 1.23.2.31 +++ redisplay-x.c 2001/02/11 23:57:32 ＠＠ -479,6 +479,10 ＠＠ break; case IMAGE_TEXT: + /* We kept the text glyph for marking + but already added the runes */ + break; + case IMAGE_POINTER: default: abort (); Index: src/redisplay-tty.c =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs/src/redisplay-tty.c,v retrieving revision 1.15.2.18 diff -u -r1.15.2.18 redisplay-tty.c --- redisplay-tty.c 2000/10/31 05:06:25 1.15.2.18 +++ redisplay-tty.c 2001/02/11 23:57:33 ＠＠ -343,6 +343,10 ＠＠ break; case IMAGE_TEXT: + /* We kept the text glyph for marking + but already added the runes */ + break; + case IMAGE_POINTER: default: abort ();