add my-grep

emacs.el

@@ -659,6 +659,9 @@ found, otherwise returns nil."
 (when (require 'flycheck nil t)
   (add-hook 'after-init-hook #'global-flycheck-mode))
 
+(defun my-install-packages ()
+  nil)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; window
 
@@ -722,11 +725,6 @@ found, otherwise returns nil."
             (fset 'makefile-warn-suspicious-lines 'ignore)
             ))
 
-(defun make ()
-  "Run \"make -k\" in current directory."
-  (interactive)
-  (compile "make -k"))
-
 (add-hook 'verilog-mode-hook
           (lambda ()
             (define-key verilog-mode-map ";" 'self-insert-command)))
@@ -1786,6 +1784,34 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; misc funcs
 
+(defun my-grep ()
+  "Use git-grep if avaliable.."
+  (interactive)
+  (require 'grep)
+  (let ((--grep-command-bak grep-command)
+        (--grep-use-null-device-bak grep-use-null-device)
+        (grep-command (if (eq 0
+                              (shell-command "git rev-parse --git-dir"))
+                          "git --no-pager grep -nH -e "
+                        grep-command
+                        )))
+    (grep-apply-setting 'grep-command
+                        grep-command)
+    (grep-apply-setting 'grep-use-null-device
+                        nil)
+    (if (called-interactively-p 'any)
+        (call-interactively 'grep)
+      (message "my-grep only allow interactive call."))
+    (grep-apply-setting 'grep-command
+                        --grep-command-bak)
+    (grep-apply-setting 'grep-use-null-device
+                        --grep-use-null-device-bak)))
+
+(defun make ()
+  "Run \"make -k\" in current directory."
+  (interactive)
+  (compile "make -k"))
+
 (defvar sed-in-place-history nil
   "History of `sed-in-place'")