この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m
そのため情報が古い可能性があります。ご了承ください。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が無いよ”)))
)