mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Correct the :inherit property on some faces

Browse source 
Otherwise M-x customize-face will show them as lisp-expressions rather
than nice widgets.

* lisp/ansi-color.el (ansi-color-bold):
(ansi-color-italic):
(ansi-color-underline):
* lisp/faces.el (mode-line): Don't quote the face we're inheriting
from.
This commit is contained in:
Robert Pluim 2021-11-25 18:07:04 +01:00
parent b711847f59
commit 96f58718a0
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ansi-color.el
View file

@ -91,7 +91,7 @@ as a PDF file."
:group 'processes)
(defface ansi-color-bold
'((t :inherit 'bold))
'((t :inherit bold))
"Face used to render bold text."
:group 'ansi-colors
:version "28.1")
@ -103,13 +103,13 @@ as a PDF file."
:version "28.1")
(defface ansi-color-italic
'((t :inherit 'italic))
'((t :inherit italic))
"Face used to render italic text."
:group 'ansi-colors
:version "28.1")
(defface ansi-color-underline
'((t :inherit 'underline))
'((t :inherit underline))
"Face used to render underlined text."
:group 'ansi-colors
:version "28.1")

4
lisp/faces.el
View file

@ -2611,11 +2611,11 @@ non-nil."
(defface mode-line
'((((class color) (min-colors 88))
:box (:line-width -1 :style released-button)
:inherit 'variable-pitch
:inherit variable-pitch
:background "grey75" :foreground "black")
(t
:inverse-video t
:inherit 'variable-pitch))
:inherit variable-pitch))
"Basic mode line face for selected window."
:version "21.1"
:group 'mode-line-faces