 ;;;; (:require-patch "")
 ;;;; HISTORY :
 ;;;; $Log$
+;;;; Revision 3.27  2015/12/10 14:50:40  troche
+;;;; * C-cr to compile and run selected region
+;;;;
 ;;;; Revision 3.26  2015/12/07 12:30:12  troche
 ;;;; * check-ojs-region new binding
 ;;;;

;; kludge : in opx2 script, the first line sets the mode to C++, and we want to avoid that
;; so we call our function from the c++ mode hook
(defun override-c++-mode ()
  (when (equal (downcase (substring buffer-file-name -3 nil)) "ojs")
    (opx2-js-mode)))

(when *use-opx2-js-mode*
  (add-hook 'c++-mode-hook 'override-c++-mode))

	   )
	  ((and (stringp string)
		(string-match ":EXIT-JS" string)) ;; exit when we read this, returned by the compilation functions
	   (insert "----------------------------------------------------------------------------------------------")
	   (fi::subprocess-filter proc (substring string 0 (string-match ":EXIT-JS" string)))	   
	   ;;(delete-process proc)
	   )	  
	  (t
