[emacs] don’t show compilation window in amin/async-babel-tangle

diff --git a/init.org b/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