Mercurial > emacs

changeset 17173:84aa6682810b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-face-font): Allow specifing fontset for the arg FONT.
author Kenichi Handa <handa@m17n.org>
date Tue, 18 Mar 1997 23:16:27 +0000
parents 1798b476d58b
children 9c1191812679
files lisp/faces.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Tue Mar 18 23:14:07 1997 +0000
+++ b/lisp/faces.el	Tue Mar 18 23:16:27 1997 +0000
@@ -116,7 +116,9 @@
 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)