       (requires . -1)))
 
 (defun ojs-functions-ac-action ()
-  (message (ojs-functions-ac-document candidate)))
-
-(defun ojs-functions-ac-document (symbol)
-  (or 
-   (get (intern symbol) :document)
-   ""))
+  (message (cdr (assoc candidate *ojs-functions-candidates-cache*))))
+
+(defun ojs-functions-ac-document (docstr)
+  docstr)
 
 (defvar *ojs-functions-candidates-cache* nil)
 


(defun ojs-functions-ac-candidates ()
  (or *ojs-functions-candidates-cache*
      (setq *ojs-functions-candidates-cache* (ojs-find-candidates-from-regexp *ojs-functions-regexp* t))
      ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; find methods defined in the current file
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;
(require 'auto-complete)

;;; find functions defined in the current file and other open files with the same mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(ac-define-source "ojs-functions"
    '((candidates . ojs-functions-ac-candidates)
