如何交互式讀取Emacs功能的輸入文本？

Question

我是Emacs新功能。今天是我第一次嘗試創建一個功能。

我知道count-matches會告訴我regex在緩衝區的其餘部分出現了多少次，但大多數時候我需要從緩衝區開始計數。所以，我想這一點：

(defun count-matches-for-whole-buffer (text-to-count) 
    "Opens the ~/.emacs.d/init.el file" 
    (interactive "sText-to-count:") 
    (beginning-of-buffer) 
    (count-matches text-to-count)) 

我把這個在〜/ .emacs.d/init.el，然後做 「EVAL-緩衝區」 上緩衝。

所以現在我可以訪問這個功能。如果我運行它，它會問我要搜索的文本。

但功能只多遠，因爲這行：

beginning-of-buffer 

我從來沒有得到計數。這是爲什麼？

Answer 1

兩件事。

1. 您應該使用(goto-char (point-min))而不是beginning-of-buffer。
2. count-matches將不會顯示從lisp代碼中調用的消息，除非您提供了一個指示如此的參數。

試試這個代碼：

(defun count-matches-for-whole-buffer (text-to-count) 
    (interactive "sText-to-count:") 
    (count-matches text-to-count (point-min) (point-max) t))