   (goto-char (get-position line2 col2))
   )
 
+
 (defun highlight-search-results(regions buffer)
   "highlight the found results one by one"
   (while (not (equal regions nil))

	  (col2 (elt (elt region 1) 1))
	 (overlay (make-overlay 1 1)))
     (overlay-put overlay  'face '((t (:background "orange"))))
     (move-overlay overlay (get-position line1 (- col1 1))
		   (get-position line2 col2) buffer)
     ))



	  (col2 (elt (elt region 1) 1))
	 (overlay (make-overlay 1 1)))
     (overlay-put overlay  'face '((t (:background "CornflowerBlue"))))
     (move-overlay overlay (get-position line1 col1)
		   (get-position line2 (+ col2 1)) buffer)
     ))


