# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1026091301 0
# Node ID 345d4d775bf0cee4f2d422ffda1f717b2816fee0
# Parent  2e162cb1a7acb70209338cfe1c574754ba86c78d
Move `provide' to the end.
(facemenu-read-color): Don't cons unnecessarily.

diff -r 2e162cb1a7ac -r 345d4d775bf0 lisp/facemenu.el
--- a/lisp/facemenu.el	Mon Jul 08 01:06:54 2002 +0000
+++ b/lisp/facemenu.el	Mon Jul 08 01:21:41 2002 +0000
@@ -86,8 +86,6 @@
 
 ;;; Code:
 
-(provide 'facemenu)
-
 (eval-when-compile 
   (require 'help)
   (require 'button))
@@ -466,7 +464,7 @@
   "Read a color using the minibuffer."
   (let ((col (completing-read (or prompt "Color: ") 
 			      (or facemenu-color-alist
-				  (mapcar 'list (defined-colors)))
+				  (defined-colors))
 			      nil t)))
     (if (equal "" col)
 	nil
@@ -735,4 +733,5 @@
 
 (facemenu-update)
 
+(provide 'facemenu)
 ;;; facemenu.el ends here