Comprueba si el búfer de Emacs actual contiene una cadena

Question

Tengo un búfer abierto en emacs. Quiero una función que devolverá t si el búfer actual contiene la cadena, de lo contrario, devuelve nil.

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

Answer 1

Tenga cuidado de no cambiar su ubicación o dañar los datos de coincidencia.

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