# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1021919289 0
# Node ID 9133a6a4abf8240f5cb1b51cc81c13f67f68b7e4
# Parent  784a17ff49988df2e431998435c2200b2882280e
(widget-color-complete): Don't cons needlessly.

diff -r 784a17ff4998 -r 9133a6a4abf8 lisp/wid-edit.el
--- a/lisp/wid-edit.el	Mon May 20 17:29:37 2002 +0000
+++ b/lisp/wid-edit.el	Mon May 20 18:28:09 2002 +0000
@@ -3412,8 +3412,7 @@
   (require 'facemenu)			; for facemenu-color-alist
   (let* ((prefix (buffer-substring-no-properties (widget-field-start widget)
 						 (point)))
-	 (list (or facemenu-color-alist
-		   (mapcar 'list (defined-colors))))
+	 (list (or facemenu-color-alist (defined-colors)))
 	 (completion (try-completion prefix list)))
     (cond ((eq completion t)
 	   (message "Exact match."))