andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2002-05-20 18:28:09 +00:00
parent d7b590b151
commit 451a66e356
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/wid-edit.el
View file

@ -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."))