 	     (not (eq (point) merlin-idle-point)))
 	(progn
 	  (merlin-show-type-of-point-quiet)
-	  (message "OK")
 	  (setq merlin-idle-point (point))))))
 
+(defun merlin-enter ()
+  (interactive)
+  (newline)
+  (if merlin-continuous-feed
+      (merlin-point)))
 ;; Mode definition
 (defvar merlin-mode-map
   (let ((map (make-sparse-keymap)))

  "The merlin process associated to the current buffer")
(defvar merlin-continuation nil
  "The callback to be called with the result of the next command")
(defvar merlin-completion-point nil
  "Stores the point of last completion (beginning of the prefix)")
(defvar merlin-idle-point nil

    (define-key map (kbd "C-c C-t") 'merlin-show-type-of-point)
    (define-key map (kbd "C-c l") 'merlin-use)
    (define-key map (kbd "C-c C-r") 'merlin-rewind)
    (define-key map (kbd "RET") 'merlin-enter)
    map
    ))

