(defun dot () (point))

(defun foo ()
  (interactive)
  (message (pp case-fold-search))
  (search-forward-regexp "^ " nil t)
  (search-forward-regexp "[A-C1-9]")
  (message (concat "position: " (int-to-string (dot))))
)