andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/face-remap.el (internal-lisp-face-attributes): Updated the
vector members to match the real member names. (Bug#37806) (Bug#37824)
This commit is contained in:
Jimmy Aguilar Mena 2019-10-20 15:54:18 +02:00
parent 3aa8f4d44c
commit 270ca8c273
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/face-remap.el
View file

@ -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