From 3aa3a18c9cfccc9bdff6527f3a8a81aeca738819 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 18 Mar 1997 23:16:27 +0000 Subject: [PATCH] (set-face-font): Allow specifing fontset for the arg FONT. --- lisp/faces.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/faces.el b/lisp/faces.el index 26b2691e288..438f80adb07 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -116,7 +116,9 @@ If FRAME is omitted or nil, use the selected frame." If the optional FRAME argument is provided, change only in that frame; otherwise change each frame." (interactive (internal-face-interactive "font")) - (if (stringp font) (setq font (x-resolve-font-name font 'default frame))) + (if (stringp font) + (setq font (or (query-fontset font) + (x-resolve-font-name font 'default frame)))) (internal-set-face-1 face 'font font 3 frame)) (defun set-face-foreground (face color &optional frame) -- 2.39.5