Merge '0c8e5e554199814c25258bc93b64dc008a9ab840', register assoc early.

diff --combined packages/multishell/multishell.el
index 1d10b9469973641fd53eac4e7862df00225bee24,62c9d3e8509b31a1542fa00613fa5e52b55baa58..62c9d3e8509b31a1542fa00613fa5e52b55baa58
--- 1/packages/multishell/multishell.el
--- 2/multishell.el
+++ b/packages/multishell/multishell.el
@@@ -93,6 -93,8 +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 +327,11 @@@ customize the savehist group to activat
           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 +376,7 @@@
      (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))