Add optional inherit argument to 'face-all-attributes' (bug#77945)

* lisp/faces.el (face-all-attributes): Add 'inherit' argument
and pass to 'face-attribute'.

3 files changed, 23 insertions, 12 deletions

diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index 3b48cb93405..55652682505 100644
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -3186,18 +3186,21 @@ For example:
 @end example
 @end defun
 
-@defun face-all-attributes face &optional frame
+@defun face-all-attributes face &optional frame inherit
 This function returns an alist of attributes of @var{face}.  The
 elements of the result are name-value pairs of the form
 @w{@code{(@var{attr-name} . @var{attr-value})}}.  Optional argument
 @var{frame} specifies the frame whose definition of @var{face} to
 return; if omitted or @code{nil}, the returned value describes the
 default attributes of @var{face} for newly created frames, i.e.@: the
-values these attributes have before applying the face spec in the
-face's @code{defface} definition or the spec set by
-@code{face-spec-set}.  These default values of the attributes are
-normally @code{unspecified}, unless you have specified some other
-value using @code{set-face-attribute}; see below.
+values these attributes have before applying the face spec in the face's
+@code{defface} definition or the spec set by @code{face-spec-set}.
+These default values of the attributes are normally @code{unspecified},
+unless you have specified some other value using
+@code{set-face-attribute}; see below.  The optional argument
+@var{inherit} has the same meaning as the same argument to
+@code{face-attribute}, which see.  This is useful when you want the face
+attributes to be absolute and not @code{unspecified}.
 @end defun
 
 @defun merge-face-attribute attribute value1 value2
diff --git a/etc/NEWS b/etc/NEWS
index 0ecd911633c..04b3386aacd 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2057,6 +2057,13 @@ This option tells 'flash-face-bell-function' and
 'flash-echo-area-bell-function' which face attributes should be used
 for flash.
 
++++
+*** 'face-all-attributes' now accepts an optional inherit argument.
+'inherit' has the same meaning as the same argument to 'face-attribute',
+which already takes this argument for a single attribute.  This is
+useful when you want the face attributes to be absolute and not
+'unspecified'.
+
 ---
 ** Flymake
 
diff --git a/lisp/faces.el b/lisp/faces.el
index dbc0a2e04f6..3b48c243587 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -442,15 +442,16 @@ If `inhibit-x-resources' is non-nil, this function does nothing."
   (symbol-name (check-face face)))
 
 
-(defun face-all-attributes (face &optional frame)
+(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."
+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."
   (mapcar (lambda (pair)
             (let ((attr (car pair)))
-              (cons attr (face-attribute face attr (or frame t)))))
+              (cons attr (face-attribute face attr (or frame t) inherit))))
           face-attribute-name-alist))
 
 (defun face-attribute (face attribute &optional frame inherit)