# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1029737475 0
# Node ID 705b93129869138798fdda297209b4c4e12627ae
# Parent  f595663c73234f0a81b345007b4db71acf69d7b6
(main): In the case of --unibyte, instead of aborting on finding
non-empty buffer, make it unibyte.

diff -r f595663c7323 -r 705b93129869 src/xterm.c
--- a/src/xterm.c	Sun Aug 18 16:57:27 2002 +0000
+++ b/src/xterm.c	Mon Aug 19 06:11:15 2002 +0000
@@ -12289,10 +12289,14 @@
 
   if (fontset < 0)
     {
-      Lisp_Object fontlist;
-
-      fontlist = Fcons (Fcons (Qascii, Fcons (result, Qnil)), Qnil);
-      Fnew_fontset (result, fontlist);
+      Lisp_Object func;
+
+      func = intern ("create-fontset-from-ascii-font");
+      if (! NILP (Ffboundp (func)))
+	result = call2 (func, result, result);
+      else
+	Fnew_fontset (result,
+		      Fcons (Fcons (Qascii, Fcons (result, Qnil)), Qnil));
       fontset = fs_query_fontset (result, 0);
     }