X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/fb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5..78f3273aab4817ead42af0db41e703dc7e90260b:/lisp/facemenu.el

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index e76b61fdac..bcef25eb89 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -127,15 +127,6 @@ 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.")
-(make-obsolete-variable 'facemenu-unlisted-faces 'facemenu-listed-faces
-			"22.1,\n  and has no effect on the Face menu")
-
 (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.