 	   (js-mode major-mode)
 	   (filename (buffer-file-name))
 	   )
+      (message (format "options are %s" options))
       (setq *compiled-script-window* (selected-window))
       (if (and script (fi:eval-in-lisp (format "(if (object::get-object 'jvs::javascript %S) t nil)" script)))
 	  (catch 'exit

	   (script           (or ;; try to get a comment //PLWSCRIPT :
			      (save-excursion
				(goto-char (point-min))
				(if (re-search-forward "^/+\\s-*PLWSCRIPT\\s-*:\\s-*\\(.*\\)\\s-*$" (point-max) t)
				    (match-string-no-properties 1)
				  nil))
			      (fi:eval-in-lisp (format "(jvs::find-script \"%s\")" script-name))))
	   (buffer-name *ojs-compilation-buffer-name*)
	   (buffer (or (get-buffer buffer-name)
		       (get-buffer-create buffer-name)))

;;  employees for the sole purpose of conducting PLANISWARE business.
;;
;;**************************************************************************

(require 'cc-mode)

(defvar opx2-js-mode-syntax-table
