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.

diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el
index 2e51264ec39d5964c0da4693a2b688dae68ba2f5..c962cbd47801cb96fcf351c8ad7bf0e04fe8c3d5 100644 (file)
--- 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 e9f795caad2f6c8f5f48e6c0a0ee459b50fe5889..38feefba4803c441b33cb749cebf54597889546c 100644 (file)
--- 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