检查当前Emacs缓冲区是否包含字符串

Question

我在emacs中打开了一个缓冲区。如果当前缓冲区包含字符串，我想要一个返回t的函数，否则返回nil。

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

Answer 1

小心不要改变你的位置或损坏任何匹配数据。

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