/[emacs]/emacs/src/xfaces.c
ViewVC logotype

Diff of /emacs/src/xfaces.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.225.4.2 by gerd, Wed Oct 31 11:13:25 2001 UTC revision 1.225.4.3 by gerd, Thu Nov 1 10:14:28 2001 UTC
# Line 4391  DEFUN ("internal-set-lisp-face-attribute Line 4391  DEFUN ("internal-set-lisp-face-attribute
4391      value = face_boolean_x_resource_value (value, 1);      value = face_boolean_x_resource_value (value, 1);
4392    else if (EQ (attr, QCunderline)    else if (EQ (attr, QCunderline)
4393             || EQ (attr, QCoverline)             || EQ (attr, QCoverline)
4394             || EQ (attr, QCstrike_through)             || EQ (attr, QCstrike_through))
            || EQ (attr, QCbox))  
4395      {      {
4396        Lisp_Object boolean_value;        Lisp_Object boolean_value;
4397    
# Line 4402  DEFUN ("internal-set-lisp-face-attribute Line 4401  DEFUN ("internal-set-lisp-face-attribute
4401        if (SYMBOLP (boolean_value))        if (SYMBOLP (boolean_value))
4402          value = boolean_value;          value = boolean_value;
4403      }      }
4404      else if (EQ (attr, QCbox))
4405        value = Fcar (Fread_from_string (value, Qnil, Qnil));
4406    
4407    return Finternal_set_lisp_face_attribute (face, attr, value, frame);    return Finternal_set_lisp_face_attribute (face, attr, value, frame);
4408  }  }

Legend:
Removed from v.1.225.4.2  
changed lines
  Added in v.1.225.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26