   ;; list of font-lock-keywords in the right order
 
   ;; Functions defined in buffers
-;;  (push (cons 'search-buffer-functions font-lock-function-name-face) font-locks)
   (push (list 'search-buffer-functions 1 font-lock-function-name-face) font-locks)
 
   ;; Kernel functions
-;;  (push (cons 'search-kernel-functions ojs-kernel-functions-face) font-locks)
   (push (list 'search-kernel-functions 1 ojs-kernel-functions-face) font-locks)
 
   ;; Variables in the function 

				    ;; return nil when we have a scan error
				    (scan-error nil))
				  ;; try to find a lonely }, search only until the next start of function
				  (re-search-forward "^}$" (save-excursion (re-search-forward *ojs-function-start-regexp* nil t)
									   (line-beginning-position))
						     t))))
	    (when (and function-end
		       (>= function-end start-point))
	      (cons function-start function-end))))))))

  ;; Global vars
  (push (cons 'search-global-vars font-lock-variable-name-face) font-locks)
  ;; Variable definitions
;;  (push (list *ojs-vars-regexp* 1 ojs-var-definition-face) font-locks)

  ;; New type
  (push (list *ojs-new-type-regexp* 1 font-lock-type-face) font-locks)
