From 6145889b7aeb9c6d91fc9ddb31f76ef45b72322a Mon Sep 17 00:00:00 2001 From: Ken Manheimer Date: Sat, 30 Jan 2016 06:12:42 -0500 Subject: [PATCH] multishell-list-edit-entry - make actual buffer name track edit --- multishell-list.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) 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)) -- 2.39.2