master 6c3869a104: Add a new `vtable' face

[Lars Ingebrigtsen]

branch: master
commit 6c3869a104075403b10130294e7f307143e09a73
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add a new `vtable' face
    
    * doc/misc/vtable.texi (Introduction): Document it.
    
    * lisp/emacs-lisp/vtable.el (vtable): Add a new face.
---
 doc/misc/vtable.texi      | 12 ++++++------
 lisp/emacs-lisp/vtable.el |  8 +++++++-
 2 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/doc/misc/vtable.texi b/doc/misc/vtable.texi
index 48e6301fce..4f7b722a28 100644
--- a/doc/misc/vtable.texi
+++ b/doc/misc/vtable.texi
@@ -88,9 +88,9 @@ Here's just about the simplest vtable that can be created:
             ("Gazonk" 45)))
 @end lisp
 
-By default, vtable uses the @code{variable-pitch} font, and
-right-aligns columns that have only numerical data (and left-aligns
-the rest).
+By default, vtable uses the @code{vtable} face (which inherits from
+the @code{variable-pitch} face), and right-aligns columns that have
+only numerical data (and left-aligns the rest).
 
 You'd normally want to name the columns:
 
@@ -383,9 +383,9 @@ there are several tables in the same buffer, then this 
should be
 @code{nil}.
 
 @item :face
-The face to be used.  This defaults to @code{variable-pitch}.  This
-face doesn't override the faces in the data, or the faces supplied by
-the getter and formatter functions.
+The face to be used.  This defaults to @code{vtable}.  This face
+doesn't override the faces in the data, or the faces supplied by the
+getter and formatter functions.
 
 @item :column-colors
 If present, this should be a list of color names to be used as the
diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index 98106e4670..3e521c94a5 100644
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -28,6 +28,12 @@
 (require 'text-property-search)
 (require 'mule-util)
 
+(defface vtable
+  '((t :inherit variable-pitch))
+  "Face used (by default) for vtables."
+  :version "29.1"
+  :group 'faces)
+
 (cl-defstruct vtable-column
   "A vtable column."
   name
@@ -79,7 +85,7 @@
                             formatter
                             displayer
                             (use-header-line t)
-                            (face 'variable-pitch)
+                            (face 'vtable)
                             actions keymap
                             (separator-width 1)
                             sort-by