From ed50f0d2334b6215a1f0514a8c4a1abebe9f100b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Dec 2006 16:09:21 +0000 Subject: [PATCH] (facemenu-unlisted-faces): Define as obsolete variable. --- lisp/facemenu.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 3db19342304..a489244728c 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -132,6 +132,16 @@ just before \"Other\" at the end." :type 'boolean :group 'facemenu) +(defvar facemenu-unlisted-faces + `(modeline region secondary-selection highlight scratch-face + ,(purecopy "^font-lock-") ,(purecopy "^gnus-") ,(purecopy "^message-") + ,(purecopy "^ediff-") ,(purecopy "^term-") ,(purecopy "^vc-") + ,(purecopy "^widget-") ,(purecopy "^custom-") ,(purecopy "^vm-")) + "*List of faces that are of no interest to the user. +This variable is obsolete, and has no effect on the Face menu. +Use the variable `facemenu-listed-faces' instead.") +(make-obsolete-variable 'facemenu-unlisted-faces 'facemenu-listed-faces) + (defcustom facemenu-listed-faces nil "*List of faces to include in the Face menu. Each element should be a symbol, the name of a face. -- 2.39.2