 ;;;; (:require-patch "")
 ;;;; HISTORY :
 ;;;; $Log$
+;;;; Revision 3.11  2015/05/12 14:11:46  troche
+;;;; * use list-all-js-functions
+;;;;
 ;;;; Revision 3.10  2015/05/12 12:50:36  troche
 ;;;; * new classes completion based on kernel
 ;;;;

    (requires . -1)))

(defun ojs-kernel-ac-action ()
  (message (ojs-kernel-ac-document candidate)))

(defvar *ojs-kernel-candidates-cache* nil)
(defvar *ojs-kernel-documents-cache* nil)

(defun ojs-kernel-ac-init ()
  ;; on rcupre les symboles
  (or *ojs-kernel-candidates-cache*
      (setq *ojs-kernel-candidates-cache* (when (fi::lep-open-connection-p) (fi:eval-in-lisp "(when (fboundp 'jvs::list-js-functions)(jvs::list-all-js-functions))"))))
  ;; on set les documents strings
  (or *ojs-kernel-documents-cache*
      (setq *ojs-kernel-documents-cache* (when (fi::lep-open-connection-p) (fi:eval-in-lisp "(when (fboundp 'jvs::list-js-docs)(jvs::list-js-docs))")))))
