(set-face-font): Allow specifing fontset for the arg FONT.

diff --git a/lisp/faces.el b/lisp/faces.el
index 26b2691e288b62e2b61c3f9c455cd7f8cf1284c8..438f80adb072109b659f4f93cc0017c76f212f1d 100644 (file)
--- 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)