Merge pull request #85 from mads379/master

Close *Completions* buffer after evaluation

src/top/utop.el

@@ -628,9 +628,11 @@ it is started."
      ;; End of completion
      ((string= command "completion-stop")
       (utop-set-state 'edit)
+      (if (> (length utop-completion) 1)
           (with-current-buffer utop-complete-buffer
             (with-output-to-temp-buffer "*Completions*"
               (display-completion-list (nreverse utop-completion))))
+        (minibuffer-hide-completions))
       (setq utop-completion nil)))))
 
 (defun utop-process-output (process output)