[emacs] don’t show compilation window in amin/async-babel-tangle
authorAmin Bandali <bandali@gnu.org>
Sat, 22 Dec 2018 07:41:20 +0000 (02:41 -0500)
committerAmin Bandali <bandali@gnu.org>
Sat, 22 Dec 2018 07:41:20 +0000 (02:41 -0500)
init.org

index b5f0618..cd210db 100644 (file)
--- a/init.org
+++ b/init.org
@@ -646,7 +646,7 @@ Enable =winner-mode=.
 (winner-mode 1)
 #+end_src
 
 (winner-mode 1)
 #+end_src
 
-*** Close =*compilation*= on success
+*** COMMENT Close =*compilation*= on success
 
 #+begin_src emacs-lisp
 (setq compilation-exit-message-function
 
 #+begin_src emacs-lisp
 (setq compilation-exit-message-function
@@ -827,7 +827,8 @@ file.
                                                                   ',file-tangle-start-time)))
                              ""))
                   (when amin-async-tangle-post-compile
                                                                   ',file-tangle-start-time)))
                              ""))
                   (when amin-async-tangle-post-compile
-                    (compile amin-async-tangle-post-compile)))
+                    (save-window-excursion
+                      (compile amin-async-tangle-post-compile))))
               (message "Tangling %s failed" ,file-nodir))))))))
 
 (add-to-list
               (message "Tangling %s failed" ,file-nodir))))))))
 
 (add-to-list