mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(Finternal_set_lisp_face_attribute): The value of :box

Browse Source 
and :line-width can be negative.
(realize_x_face): The value of attrs[LFACE_BOX_INDEX] can be
negative.
This commit is contained in:
Kenichi Handa 2001-02-09 12:34:17 +00:00
parent ea2ba0d40e
commit 89624b8b7c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/xfaces.c
View File

@ -3876,7 +3876,7 @@ FRAME 0 means change the face on all frames, and change the default\n\
else if (NILP (value))
valid_p = 1;
else if (INTEGERP (value))
valid_p = XINT (value) > 0;
valid_p = XINT (value) != 0;
else if (STRINGP (value))
valid_p = XSTRING (value)->size > 0;
else if (CONSP (value))
@ -3897,7 +3897,7 @@ FRAME 0 means change the face on all frames, and change the default\n\
if (EQ (k, QCline_width))
{
if (!INTEGERP (v) || XINT (v) <= 0)
if (!INTEGERP (v) || XINT (v) == 0)
break;
}
else if (EQ (k, QCcolor))
@ -6418,9 +6418,9 @@ realize_x_face (cache, attrs, c, base_face)
{
/* Simple box of specified line width in foreground color of the
face. */
xassert (XINT (box) > 0);
xassert (XINT (box) != 0);
face->box = FACE_SIMPLE_BOX;
face->box_line_width = XFASTINT (box);
face->box_line_width = XINT (box);
face->box_color = face->foreground;
face->box_color_defaulted_p = 1;
}
@ -6447,8 +6447,8 @@ realize_x_face (cache, attrs, c, base_face)
if (EQ (keyword, QCline_width))
{
if (INTEGERP (value) && XINT (value) > 0)
face->box_line_width = XFASTINT (value);
if (INTEGERP (value) && XINT (value) != 0)
face->box_line_width = XINT (value);
}
else if (EQ (keyword, QCcolor))
{