Check if current Emacs buffer contains a string

I have a buffer open in emacs. I want a function that will return t if the current buffer contains the string, oth开发者_Python百科erwise it returns nil.

(defun buffer-contains-substring (string)
    ...
)

---

This is careful to not change where you are, or damage any match data.

(defun buffer-contains-substring (string)
  (save-excursion
    (save-match-data
      (goto-char (point-min))
      (search-forward string nil t))))