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

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

application honoring this will then return from main to allow the
editor to trigger recompilations etc. and possibly resume main()"
  (interactive)
  (when (zomp-get-toplevel-buffer)
    (with-current-buffer zomp-toplevel-buffer-name
      (comint-interrupt-subjob))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

