From 53caf287d1103f41f16bbb697c19aed16e9651ac Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 3 Jul 1998 04:39:22 +0000 Subject: [PATCH] (x-create-frame-with-faces): If an ASCII font is specified in PARAMETERS, create a fontset from the font and use it for the new frame. --- lisp/faces.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/lisp/faces.el b/lisp/faces.el index b1b269c084f..e4a10a115e1 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1345,6 +1345,19 @@ If FRAME is nil, the current FRAME is used." ;; Put the geometry parameters at the end. ;; Copy default-frame-alist so that they go after it. (setq parameters (append parameters default-frame-alist parsed))))) + + (if default-enable-multibyte-characters + ;; If an ASCII font is specified in PARAMETERS, we try to create + ;; a fontset from it, and use it for the new frame. + (condition-case nil + (let ((font (cdr (assq 'font parameters)))) + (if (and font + (not (query-fontset font))) + (setq parameters + (cons (cons 'font (create-fontset-from-ascii-font font)) + parameters)))) + (error nil))) + (let (frame) (if (null global-face-data) (progn -- 2.39.2