0
@@ -114,3 +114,16 @@
0
 (global-set-key (quote [M-up]) (quote move-region-up))
0
 (global-set-key (quote [M-down]) (quote move-region-down))
0
 (global-set-key "\C-c\C-c2" 'circle-windows)
0
+
0
+(add-hook 'shell-mode-hook 'my-shell-mode-hook-func)
0
+(defun my-shell-mode-hook-func ()
0
+  (set-process-sentinel (get-buffer-process (current-buffer))
0
+         #'my-shell-mode-kill-buffer-on-exit)
0
+     )
0
+(defun my-shell-mode-kill-buffer-on-exit (process state)
0
+     (message "%s" state)
0
+     (if (or
0
+     (string-match "exited abnormally with code.*" state)
0
+     (string-match "finished" state))
0
+     (kill-buffer (current-buffer))))
0
+(global-set-key "\C-x\M-r" 'term)