 ;;;; (: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*))


  ;;			   'tcp-lisp)
  ;; (use-local-map fi:lisp-listener-mode-map)
  (define-key *js-evaluator-map* (kbd "\C-c.") '%ojs-find-definition)
  (define-key *js-evaluator-map* "\C-c," 'fi:lisp-find-next-definition)
  (define-key *js-evaluator-map* "\C-cc" '%ojs-list-who-calls)
  (define-key *js-evaluator-map* "\C-ct" 'trace-ojs-function)
  
  (define-key *js-evaluator-map* (kbd "RET") 'fi:inferior-lisp-newline)
;;  (define-key *js-evaluator-map* (kbd "RET") 'javascript-evaluator-return)

  (use-local-map *js-evaluator-map*)  
)

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