Mercurial > emacs
changeset 45427:9133a6a4abf8
(widget-color-complete): Don't cons needlessly.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 20 May 2002 18:28:09 +0000 |
| parents | 784a17ff4998 |
| children | ac7e0cc03aed |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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."))