# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 955222416 0
# Node ID 7a9707590ccd02c156dcf2647191e98072f390e6
# Parent  6fb7a3864791c4eaaac050d91e847cd643e1efbd
(make_fontset_for_ascii_face): Use XINT on return value.
(Fset_fontset_font): Use EQ to compare lisp objects.

diff -r 6fb7a3864791 -r 7a9707590ccd src/fontset.c
--- a/src/fontset.c	Fri Apr 07 16:10:04 2000 +0000
+++ b/src/fontset.c	Sat Apr 08 19:33:36 2000 +0000
@@ -516,7 +516,7 @@
     base_fontset = Vdefault_fontset;
 
   fontset = make_fontset (frame, Qnil, base_fontset);
-  return FONTSET_ID (fontset);
+  return XINT (FONTSET_ID (fontset));
 }
 
 
@@ -1032,7 +1032,7 @@
 
   CHECK_STRING (fontname, 2);
   fontname = Fdowncase (fontname);
-  if (fontset == Vdefault_fontset)
+  if (EQ (fontset, Vdefault_fontset))
     {
       if (!check_registry_encoding (fontname))
 	error ("Invalid registry and encoding name: %s",