/[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.322 by mituharu, Wed Jun 1 08:21:25 2005 UTC revision 1.323 by lektu, Fri Jun 3 10:39:29 2005 UTC
# Line 5022  lface_equal_p (v1, v2) Line 5022  lface_equal_p (v1, v2)
5022  DEFUN ("internal-lisp-face-equal-p", Finternal_lisp_face_equal_p,  DEFUN ("internal-lisp-face-equal-p", Finternal_lisp_face_equal_p,
5023         Sinternal_lisp_face_equal_p, 2, 3, 0,         Sinternal_lisp_face_equal_p, 2, 3, 0,
5024         doc: /* True if FACE1 and FACE2 are equal.         doc: /* True if FACE1 and FACE2 are equal.
5025  If the optional argument FRAME is given, report on face FACE in that frame.  If the optional argument FRAME is given, report on FACE1 and FACE2 in that frame.
5026  If FRAME is t, report on the defaults for face FACE (for new frames).  If FRAME is t, report on the defaults for FACE1 and FACE2 (for new frames).
5027  If FRAME is omitted or nil, use the selected frame.  */)  If FRAME is omitted or nil, use the selected frame.  */)
5028       (face1, face2, frame)       (face1, face2, frame)
5029       Lisp_Object face1, face2, frame;       Lisp_Object face1, face2, frame;
# Line 5041  If FRAME is omitted or nil, use the sele Line 5041  If FRAME is omitted or nil, use the sele
5041         Emacs.  That frame is not an X frame.  */         Emacs.  That frame is not an X frame.  */
5042      f = frame_or_selected_frame (frame, 2);      f = frame_or_selected_frame (frame, 2);
5043    
5044    lface1 = lface_from_face_name (NULL, face1, 1);    lface1 = lface_from_face_name (f, face1, 1);
5045    lface2 = lface_from_face_name (NULL, face2, 1);    lface2 = lface_from_face_name (f, face2, 1);
5046    equal_p = lface_equal_p (XVECTOR (lface1)->contents,    equal_p = lface_equal_p (XVECTOR (lface1)->contents,
5047                             XVECTOR (lface2)->contents);                             XVECTOR (lface2)->contents);
5048    return equal_p ? Qt : Qnil;    return equal_p ? Qt : Qnil;

Legend:
Removed from v.1.322  
changed lines
  Added in v.1.323

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