 
 (defun search-buffer-functions (end)
   (let ((search-pattern (ojs-functions-in-buffers-regexp)))
-    (re-search-forward search-pattern end t)))
+    (re-real-search-forward search-pattern end t)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; highlight kernel functions 

;;;; (:require-patch "")
;;;; HISTORY :
;;;; $Log$
;;;; Revision 3.9  2015/12/15 13:39:48  troche
;;;; * limit size of regexps in kernel functions
;;;;


;; function or method regexp
(defconst *ojs-function-or-method-regexp*
  "^\\s-*\\(?:\\<function\\>\\s-+\\([[:word:]_]+\\)\\|\\<method\\>\\s-+\\([[:word:]_]+\\)\\s-+\\<on\\>\\s-+\\([[:word:]_]+\\)\\)\\s-*([[:word:]_,]*)")

(defconst *arguments-end*
  "\\(\\w+\\)\\([ \t]*).*\\)?")
