(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)))) )