 ;; mode pour la coloration syntaxique
 
 (setq *js-keywords*
- '(("Warning : .*" . font-lock-warning-face)
-   ("Error   : .*" . font-lock-variable-name-face)
-   ("Return  : .*" . font-lock-type-face)
+ '(("^Warning[ ]*:.*" . font-lock-warning-face)
+   ("^Error[ ]*:.*" . font-lock-variable-name-face)
+;;   ("^Return  : .*" . font-lock-type-face)
+   ("^Return[ ]*:[^\"\n]*" . font-lock-type-face)
+;;   ("^Applet used[ ]*: .*" . font-lock-function-name-face)
+   ("^Info[ ]*:.*" . font-lock-function-name-face)
   ;; ("JS: " . font-lock-string-face)
    )
  )
 
+;;(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*))

;;;; (:require-patch "")
;;;; HISTORY :
;;;; $Log$
;;;; 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

  (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
