   (merlin-update-lock-zone-display)
 )
 
-(defun merlin-dump-env ()
-  "Dump the environment"
-  (interactive)
-  (merlin-seek (point))
-  (message "Env: %s"
-	   (append (elt (merlin-send-command "dump" '("env")) 1) nil))
-  (merlin-seek merlin-lock-point))
-
 (defun merlin-refresh ()
   "Refreshes merlin cmis"
   (interactive)

                     overlay)) errors))
  (message "(pending errors, use C-c C-x to jump)"))

(defun merlin-view-errors (view-errors-p)
  "View the errors of the data that have been fed to merlin"
  (let ((output (merlin-send-command "errors" nil)))
    (if (> (length (elt output 1)) 0)
	(progn

  (merlin-seek point))

(defun merlin-update-lock-zone-display ()
  "Updates the locked zone display, according to `merlin-display-lock-zone', ie.
 iterates through it and call each method"
  (mapc
   '(lambda (x)
      (case x
