# HG changeset patch
# User Boris Goldowsky <boris@gnu.org>
# Date 797615813 0
# Node ID 874b91f4adc4cc24770b5d08d62cfca62cc335c9
# Parent  b945fc51a3b608b7d0fc7c8f6e8932b92bc2a3cc
(facemenu-read-color): Don't ignore PROMPT arg.  Make arg optional.
(facemenu-unlisted-faces): Add font-lock faces to default value.

diff -r b945fc51a3b6 -r 874b91f4adc4 lisp/facemenu.el
--- a/lisp/facemenu.el	Tue Apr 11 03:04:38 1995 +0000
+++ b/lisp/facemenu.el	Tue Apr 11 15:56:53 1995 +0000
@@ -124,7 +124,10 @@
 just before \"Other\" at the end.")
 
 (defvar facemenu-unlisted-faces
-  '(modeline region secondary-selection highlight scratch-face)
+  '(modeline region secondary-selection highlight scratch-face
+    font-lock-comment-face font-lock-string-face font-lock-keyword-face
+    font-lock-function-name-face font-lock-variable-name-face
+    font-lock-type-face font-lock-reference-face)
   "List of faces not to include in the Face menu.
 Set this before loading facemenu.el, or call `facemenu-update' after
 changing it.
@@ -375,9 +378,9 @@
 	  (setq props (cdr (cdr props))))))))
 
 ;;;###autoload
-(defun facemenu-read-color (prompt)
+(defun facemenu-read-color (&optional prompt)
   "Read a color using the minibuffer."
-  (let ((col (completing-read (or  "Color: ") 
+  (let ((col (completing-read (or prompt "Color: ") 
 			      (or facemenu-color-alist
 				  (if (eq 'x window-system)
 				      (mapcar 'list (x-defined-colors))))