diff options
Diffstat (limited to '.emacs.d/init.el')
| -rw-r--r-- | .emacs.d/init.el | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index f4d7259..4adcf4a 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -312,14 +312,23 @@ microphone) instead of the default sink." (require 'cl-macs) - (defadvice compilation-start - (around inhibit-display - (command &optional mode name-function highlight-regexp)) - (if (not (string-match "^\\(find\\|grep\\)" command)) - (cl-letf (((symbol-function 'display-buffer) #'ignore)) - (save-window-excursion ad-do-it)) - ad-do-it)) - (ad-activate 'compilation-start)) + ;; (advice-add + ;; #'compilation-start + ;; :around + ;; (lambda (orig-fun command &rest rest) + ;; (if (not (string-match "^\\(find\\|grep\\)" command)) + ;; (cl-letf (((symbol-function 'display-buffer) #'ignore)) + ;; (save-window-excursion (apply orig-fun command rest))) + ;; (apply orig-fun command rest)))) + ;; (defadvice compilation-start + ;; (around inhibit-display + ;; (command &optional mode name-function highlight-regexp)) + ;; (if (not (string-match "^\\(find\\|grep\\)" command)) + ;; (cl-letf (((symbol-function 'display-buffer) #'ignore)) + ;; (save-window-excursion ad-do-it)) + ;; ad-do-it)) + ;; (ad-activate 'compilation-start) + ) (with-eval-after-load 'isearch (setq |