From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 4 Dec 2006 16:09:21 +0000 (+0000)
Subject: (facemenu-unlisted-faces): Define as obsolete variable.
X-Git-Tag: emacs-pretest-22.0.92~301
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed50f0d2334b6215a1f0514a8c4a1abebe9f100b;p=emacs.git

(facemenu-unlisted-faces): Define as obsolete variable.
---

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.