From 80e2309e170651bf543b3b425ac48c3756dce4cc Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 25 Sep 2012 14:49:49 -0700 Subject: [PATCH] ui.tools.listener.completion: color private vocabs red in completion-mode. --- basis/ui/tools/listener/completion/completion.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor index 840d2030d0..9e892de21b 100644 --- a/basis/ui/tools/listener/completion/completion.factor +++ b/basis/ui/tools/listener/completion/completion.factor @@ -76,7 +76,9 @@ M: word-completion row-color } cond 2nip ; M: vocab-completion row-color - drop vocab? COLOR: black COLOR: dark-gray ? ; + drop dup vocab? [ + name>> ".private" tail? COLOR: dark-red COLOR: black ? + ] [ drop COLOR: dark-gray ] if ; M: color-completion row-color drop named-color ;