[elpa] master 44207ea 2/2: Merge '0c8e5e554199814c25258bc93b64dc008a9ab840', register assoc early.

[ken manheimer]

branch: master
commit 44207eadd7f8eb9192e128a0108efeb5e7f88009
Merge: db1061b 0c8e5e5
Author: Ken Manheimer <address@hidden>
Commit: Ken Manheimer <address@hidden>

    Merge '0c8e5e554199814c25258bc93b64dc008a9ab840', register assoc early.
---
 packages/multishell/multishell.el |   11 ++++++++---
 1 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/packages/multishell/multishell.el 
b/packages/multishell/multishell.el
index 1d10b94..62c9d3e 100644
--- a/packages/multishell/multishell.el
+++ b/packages/multishell/multishell.el
@@ -93,6 +93,8 @@
 (require 'comint)
 (require 'shell)
 
+(defvar multishell-version "1.0.5")
+
 (defgroup multishell nil
   "Allout extension that highlights outline structure graphically.
 
@@ -325,6 +327,11 @@ customize the savehist group to activate savehist."
          inwin
          already-there)
 
+    ;; Register early so the entry is pushed to the front:
+    (multishell-register-name-to-path (multishell-unbracket-asterisks
+                                       target-shell-buffer-name)
+                                      use-default-dir)
+
     (when doublearg
       (setq multishell-primary-name target-shell-buffer-name))
 
@@ -369,9 +376,7 @@ customize the savehist group to activate savehist."
     (let ((process (get-buffer-process (current-buffer))))
       (if (and process (equal 'stop (process-status process)))
           (continue-process process)))
-    (multishell-register-name-to-path (multishell-unbracket-asterisks
-                                       target-shell-buffer-name)
-                                      use-default-dir)
+
     (when (or already-there
              (equal (current-buffer) from-buffer))
       (goto-char (point-max))