From: Jimmy Aguilar Mena <spacibba@aol.com>
Date: Sun, 20 Oct 2019 13:54:18 +0000 (+0200)
Subject: Fix internal-lisp-face-attributes to match face.
X-Git-Tag: emacs-27.0.90~954
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=270ca8c2735cfc7935b9e4d0b770a55138493ef3;p=emacs.git

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 5cdecb92ee0..f2ff2ec6f1f 100644
--- 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