(defun face-all-attributes (face &optional frame inherit)
"Return an alist stating the attributes of FACE.
-Each element of the result has the form (ATTR-NAME . ATTR-VALUE). If
-FRAME is omitted or nil the value describes the default attributes, but
-if you specify FRAME, the value describes the attributes of FACE on
-FRAME. INHERIT has the same meaning as the same argument to
-`face-attribute', which see."
+Each element of the result has the form (ATTR-NAME . ATTR-VALUE).
+If FRAME is omitted or nil the value describes the default attributes,
+but if you specify FRAME, the value describes the attributes of FACE
+on FRAME.
+INHERIT has the same meaning as in `face-attribute', which see."
(mapcar (lambda (pair)
(let ((attr (car pair)))
(cons attr (face-attribute face attr (or frame t) inherit))))