From 451a66e356a2a5d8ded0a9186bc8f83ddccb5254 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 20 May 2002 18:28:09 +0000
Subject: [PATCH] (widget-color-complete): Don't cons needlessly.

---
 lisp/wid-edit.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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."))
-- 
2.11.4.GIT