summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--.emacs.d/init.el31
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.