       (if (not (merlin-is-long type))
           (progn 
             (message "%s" type)
-            (if (not quiet) 
+            (if (and (not quiet) bounds)
                 (merlin-create-overlay 'merlin-type-overlay bounds 'highlight "1 sec")))
         (when (not quiet)
           (display-buffer merlin-type-buffer)


;; Mode for Merlin

;; json and cl are mandatory
(require 'cl)

(defun merlin-seek (point)
  "Seek merlin's point to POINT."
  (let ((data 
	 (merlin-get-return-field (merlin-send-command "seek" (list "before" (merlin-unmake-point point))))))
    (merlin-make-point data)))
    
(defun merlin-tell-piece (mode start end)
