 ;;;; (:require-patch "")
 ;;;; HISTORY :
 ;;;; $Log$
+;;;; Revision 3.7  2015/12/09 10:24:11  troche
+;;;; * js evaluator syntax table
+;;;;
 ;;;; Revision 3.6  2015/06/18 08:32:28  troche
 ;;;; * configuration
 ;;;;


(defvar *js-evaluator-map* (make-sparse-keymap))

;;(define-derived-mode js-evaluator-mode lisp-listener-mode
(define-derived-mode js-evaluator-mode prog-mode
  ;; js font lock
  (setq font-lock-defaults '(*js-keywords*))


	  (t
	   (fi::subprocess-filter proc string)))))

(defun js-evaluator-newline ()
  (if (eobp)
      (fi:subprocess-send-input)
    (let ((start-of-last-prompt
	   (save-excursion
	     (or (and (re-search-backward fi::prompt-pattern nil t)
		      (point))
		 (point-max))))
	  start end)


(defun switch-to-script-evaluator ()
  (interactive)
  (let* ((buffer-name "*javascript-evaluator*")
