Actually, drop the whole thing; I'd like to see compilation always

1 files changed, 0 insertions, 31 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 4adcf4a..f25004e 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -299,37 +299,6 @@ microphone) instead of the default sink."
   (global-set-key (kbd "M-K") #'windmove-up)
   (global-set-key (kbd "M-J") #'windmove-down))
 
-(with-eval-after-load 'compile
-  ;; don't display *compilation* buffer on success.  based on
-  ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf'
-  ;; instead of the now obsolete `flet'.
-  (defun b/compilation-finish-function (buffer outstr)
-    (unless (string-match "finished" outstr)
-      (switch-to-buffer-other-window buffer))
-    t)
-
-  (setq compilation-finish-functions #'b/compilation-finish-function)
-
-  (require 'cl-macs)
-
-  ;; (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
    ;; Allow scrolling in Isearch.