 ;;  employees for the sole purpose of conducting PLANISWARE business.
 ;;
 ;;**************************************************************************
+
 (when (eq *javascript-evaluator-mode* :repl)
   (global-set-key [f3] 'switch-to-script-evaluator))
 

;;* 
;;  COPYRIGHT (C) PLANISWARE 2016-05-27
;;
;;  All Rights Reserved
;;

	       (delete-region (point-min) (point-max))
	       (set-process-filter proc 'javascript-evaluator-filter)
	       (process-send-string proc ":help\n")
	       (when *javascript-evaluator-initialize*
		 (dolist (str *javascript-evaluator-initialize*)
		   (process-send-string proc (format "%s\n" str))))
	       )))
	  (t
	   (fi::switch-to-buffer-new-screen buffer-name)
