プロジェクトルートを取ってくる部分は http://trac.codecheck.in/share/browser/lang/elisp/anything-find-project-resources/trunk/anything-find-project-resources.el を参考にしました。っていうかまんまパクりました。すいません。 (defun anything-define-kyr-grep (command) (lexical-let ((command command)) (lambda () (interactive) (let ((query (read-string "Grep query: " (or (thing-at-point 'symbol) ""))) (root-dir (agrep-find-project-root-dir (or (and buf