Fix internal-lisp-face-attributes to match face.

* lisp/face-remap.el (internal-lisp-face-attributes): Updated the
vector members to match the real member names. (Bug#37806) (Bug#37824)

diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index 5cdecb92ee018e76a96893921953b179bc0566d4..f2ff2ec6f1fff8e2607d817abaf260acaf226f88 100644 (file)
--- a/lisp/face-remap.el
+++ b/lisp/face-remap.el
@@ -64,12 +64,14 @@
 ;; Names of face attributes corresponding to lisp face-vector positions.
 ;; This variable should probably be defined in C code where the actual
 ;; definitions are available.
+;; :vector must be always at the end as a guard
 ;;
 (defvar internal-lisp-face-attributes
   [nil
-   :family :foundry :swidth :height :weight :slant :underline :inverse
-   :foreground :background :stipple :overline :strike :box
-   :font :inherit :fontset :vector])
+   :family :foundry :width :height :weight :slant :underline
+   :inverse-video
+   :foreground :background :stipple :overline :strike-through :box
+   :font :inherit :fontset :distant-foreground :extend :vector])
 
 (defun face-attrs-more-relative-p (attrs1 attrs2)
   "Return true if ATTRS1 contains a greater number of relative