summaryrefslogtreecommitdiff
path: root/lisp/face-remap.el
diff options
context:
space:
mode:
authorJimmy Aguilar Mena <spacibba@aol.com>2019-10-20 15:54:18 +0200
committerJimmy Aguilar Mena <spacibba@aol.com>2019-10-20 16:45:21 +0200
commit270ca8c2735cfc7935b9e4d0b770a55138493ef3 (patch)
tree566fee0b005b2c05885748d9a1b6da5bbbc4178c /lisp/face-remap.el
parent3aa8f4d44c33d71b815e4e94c02d5ec13cfd6372 (diff)
downloademacs-270ca8c2735cfc7935b9e4d0b770a55138493ef3.tar.gz
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)
Diffstat (limited to 'lisp/face-remap.el')
-rw-r--r--lisp/face-remap.el8
1 files changed, 5 insertions, 3 deletions
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