From 61fa05942bbd9518cb0cee04ef436c3bf6a715ea Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 25 Sep 2012 11:45:38 -0700
Subject: [PATCH] ui.tools.listener.completion: fix row color for words in our
search list.
---
basis/ui/tools/listener/completion/completion.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index b01f61c43d..840d2030d0 100644
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -70,7 +70,7 @@ M: definition-completion row-columns
M: word-completion row-color
[ vocabulary>> ] [ manifest>> ] bi* {
{ [ dup not ] [ COLOR: black ] }
- { [ 2dup search-vocabs>> member-eq? ] [ COLOR: black ] }
+ { [ 2dup search-vocab-names>> keys member? ] [ COLOR: black ] }
{ [ over ".private" tail? ] [ COLOR: dark-red ] }
[ COLOR: dark-gray ]
} cond 2nip ;