Geçerli Emacs arabelleğinin bir dize içerip içermediğini kontrol edin

Question

Emacs'ta açık arabellek var. Geçerli arabellek dizeyi içeriyorsa t döndürecek bir işlev istiyorum, aksi halde nil döndürür.

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

Answer 1

Bu Nerede değiştirmek veya herhangi bir eşleme verilerini zarar vermemeye özen göstermektedir.

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