 
 (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))

              (error nil))))
    (when (and (> linestart parenopen) linesym funcsym)
      (setq funcsym nil))
    ;; (message "exprsym = %s, funcsym = %s, linesym = %s" exprsym funcsym linesym)
    (or exprsym funcsym linesym "nothing found")))

(defun zomp-get-eldoc-string ()


(defun zomp-tl-run-test ()
  (interactive)
  (when (called-interactively-p)
    (message "Running function test"))
  (zomp-tl-move-point-to-end)
  (zomp-tl-do "!run test"))

