From 1ff4ace5850fad676c226c8d2753efee7faed50a Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 8 Jul 2002 01:21:41 +0000
Subject: Move `provide' to the end. (facemenu-read-color): Don't cons
 unnecessarily.

---
 lisp/facemenu.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lisp/facemenu.el')

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index ca81ebec67d..37399e0d901 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -86,8 +86,6 @@
 
 ;;; Code:
 
-(provide 'facemenu)
-
 (eval-when-compile 
   (require 'help)
   (require 'button))
@@ -466,7 +464,7 @@ These special properties include `invisible', `intangible' and `read-only'."
   "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 @@ Returns the non-nil value it found, or nil if all were nil."
 
 (facemenu-update)
 
+(provide 'facemenu)
 ;;; facemenu.el ends here
-- 
cgit v1.2.1