From: Ken Manheimer <ken.manheimer@gmail.com>
Date: Sat, 30 Jan 2016 11:12:42 +0000 (-0500)
Subject: multishell-list-edit-entry - make actual buffer name track edit
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/6145889b7aeb9c6d91fc9ddb31f76ef45b72322a

multishell-list-edit-entry - make actual buffer name track edit
---

diff --git a/multishell-list.el b/multishell-list.el
index ae72f9217..882a1d179 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))