From f32318377bef5e5b07c0396fd77c3c7b0c107c82 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Sat, 8 Apr 2000 19:33:36 +0000 Subject: [PATCH] (make_fontset_for_ascii_face): Use XINT on return value. (Fset_fontset_font): Use EQ to compare lisp objects. --- src/fontset.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fontset.c b/src/fontset.c index 0259b3e310d..00b605a6496 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -516,7 +516,7 @@ make_fontset_for_ascii_face (f, base_fontset_id) base_fontset = Vdefault_fontset; fontset = make_fontset (frame, Qnil, base_fontset); - return FONTSET_ID (fontset); + return XINT (FONTSET_ID (fontset)); } @@ -1032,7 +1032,7 @@ of a font for CHAR.") 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", -- 2.39.5