hide completion when found one

Ignore-this: a038175ae185d87f9fb3aaadd2fd9504 darcs-hash:20120203065638-c41ad-d231e837d60c80a15aa85b659048ca8d51740a64
2012-02-03 07:56:38 +01:00 · 2012-02-03 07:56:38 +01:00 · e52fb6987a
parent a877bb1028
commit e52fb6987a
1 changed files with 3 additions and 1 deletions
--- a/src/emacs/utop.el
+++ b/src/emacs/utop.el
@ -290,7 +290,9 @@ before the end of prompt.")
     ;; Complete with a word
     ((string= command "completion-word")
      (setq utop-state 'edit)
-      (insert argument))
+      (insert argument)
+      ;; Hide completion
+      (minibuffer-hide-completions))
     ;; Start of completion
     ((string= command "completion-start")
      (setq utop-completion nil))