Mercurial > emacs

changeset 89002:705b93129869

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(main): In the case of --unibyte, instead of aborting on finding non-empty buffer, make it unibyte.
author Kenichi Handa <handa@m17n.org>
date Mon, 19 Aug 2002 06:11:15 +0000
parents f595663c7323
children 313a80e39c2a
files src/xterm.c
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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);
     }