Commit 451a66e3 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent d7b590b1
......@@ -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."))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment