diff options
| author | Amin Bandali <bandali@gnu.org> | 2023-09-13 21:36:31 -0400 |
|---|---|---|
| committer | Amin Bandali <bandali@gnu.org> | 2023-09-13 21:36:31 -0400 |
| commit | f133d2e70ad0ce9fbfb7f874a46d6983ad0f33f7 (patch) | |
| tree | 042c863a2b645e5167245c9b699e45fa26e48014 | |
| parent | 4db9033212fbb10792a5b33f31948909e594022d (diff) | |
| download | configs-f133d2e70ad0ce9fbfb7f874a46d6983ad0f33f7.tar.gz configs-f133d2e70ad0ce9fbfb7f874a46d6983ad0f33f7.tar.xz configs-f133d2e70ad0ce9fbfb7f874a46d6983ad0f33f7.zip | |
Port compilation hiding advice to advice-add, but disable it
| -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 |