               (merlin-display-errors-in-margin errors)))
 	  nil)
       (progn
-	(message "ok")
+	(if view-errors-p (message "ok"))
 	t))))
  
 


(when (featurep 'auto-complete)
  (ac-define-source "merlin" merlin-ac-source))

;; Get the type of an element


         (merlin-get-process-variable 'merlin-local-process)))
  (merlin-process-add-user)

  (when (and (fboundp 'auto-complete-mode)
             merlin-use-auto-complete-mode)
    (auto-complete-mode) 
    (add-to-list 'ac-sources 'merlin-ac-source))
  (add-hook 'completion-at-point-functions
            #'merlin-completion-at-point nil 'local)
  (set (make-local-variable 'merlin-lock-point) (point-min))
  (set (make-local-variable 'merlin-buffer) nil)
  (set (make-local-variable 'merlin-result) nil)
