TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Quit sub-jobs when exiting ansi-term

Browse source
This commit is contained in:
Tu Do 2015-05-22 18:39:01 +07:00 committed by syl20bnr
parent efb0f812c4
commit 18465ce740
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
contrib/shell/packages.el
View file

@ -100,6 +100,13 @@
(make-shell-pop-command term shell-pop-term-shell)
(make-shell-pop-command ansi-term shell-pop-term-shell)
(defun spacemacs//term-kill-buffer-hook ()
"Function that hook `kill-buffer-hook'."
(when (eq major-mode 'term-mode)
(when (term-check-proc (current-buffer))
(term-quit-subjob))))
(add-hook 'kill-buffer-hook 'spacemacs//term-kill-buffer-hook)
(defun ansi-term-handle-close ()
"Close current term buffer when `exit' from term buffer."
(when (ignore-errors (get-buffer-process (current-buffer)))
@ -109,6 +116,7 @@
(kill-buffer (process-buffer proc))
(delete-window))))))
(add-hook 'term-mode-hook 'ansi-term-handle-close)
(defun term-switch-dir-hook ()
(term-send-raw-string (concat "cd " default-directory "\n")))
(add-hook 'shell-pop-in-hook #'term-switch-dir-hook)