From: Kenichi Handa <handa@m17n.org>
Date: Fri, 27 Sep 2002 04:51:34 +0000 (+0000)
Subject: (x_new_fontset): If FONTSETNAME specifies the default
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~324
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a92bf2cbf09f8cee1aa099344cdd838af72f0058;p=emacs.git

(x_new_fontset): If FONTSETNAME specifies the default
fontset, return Qt.
---

diff --git a/src/xterm.c b/src/xterm.c
index cc9942893d9..2331cdcfdd2 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -12263,7 +12263,10 @@ x_new_font (f, fontname)
 /* Give frame F the fontset named FONTSETNAME as its default font, and
    return the full name of that fontset.  FONTSETNAME may be a wildcard
    pattern; in that case, we choose some fontset that fits the pattern.
-   The return value shows which fontset we chose.  */
+   The return value shows which fontset we chose.  
+   If FONTSETNAME specifies the default fontset, return Qt.
+   If an ASCII font specified in the specified fontset can't be
+   loaded, return Qnil.  */
 
 Lisp_Object
 x_new_fontset (f, fontsetname)
@@ -12273,10 +12276,13 @@ x_new_fontset (f, fontsetname)
   int fontset = fs_query_fontset (build_string (fontsetname), 0);
   Lisp_Object result;
 
-  if (fontset >= 0 && f->output_data.x->fontset == fontset)
+  if (fontset > 0 && f->output_data.x->fontset == fontset)
     /* This fontset is already set in frame F.  There's nothing more
        to do.  */
     return fontset_name (fontset);
+  else if (fontset == 0)
+    /* The default fontset can't be the default font.   */
+    return Qt;
 
   if (fontset >= 0)
     result = x_new_font (f, (XSTRING (fontset_ascii (fontset))->data));