From 74a56f48afc4f55b7989cb6f1b3e84b0ce8e0878 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Sat, 22 Dec 2018 00:45:03 -0500 Subject: [PATCH] =?utf8?q?[emacs]=20don=E2=80=99t=20display=20*compilation?= =?utf8?q?*=20on=20successful=20builds?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- init.org | 41 +++++++++++++++++++++++++++++------------ 1 file changed, 29 insertions(+), 12 deletions(-) diff --git a/init.org b/init.org index 787d386..d7af98c 100644 --- a/init.org +++ b/init.org @@ -650,18 +650,35 @@ Enable =winner-mode=. (winner-mode 1) #+end_src -*** Close =*compilation*= on success - -#+begin_src emacs-lisp -(setq compilation-exit-message-function - (lambda (status code msg) - "Close the compilation window if successful." - ;; if M-x compile exits with 0 - (when (and (eq status 'exit) (zerop code)) - (bury-buffer) - (delete-window (get-buffer-window (get-buffer "*compilation*")))) - ;; return the result of compilation-exit-message-function - (cons msg code))) +*** Don’t display =*compilation*= on success + +From https://stackoverflow.com/a/17788551. + +#+begin_src emacs-lisp +(defun amin--compilation-finish-function (buffer outstr) + (unless (string-match "finished" outstr) + (switch-to-buffer-other-window buffer)) + t) + +(setq compilation-finish-functions #'amin--compilation-finish-function) + +(require 'cl) + +(defadvice compilation-start + (around inhibit-display + (command &optional mode name-function highlight-regexp)) + (if (not (string-match "^\\(find\\|grep\\)" command)) + (flet ((display-buffer) + (set-window-point) + (goto-char)) + (fset 'display-buffer 'ignore) + (fset 'goto-char 'ignore) + (fset 'set-window-point 'ignore) + (save-window-excursion + ad-do-it)) + ad-do-it)) + +(ad-activate 'compilation-start) #+end_src *** Search for non-ASCII characters -- 2.20.1