 	  (cur-point (point)))      
 ;;      (condition-case err
 	  (while (< (point) (point-max))
-	    (let ((next-function (re-search-forward *pjs-start-block-regexp* nil t)))
+	    (let ((next-function (re-real-search-forward *pjs-start-block-regexp* nil t)))
 	      (if next-function
 		  (let* ((start-inter cur-point)
 			 (end-inter (1- (line-beginning-position)))

    ;; use the reparse symbol ??
    ;; for now, only reparse blocks, functions and classes. Not the variables (too random).
    (unless (pjs-semantic-tag-block-p tag)
      (semantic--tag-put-property tag 'reparse-symbol 'parent))
    (car (semantic--tag-expand tag))))

(defun pjs-semantic-tag-local-vars (tag)


(defface pjs-semantic-error-font
    '((t 
       ;;       :underline (:color "red" :style wave)))
       :background "grey25"))
    "Highlight block of error "
    )

(defvar pjs-semantic-error-font
  'pjs-semantic-error-font)

(defface pjs-semantic-error-highlight
    '((t 
;;       :background "#255199206"))
       :background "red4"))
    "Highlight speficic error"
    )

(defvar pjs-semantic-error-highlight
  'pjs-semantic-error-highlight)

(defvar *pjs-verbose-parsing* nil)

;; we cache the last result for each region
(defun pjs-semantic-parse-region-1 (start end &optional nonterminal depth returnonerror)
