 (defun ems-stop ()
   (ems-teardown-bridge))
 
-(defun msg-me (process event)
-   (princ
-     (format "Process: %s had the event `%s'" process event)))
-
-(set-process-sentinel (get-buffer-process "*js*") 'msg-me)
-


(defun ems-enter (expr)
  (ems-start-walker expr)
  (ems-move-walker 2)
  (ems-parse-output-buffer))

(defun ems-up ()
  (ems-move-walker 38))

;; Input: A key value
(defun ems-move-walker (key)
  (let* ((counter (incf ems-request-counter))
         (command (format "console.log('BEGINOUTPUT%d:' + sre.move(%d) + 'ENDOUTPUT%d');"
             counter key counter)))
    (comint-redirect-send-command-to-process
     command
