From 96f58718a043bb50408592aa1975721396de274e Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Thu, 25 Nov 2021 18:07:04 +0100 Subject: [PATCH] Correct the :inherit property on some faces 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. --- lisp/ansi-color.el | 6 +++--- lisp/faces.el | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el index 2e51264ec39..c962cbd4780 100644 --- a/lisp/ansi-color.el +++ b/lisp/ansi-color.el @@ -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") diff --git a/lisp/faces.el b/lisp/faces.el index e9f795caad2..38feefba480 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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 -- 2.39.5