 
 (defun zomp-tl-eval-region ()
   (interactive)
-  (message "Evaluating region")
+  (when (called-interactively-p)
+    (message "Evaluating region"))
   (zomp-request-execution-abort)
-  (zomp-tl-do (buffer-substring (region-beginning) (region-end)) 'create "
+  (zomp-tl-do (buffer-substring (region-beginning) (region-end)) nil "
 
 
 "))
 
 (defun zomp-tl-eval-current ()
   (interactive)
-  (message "Evaluating function at point")
+  (when (called-interactively-p)
+    (message "Evaluating function at point"))
   (save-excursion
     (zomp-mark-current)
     (zomp-tl-eval-region))

  "Send some text to the zomp toplevel. If
  `create-if-not-existing' is 'create then the toplevel will be
  started if it is not running, yet"
  (process-send-string (zomp-get-toplevel-buffer) "!prompt
")
  (process-send-string
   (zomp-get-toplevel-buffer create-if-not-existing)
   (concat code (or append "
")))
  (process-send-string (zomp-get-toplevel-buffer) "!prompt #
"))

(defun zomp-tl-run (funcname)
  (interactive "MName of function: ")


(defun zomp-tl-eval-buffer ()
  (interactive)
  (when (called-interactively-p)
    (message "Evaluating buffer"))
  (zomp-tl-do (buffer-substring (buffer-end -1) (buffer-end 1)) 'create "


