# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1203201169 0
# Node ID 507af35dceadcfef7fb123a07505b67fed368405
# Parent  a6f6f87e8b09f3b8e4ae61f62a921450c25c9d04
(Finternal_char_font): Fix compilation warning.

diff -r a6f6f87e8b09 -r 507af35dcead src/fontset.c
--- a/src/fontset.c	Sat Feb 16 22:21:45 2008 +0000
+++ b/src/fontset.c	Sat Feb 16 22:32:49 2008 +0000
@@ -2065,10 +2065,13 @@
 	  struct font *font = XSAVE_VALUE (font_object)->pointer;
 	  unsigned code = font->driver->encode_char (font, c);
 	  Lisp_Object fontname = font_get_name (font_object);
+	  /* Assignment to EMACS_INT stops GCC whining about limited range
+	     of data type.  */
+	  EMACS_INT cod = code;
 
 	  if (code == FONT_INVALID_CODE)
 	    return Qnil;
-	  if (code <= MOST_POSITIVE_FIXNUM)
+	  if (cod <= MOST_POSITIVE_FIXNUM)
 	    return Fcons (fontname, make_number (code));
 	  return Fcons (fontname, Fcons (make_number (code >> 16),
 					 make_number (code & 0xFFFF)));