no completion for complete keywords, to avoid confusion of 'assume' ~> 'assumes' etc.;

--- a/src/Pure/General/completion.scala	Sat Mar 08 12:31:23 2014 +0100
+++ b/src/Pure/General/completion.scala	Sat Mar 08 12:44:15 2014 +0100
@@ -358,15 +358,18 @@
           }
         opt_word.map(word =>
           {
+            val complete_words = words_lex.completions(word)
             val completions =
-              for {
-                complete_word <- words_lex.completions(word)
-                ok =
-                  if (is_keyword(complete_word)) language_context.is_outer
-                  else language_context.symbols
-                if ok
-                completion <- words_map.get_list(complete_word)
-              } yield (complete_word, completion)
+              if (complete_words.contains(word)) Nil
+              else
+                for {
+                  complete_word <- complete_words
+                  ok =
+                    if (is_keyword(complete_word)) language_context.is_outer
+                    else language_context.symbols
+                  if ok
+                  completion <- words_map.get_list(complete_word)
+                } yield (complete_word, completion)
             (((word, completions), end))
           })
       }