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; |
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; |