comparison lisp/faces.el @ 18919:fd6c9bd9ca6b

(set-face-font-explicit): Call internal-set-face-1 properly.
author Richard M. Stallman <rms@gnu.org>
date Wed, 23 Jul 1997 04:22:58 +0000
parents 825fe2874454
children 5aa5fcdc25c1
comparison
equal deleted inserted replaced
18918:0e0935f23d39 18919:fd6c9bd9ca6b
178 178
179 (defun set-face-font-explicit (face flag &optional frame) 179 (defun set-face-font-explicit (face flag &optional frame)
180 "Set the explicit-font flag of face FACE to FLAG. 180 "Set the explicit-font flag of face FACE to FLAG.
181 If the optional FRAME argument is provided, change only 181 If the optional FRAME argument is provided, change only
182 in that frame; otherwise change each frame." 182 in that frame; otherwise change each frame."
183 (internal-set-face-1 face 'font flag 9 frame)) 183 (internal-set-face-1 face nil flag 9 frame))
184 184
185 (defun set-face-foreground (face color &optional frame) 185 (defun set-face-foreground (face color &optional frame)
186 "Change the foreground color of face FACE to COLOR (a string). 186 "Change the foreground color of face FACE to COLOR (a string).
187 If the optional FRAME argument is provided, change only 187 If the optional FRAME argument is provided, change only
188 in that frame; otherwise change each frame." 188 in that frame; otherwise change each frame."