diff options
| author | Stefan Monnier | 2002-05-20 18:28:09 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-05-20 18:28:09 +0000 |
| commit | 451a66e356a2a5d8ded0a9186bc8f83ddccb5254 (patch) | |
| tree | 7b0074e885b6018e38ec72a2db07a270212a7a3f | |
| parent | d7b590b1519339b28afef0c28ca11b66eadaa203 (diff) | |
| download | emacs-451a66e356a2a5d8ded0a9186bc8f83ddccb5254.tar.gz emacs-451a66e356a2a5d8ded0a9186bc8f83ddccb5254.zip | |
(widget-color-complete): Don't cons needlessly.
| -rw-r--r-- | lisp/wid-edit.el | 3 |
1 files changed, 1 insertions, 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." | |||
| 3412 | (require 'facemenu) ; for facemenu-color-alist | 3412 | (require 'facemenu) ; for facemenu-color-alist |
| 3413 | (let* ((prefix (buffer-substring-no-properties (widget-field-start widget) | 3413 | (let* ((prefix (buffer-substring-no-properties (widget-field-start widget) |
| 3414 | (point))) | 3414 | (point))) |
| 3415 | (list (or facemenu-color-alist | 3415 | (list (or facemenu-color-alist (defined-colors))) |
| 3416 | (mapcar 'list (defined-colors)))) | ||
| 3417 | (completion (try-completion prefix list))) | 3416 | (completion (try-completion prefix list))) |
| 3418 | (cond ((eq completion t) | 3417 | (cond ((eq completion t) |
| 3419 | (message "Exact match.")) | 3418 | (message "Exact match.")) |