Проверьте, содержит ли текущий буфер Emacs строку

У меня есть буфер, открытый в emacs. Я хочу функцию, которая вернет t, если текущий буфер содержит строку, в противном случае она возвращает nil.

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

Это не следует изменять, где бы вы ни находились, или повредить данные соответствия.

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