[elpa] master 6145889 1/7: multishell-list-edit-entry - make actual buffer name track edit

[ken manheimer]

branch: master
commit 6145889b7aeb9c6d91fc9ddb31f76ef45b72322a
Author: Ken Manheimer <address@hidden>
Commit: Ken Manheimer <address@hidden>

    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))