From f133d2e70ad0ce9fbfb7f874a46d6983ad0f33f7 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Wed, 13 Sep 2023 21:36:31 -0400 Subject: Port compilation hiding advice to advice-add, but disable it --- .emacs.d/init.el | 25 +++++++++++++++++-------- 1 file 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 -- cgit v1.2.3-60-g2f50