カーソル下の単語をgrepする(改悪版2)

この記事は2年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

現在のバッファにファイル名が無かった場合は、ed::*grep-directory-history*から持ってくるように修正。(+バグ修正)

(defun grep-current-directory-at-word ()
  (interactive)
  (let ((filename (get-buffer-file-name))
        (pattern (ed::get-winhelp-topic)))
    (if (< 0 (length pattern))
        (progn
          (require “grepd”)
          (if filename
              (ed::scan-files pattern (or (split-string (car ed::*grep-file-history*) #\; nil ” “) “*.*”) (directory-namestring filename))
            (ed::scan-files pattern (or (split-string (car ed::*grep-file-history*) #\; nil ” “) “*.*”) (or (car ed::*grep-directory-history*) “~”)))
          )
      (message “検索するWordが無いよ”)))
  )

カテゴリー: ソフトウェア タグ: パーマリンク

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です