File tree Expand file tree Collapse file tree 1 file changed +2
-8
lines changed
Expand file tree Collapse file tree 1 file changed +2
-8
lines changed Original file line number Diff line number Diff line change 88; ; Keyword: multiple shell terminal
99; ; Version: 0.0.3
1010; ; Package-Requires: ((emacs "24.4"))
11- ; ; URL: https://github.com/jcs090218 /multi-shell
11+ ; ; URL: https://github.com/jcs-elpa /multi-shell
1212
1313; ; This file is NOT part of GNU Emacs.
1414
3535(require 'shell )
3636(require 'eshell )
3737
38-
3938(defgroup multi-shell nil
4039 " Managing multiple shell buffers in Emacs."
4140 :prefix " multi-shell-"
4241 :group 'tool
43- :link '(url-link :tag " Repository" " https://github.com/jcs090218/multi-shell" ))
44-
42+ :link '(url-link :tag " Repository" " https://github.com/jcs-elpa/multi-shell" ))
4543
4644(defcustom multi-shell-prefer-shell-type 'shell
4745 " Prefer shell type."
4846 :type '(choice (const :tag " shell" shell)
4947 (const :tag " eshell" eshell))
5048 :group 'multi-shell )
5149
52-
5350(defvar multi-shell--current-shell-id 0
5451 " Record the shell id." )
5552
5956(defvar multi-shell--prevent-nested-kill nil
6057 " Flag to prevent nested kill buffer command." )
6158
62-
6359(defun multi-shell--run-shell-procss-by-type ()
6460 " Run the shell process by current type."
6561 (cl-case multi-shell-prefer-shell-type
197193 (when truncate-lines (toggle-truncate-lines ) (message " " ))
198194 (push (cons id (current-buffer )) multi-shell--live-shells))))
199195
200-
201196(defun multi-shell--kill-buffer (fnc &rest args )
202197 " Advice execute around `kill-buffer' function with FNC and ARGS."
203198 (if (and (string-match-p (multi-shell--prefix-name) (buffer-name ))
207202 (apply fnc args)))
208203(advice-add 'kill-buffer :around #'multi-shell--kill-buffer )
209204
210-
211205(provide 'multi-shell )
212206; ;; multi-shell.el ends here
You can’t perform that action at this time.
0 commit comments