-;;* 
-;;  COPYRIGHT (C) PLANISWARE 2016-05-27
+;; -*- coding: windows-1252 -*- 
+;;  COPYRIGHT (C) PLANISWARE 2016
 ;;
 ;;  All Rights Reserved
 ;;

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

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

	       (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)
