* faces.el (read-color): Minor fix for completion function.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bf446bc7b66..416f9a8b685 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-12-20  Chong Yidong  <cyd@gnu.org>
+
+        * faces.el (read-color): Minor fix for completion function.
+
 2013-12-20  Dmitry Gutov  <dgutov@yandex.ru>
 
         * progmodes/ruby-mode.el (ruby-align-to-stmt-keywords): New
diff --git a/lisp/faces.el b/lisp/faces.el
index 3797056b167..14be52a717c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1836,7 +1836,7 @@ resulting color name in the echo area."
                          (if (color-defined-p string)
                              (list string))))
                     ((eq flag 'lambda) ; Test completion.
-                     (or (memq string colors)
+                     (or (member string colors)
                          (color-defined-p string)))))
                  nil t)))