From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 20 May 2002 18:28:09 +0000 (+0000)
Subject: (widget-color-complete): Don't cons needlessly.
X-Git-Tag: ttn-vms-21-2-B4~14949
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=451a66e356a2a5d8ded0a9186bc8f83ddccb5254;p=emacs.git

(widget-color-complete): Don't cons needlessly.
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 59edfeff0bd..b168af703d2 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3412,8 +3412,7 @@ To use this type, you must define :match or :match-alternatives."
   (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."))