 ;; return the current namespace 
 (defun pjs-current-namespace ()
   (save-excursion
-    (let* ((found (re-search-backward *pjs-namespace-definition* nil t))
+    (let* ((found (re-real-search-backward *pjs-namespace-definition* nil t))
 	   (namespace (when found (match-string-no-properties 1))))
-      (while (and found
-		  (not (eq (get-text-property (point) 'face) 'font-lock-keyword-face)))
-	(setq found (re-search-backward *pjs-namespace-definition* nil t))
-	(when found
-	  (setq namespace (match-string-no-properties 1))))
       (if found namespace "plw"))))
   
 

  (setq *ojs-buffers-vars-cache* nil)
  (setq *ojs-buffers-vars-cache-regexp* nil))

(defun pjs-reset-cache ()
  (ojs-reset-cache)
  (setq *pjs-buffers-class-members-cache* nil)
  (setq *pjs-buffers-class-members-cache-regexp* nil))

;;;;; generic function to find candidates based on a regexp 
;;;;; it returns a candidates list containing cons (name . documentation) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; (:require-patch "")
;;;; HISTORY :
;;;; $Log$
;;;; Revision 3.8  2015/12/18 15:08:46  troche
;;;; * use real-search
;;;;
;;;; Revision 3.7  2015/12/15 13:39:11  troche
;;;; * debug
;;;;
