diff options
| -rw-r--r-- | .emacs.d/init.el | 31 |
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. |