mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(x-create-frame-with-faces): If an ASCII font is

Browse Source 
specified in PARAMETERS, create a fontset from the font and use it
for the new frame.
This commit is contained in:
Kenichi Handa 1998-07-03 04:39:22 +00:00
parent 1390393209
commit 53caf287d1
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/faces.el
View File

@ -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