From ed9c5d97f48cacedd9caf0a7cf7913c4c2ec209f Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Mon, 19 Aug 2002 06:11:15 +0000
Subject: [PATCH] (main): In the case of --unibyte, instead of aborting on
 finding non-empty buffer, make it unibyte.

---
 src/xterm.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/xterm.c b/src/xterm.c
index e4b1349863d..cc9942893d9 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -12289,10 +12289,14 @@ x_new_fontset (f, fontsetname)
 
   if (fontset < 0)
     {
-      Lisp_Object fontlist;
+      Lisp_Object func;
 
-      fontlist = Fcons (Fcons (Qascii, Fcons (result, Qnil)), Qnil);
-      Fnew_fontset (result, fontlist);
+      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);
     }
 
-- 
2.39.2