andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Kenichi Handa 1997-03-18 23:16:27 +00:00
parent 9a0ce8ca2a
commit 3aa3a18c9c
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/faces.el
View file

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