 ;;;; (:require-patch "")
 ;;;; HISTORY :
 ;;;; $Log$
+;;;; Revision 3.16  2015/06/02 12:59:38  mgautier
+;;;; - bind \C_c c to %ojs-list-who-calls (find caller of function)
+;;;;
 ;;;; Revision 3.15  2015/05/21 11:28:03  mgautier
 ;;;; - \C-c\C-b save ojs file and compile
 ;;;;

	 '(nil)
       (list (car (fi::get-default-symbol "Lisp locate source" t t)))))
  (fi::lisp-find-definition-common (concat "js::" tag) nil))

(defvar *ojs-compilation-buffer-name* "*OJS compilation traces*")



  ;; custom keybindings from menu
  (define-key *ojs-mode-map* "\C-c." '%ojs-find-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-c\C-b" 'save-and-compile-ojs-file)
;;  (define-key *ojs-mode-map* "\C-cs" 'compile-and-sync-ojs-file)
