Emacs rgrep 自定义

Question

我在 ~/.emacs 中有以下自定义函数:

(defun xi-rgrep (term)
  (grep-compute-defaults)
    (interactive "sSearch Term: ")
    (rgrep term "*.[ch]*" "../"))

此函数只为在我感兴趣的文件/目录中输入的术语运行 rgrep。但是，我想匹配原始 rgrep 功能，即让默认搜索词成为当前词(我认为这就是词？) .我如何实现这一目标？我尝试了几件事，包括运行 (grep-read-regexp) 但都没有成功。

Answer 1

您可以使用 'thingatpt像这样打包:

(require 'thingatpt)
(defun xi-rgrep (term)
   (interactive (list (completing-read "Search Term: " nil nil nil (thing-at-point 'word))))
  (grep-compute-defaults)
  (rgrep term "*.[ch]*" "../"))