Commit 628436fb authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Finternal_set_lisp_face_attribute): If FRAME is 0,

change face on all frames, and change the default for new frames.
parent 70a267c9
...@@ -3631,10 +3631,11 @@ Value is TO.") ...@@ -3631,10 +3631,11 @@ Value is TO.")
DEFUN ("internal-set-lisp-face-attribute", Finternal_set_lisp_face_attribute, DEFUN ("internal-set-lisp-face-attribute", Finternal_set_lisp_face_attribute,
Sinternal_set_lisp_face_attribute, 3, 4, 0, Sinternal_set_lisp_face_attribute, 3, 4, 0,
"Set attribute ATTR of FACE to VALUE.\n\ "Set attribute ATTR of FACE to VALUE.\n\
If optional argument FRAME is given, set the face attribute of face FACE\n\ FRAME being a frame means change the face on that frame.\n\
on that frame. If FRAME is t, set the attribute of the default for face\n\ FRAME nil means change change the face of the selected frame.\n\
FACE (for new frames). If FRAME is omitted or nil, use the selected\n\ FRAME t means change the default for new frames.\n\
frame.") FRAME 0 means change the face on all frames, and change the default\n\
for new frames.")
(face, attr, value, frame) (face, attr, value, frame)
Lisp_Object face, attr, value, frame; Lisp_Object face, attr, value, frame;
{ {
...@@ -3650,6 +3651,16 @@ frame.") ...@@ -3650,6 +3651,16 @@ frame.")
face = resolve_face_name (face); face = resolve_face_name (face);
/* If FRAME is 0, change face on all frames, and change the
default for new frames. */
if (INTEGERP (frame) && XINT (frame) == 0)
{
Lisp_Object tail;
FOR_EACH_FRAME (tail, frame)
Finternal_set_lisp_face_attribute (face, attr, value, frame);
return Finternal_set_lisp_face_attribute (face, attr, value, Qt);
}
/* Set lface to the Lisp attribute vector of FACE. */ /* Set lface to the Lisp attribute vector of FACE. */
if (EQ (frame, Qt)) if (EQ (frame, Qt))
lface = lface_from_face_name (NULL, face, 1); lface = lface_from_face_name (NULL, face, 1);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment