diff --git a/emacs.el b/emacs.el index dfbbda3..aadedf3 100644 --- a/emacs.el +++ b/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'")