 ;;;; (:require-patch "")
 ;;;; HISTORY :
 ;;;; $Log$
+;;;; Revision 3.4  2015/01/12 08:54:31  troche
+;;;; * debug
+;;;;
 ;;;; Revision 3.3  2015/01/06 17:03:37  troche
 ;;;; * update of the opx2 javascript mode with (almost) intelligent syntax highlighting and completion
 ;;;; * update of the javascript evaluator, now you don't exit it if you have a lisp error

      (if (fi:process-running-p proc buffer-name)
	  (fi::switch-to-buffer-new-screen buffer-name)
	(progn 
	  (setq proc (fi:open-lisp-listener -1 buffer-name 'fi::setup-tcp-connection "(format t \"Bienvenue\")(jvs::js-repl)" 'js-evaluator-mode))
	  (set-process-filter proc 'javascript-evaluator-filter))
	))))


  (setq mode-name "Javascript evaluator")
  ;; js comments
  (set (make-local-variable 'comment-start) "// ")

  (make-local-variable 'comment-start-skip)
  (setq comment-start-skip "//[ \t]*")

  (set (make-local-variable 'comment-end) "")

  (fi::initialize-mode-map 'fi:lisp-listener-mode-map
			   'fi:lisp-listener-mode-super-key-map
			   'tcp-lisp)
  (use-local-map fi:lisp-listener-mode-map)
)

(defun fi:open-lisp-listener (&optional buffer-number buffer-name
