branch: master
commit 6145889b7aeb9c6d91fc9ddb31f76ef45b72322a
Author: Ken Manheimer <ken.manhei...@gmail.com>
Commit: Ken Manheimer <ken.manhei...@gmail.com>
multishell-list-edit-entry - make actual buffer name track edit
---
multishell-list.el | 12 +++++++++---
1 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/multishell-list.el b/multishell-list.el
index ae72f92..882a1d1 100644
--- a/multishell-list.el
+++ b/multishell-list.el
@@ -48,10 +48,16 @@
(format "Edit shell spec for %s: " name)
nil
entry))
- (revised-pair (when revised (multishell-split-entry revised))))
- (when revised-pair
+ (revised-path (and revised (cadr (multishell-split-entry revised))))
+ (revised-name (multishell-name-from-entry revised))
+ buffer)
+ (when (not (string= revised entry))
(multishell-delete-history-name name)
- (multishell-register-name-to-path (car revised-pair) (cadr revised-pair))
+ (when (and (not (string= name revised-name))
+ (setq buffer (get-buffer (multishell-bracket name))))
+ (with-current-buffer buffer
+ (rename-buffer (multishell-bracket revised-name))))
+ (multishell-register-name-to-path revised-name revised-path)
(revert-buffer)
(if (not tabulated-list-sort-key)
(revert-buffer))
