   (define-key *ojs-mode-map* "\C-c," 'fi:lisp-find-next-definition)
   (define-key *ojs-mode-map* "\C-cc" '%ojs-list-who-calls)
   (define-key *ojs-mode-map* "\C-ce" 'compile-ojs-file)
-  (define-key *ojs-mode-map* "\C-cc" 'check-ojs-region)
+  (define-key *ojs-mode-map* "\C-ck" 'check-ojs-region)
+  (define-key *ojs-mode-map* "\C-cr" 'compile-ojs-region)
   (define-key *ojs-mode-map* "\C-c\C-b" 'save-and-compile-ojs-file)
   (define-key *ojs-mode-map* "\C-cs" 'save-compile-and-sync-ojs-file)
   (define-key *ojs-mode-map* "\C-ct" 'trace-ojs-function)

       t]	    
      ["Compile, load and synchronize file..." save-compile-and-sync-ojs-file
       t]
      ["Find function definition..." %ojs-find-definition
       t]
      ["Trace/Untrace function..." trace-ojs-function

;; 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 ()
  (cond ((equal (downcase (substring buffer-file-name -3 nil)) "ojs")
	 (opx2-js-mode))
	((equal (downcase (substring buffer-file-name -3 nil)) "pjs")
	 (pjs-mode))))
	 

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