 ;;;; (:require-patch "")
 ;;;; HISTORY :
 ;;;; $Log$
+;;;; Revision 3.5  2015/05/12 12:39:25  troche
+;;;; * debug
+;;;;
 ;;;; Revision 3.4  2015/05/12 11:35:30  troche
 ;;;; * debug when the file is almost empty
 ;;;;

  (if *use-real-search*
      (let ((last-point (point))
	    ;; do a first search
	    (found-point (re-search-backward regexp (max (point-min) limit) errorp)))
	;; checks that we are moving to avoid loops
	(while (and found-point
		    (< (point) last-point)
		    (or (er--point-is-in-comment-p)
			(er--point-is-in-string-p)))
	  (setq last-point found-point)
	  (setq found-point (re-search-backward regexp (max (point-min) limit) errorp)))
	found-point))
  (re-search-backward regexp limit errorp))


		    (or (er--point-is-in-comment-p)
			(er--point-is-in-string-p)))
	  (setq last-point found-point)
	  (setq found-point (re-search-forward regexp limit errorp)))
	found-point))
  (re-search-forward regexp limit errorp))

(defun start-of-function ()
  ;; get the start of the function
