[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 0c8e5e5 1/2: Register name/path association early, so name
From: |
ken manheimer |
Subject: |
[elpa] master 0c8e5e5 1/2: Register name/path association early, so name is at front of history. |
Date: |
Thu, 21 Jan 2016 02:05:29 +0000 |
branch: master
commit 0c8e5e554199814c25258bc93b64dc008a9ab840
Author: Ken Manheimer <address@hidden>
Commit: Ken Manheimer <address@hidden>
Register name/path association early, so name is at front of history.
---
multishell.el | 11 ++++++++---
1 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/multishell.el b/multishell.el
index 1d10b94..62c9d3e 100644
--- a/multishell.el
+++ b/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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 0c8e5e5 1/2: Register name/path association early, so name is at front of history.,
ken manheimer <=