Browse Source

fix search f

pull/1/head
10sr 11 years ago
parent
commit
2a4201e74a
1 changed files with 2 additions and 2 deletions
  1. +2
    -2
      emacs.el

+ 2
- 2
emacs.el View File

@@ -902,14 +902,14 @@ If called intearctively, find word at point."
(if (and (require 'gtags nil t) (if (and (require 'gtags nil t)
(gtags-get-rootpath)) (gtags-get-rootpath))
(gtags-goto-tag word "s") (gtags-goto-tag word "s")
(require 'grep)
(if (eq 0 (if (eq 0
(shell-command "git rev-parse --git-dir")) (shell-command "git rev-parse --git-dir"))
(compilation-start (format "git --no-pager grep -nH -e '%s'" (compilation-start (format "git --no-pager grep -nH -e '%s'"
word) word)
'grep-mode) 'grep-mode)
;; TODO: handle ack ;; TODO: handle ack
(grep (format "%s '%s' -r ."
grep-command
(grep (format "grep -nH -e '%s' -r ."
word)))) word))))
(message "No word at point.") (message "No word at point.")
nil)) nil))


Loading…
Cancel
Save