# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868689322 0
# Node ID a2214718523511ac9fd0c108356e09409c10c397
# Parent  a0663e4136227a7baa12b2209f763aab021a333c
(dumpglyphs): Declare local variable first_ch as Lisp_Object, not int.

diff -r a0663e413622 -r a22147185235 src/xterm.c
--- a/src/xterm.c	Sat Jul 12 06:34:16 1997 +0000
+++ b/src/xterm.c	Sat Jul 12 06:35:22 1997 +0000
@@ -557,7 +557,8 @@
       /* Get the face-code of the next GLYPH.  */
       int cf, len;
       GLYPH g = *gp;
-      int ch, first_ch, charset;
+      int ch, charset;
+      Lisp_Object first_ch;
       /* HIGHEST and LOWEST are used while drawing a composite
          character.  The meanings are described later.  */
       int highest, lowest;
@@ -565,7 +566,7 @@
       GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
       cf = (cmpcharp ? cmpcharp->face_work : FAST_GLYPH_FACE (g));
       ch = FAST_GLYPH_CHAR (g);
-      if (gidx == 0) first_ch = ch;
+      if (gidx == 0) XSETFASTINT (first_ch, ch);
       charset = CHAR_CHARSET (ch);
       if (charset == CHARSET_COMPOSITION)
 	{