# HG changeset patch # User Kenichi Handa # Date 870328448 0 # Node ID c11b9b44e2336e2f8d637509f0454c287a0a1ea8 # Parent cad4c032fa26c8a465a02cfe7853132a8f347b6b (set-face-font-auto): Create a fontset if FONT is a fontset not instanciated fontset. diff -r cad4c032fa26 -r c11b9b44e233 lisp/faces.el --- a/lisp/faces.el Thu Jul 31 05:53:31 1997 +0000 +++ b/lisp/faces.el Thu Jul 31 05:54:08 1997 +0000 @@ -173,7 +173,9 @@ in that frame; otherwise change each frame." (interactive (internal-face-interactive "font")) (if (stringp font) - (setq font (or (query-fontset font) + (setq font (or (and (fontset-name-p font) + (or (query-fontset font) + (instanciate-fontset font))) (x-resolve-font-name font 'default frame)))) (internal-set-face-1 face 'font font 3 frame))