From 8bad154d05effa671753e10a429422b14e4aa1da Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Wed, 13 Sep 2023 21:40:01 -0400 Subject: Actually, drop the whole thing; I'd like to see compilation always --- .emacs.d/init.el | 31 ------------------------------- 1 file changed, 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. -- cgit v1.2.3-60-g2f50