Emacs的搜索所有緩衝非交互

Question

目前，我有以下功能：

(defun goto-python-class (classname) 
    (interactive "sClass name: ") 
    (search-forward (concat "class " classname))) 

我試圖找到一個搜索功能，將搜索這兩個前進或後退。基本上，搜索整個緩衝區。似乎沒有任何。還有沒有其他方式可以這樣做，而無需查明搜索是否成功，並嘗試向後搜索？

Answer 1

它通常做這樣的：

(defun goto-python-class (classname) 
    (interactive "sClass name: ") 
    (goto-char (point-min)) 
    (unless (re-search-forward 
      (concat "class " classname) 
      nil t) 
    (message "Class %S not found" classname)))