case-fold-search ;; t (let ((case-fold-search nil)) (re-search-forward "^foo")) (let ((case-fold-search t)) (re-search-forward "^Foo"))