From a4391cf10104fdf17a9ae69e4d9ecd22271c1490 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 13 Sep 1999 13:59:58 +0000 Subject: [PATCH] (mode-line, header-line, tool-bar, ): Add :version. (highlight, secondary-selection): Add :group. (trailing-whitespace): Add :group, :version. --- lisp/faces.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index bbf037aabac..2993214d795 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1358,6 +1358,7 @@ created." (t (:inverse-video t))) "Basic mode line face." + :version "21.1" :group 'basic-faces) ;; Make `modeline' an alias for `mode-line', for compatibility. @@ -1369,6 +1370,7 @@ created." (t (:inverse-video t))) "Basic header-line face." + :version "21.1" :group 'basic-faces) @@ -1380,6 +1382,7 @@ created." (t ())) "Basic tool-bar face." + :version "21.1" :group 'basic-faces) @@ -1459,7 +1462,8 @@ created." (((class color) (background dark)) (:background "darkolivegreen")) (t (:inverse-video t))) - "Basic face for highlighting.") + "Basic face for highlighting." + :group 'basic-faces) (defface secondary-selection @@ -1470,7 +1474,8 @@ created." (((class color) (background dark)) (:background "darkslateblue")) (t (:inverse-video t))) - "Basic face for displaying the secondary selection.") + "Basic face for displaying the secondary selection." + :group 'basic-faces) (defface fixed-pitch '((t (:family "courier*"))) @@ -1489,7 +1494,9 @@ created." (((class color) (background dark)) (:background "red")) (t (:inverse-video t))) - "Basic face for highlighting trailing whitespace.") + "Basic face for highlighting trailing whitespace." + :version "21.1" + :group 'basic-faces) -- 2.39.5