# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 976191248 0
# Node ID 7b91d8c3787f17073c6c36dc3d07de4fa4bd0578
# Parent  8b1375dbcbc6844114698865429bb1f980995b27
 (facemenu-unlisted-faces): Fix value.

diff -r 8b1375dbcbc6 -r 7b91d8c3787f lisp/facemenu.el
--- a/lisp/facemenu.el	Thu Dec 07 12:12:08 2000 +0000
+++ b/lisp/facemenu.el	Thu Dec 07 12:14:08 2000 +0000
@@ -136,10 +136,10 @@
   :group 'facemenu)
 
 (defcustom 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-"))
+  `(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 not to include in the Face menu.
 Each element may be either a symbol, which is the name of a face, or a string,
 which is a regular expression to be matched against face names.  Matching