Mercurial > emacs

changeset 22670:160c346d6192

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Kenichi Handa <handa@m17n.org>
date Fri, 03 Jul 1998 04:39:22 +0000
parents ea5a8ef23b45
children 5dee1f64801f
files lisp/faces.el
diffstat 1 files changed, 13 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Fri Jul 03 04:39:22 1998 +0000
+++ b/lisp/faces.el	Fri Jul 03 04:39:22 1998 +0000
@@ -1345,6 +1345,19 @@
 	  ;; 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