Skip to content

Commit cebaff1

Browse files
committed
Org once.
1 parent 940d6a4 commit cebaff1

File tree

1 file changed

+2
-8
lines changed

1 file changed

+2
-8
lines changed

multi-shell.el

Lines changed: 2 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@
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

@@ -35,21 +35,18 @@
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

@@ -59,7 +56,6 @@
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
@@ -197,7 +193,6 @@
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))
@@ -207,6 +202,5 @@
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

0 commit comments

Comments
 (0)