mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 16:21:07 -08:00
Code Issues Projects Releases Wiki Activity

* xfaces.c (Finternal_set_lisp_face_attribute): Use

Browse source 
:ignore-defface for new frame defaults when `unspecified' is
	supplied.
	(Finternal_get_lisp_face_attribute): Hide :ignore-defface.
This commit is contained in:
Chong Yidong 2005-11-20 15:22:31 +00:00
parent cbce075240
commit 0268cef3fa
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/ChangeLog
View file

@ -1,3 +1,10 @@
2005-11-20 Chong Yidong <cyd@stupidchicken.com>
* xfaces.c (Finternal_set_lisp_face_attribute): Use
:ignore-defface for new frame defaults when `unspecified' is
supplied.
(Finternal_get_lisp_face_attribute): Hide :ignore-defface.
2005-11-20 Juri Linkov <juri@jurta.org>
* charset.c (invalid_character): Use Lisp-readable syntax

9
src/xfaces.c
View file

@ -4054,7 +4054,11 @@ FRAME 0 means change the face on all frames, and change the default
/* Set lface to the Lisp attribute vector of FACE. */
if (EQ (frame, Qt))
lface = lface_from_face_name (NULL, face, 1);
{
lface = lface_from_face_name (NULL, face, 1);
if (UNSPECIFIEDP (value))
value = Qignore_defface;
}
else
{
if (NILP (frame))
@ -4880,6 +4884,9 @@ frames). If FRAME is omitted or nil, use the selected frame. */)
else
signal_error ("Invalid face attribute name", keyword);
if (IGNORE_DEFFACE_P (value))
return Qunspecified;
return value;
}