[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 42a7b2e 2/2: multishell - merge 1.1.5 from multishell repo
From: |
ken manheimer |
Subject: |
[elpa] master 42a7b2e 2/2: multishell - merge 1.1.5 from multishell repo. |
Date: |
Fri, 12 Feb 2016 16:07:00 +0000 |
branch: master
commit 42a7b2ee05354745f234df7325939efd4f8abca2
Merge: b19288e e6eade0
Author: Ken Manheimer <address@hidden>
Commit: Ken Manheimer <address@hidden>
multishell - merge 1.1.5 from multishell repo.
---
packages/multishell/multishell-list.el | 9 ++++++---
packages/multishell/multishell.el | 7 +++++--
2 files changed, 11 insertions(+), 5 deletions(-)
diff --git a/packages/multishell/multishell-list.el
b/packages/multishell/multishell-list.el
index f3895e2..dc7529b 100644
--- a/packages/multishell/multishell-list.el
+++ b/packages/multishell/multishell-list.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2016 Free Software Foundation, Inc. and Ken Manheimer
;; Author: Ken Manheimer <address@hidden>
-;; Version: 1.1.4
+;; Version: 1.1.5
;; Created: 2016 -- first public availability
;; Keywords: processes
;; URL: https://github.com/kenmanheimer/EmacsMultishell
@@ -252,15 +252,18 @@ Initial sort is from most to least recently used:
For duplicates, we prefer the ones that have paths."
(let ((tally (make-hash-table :test #'equal))
- got name already)
+ got name name-order-reversed already)
(mapcar #'(lambda (entry)
(setq name (multishell-name-from-entry entry)
already (gethash name tally nil))
+ (when (not already)
+ (push name name-order-reversed))
(when (or (not already) (< (length already) (length entry)))
;; Add new or replace shorter prior entry for name:
(puthash name entry tally)))
entries)
- (maphash #'(lambda (key value) (push value got)) tally)
+ (dolist (name name-order-reversed)
+ (push (gethash name tally) got))
got))
;;;###autoload
diff --git a/packages/multishell/multishell.el
b/packages/multishell/multishell.el
index 8056669..51bad08 100644
--- a/packages/multishell/multishell.el
+++ b/packages/multishell/multishell.el
@@ -3,7 +3,7 @@
;; Copyright (C) 1999-2016 Free Software Foundation, Inc.
;; Author: Ken Manheimer <address@hidden>
-;; Version: 1.1.4
+;; Version: 1.1.5
;; Created: 1999 -- first public availability
;; Keywords: processes
;; URL: https://github.com/kenmanheimer/EmacsMultishell
@@ -59,6 +59,9 @@
;;
;; Change Log:
;;
+;; * 2016-02-11 1.1.5 Ken Manheimer:
+;; - Rectify multishell list sorting to preserve recentness
+;; - Increment the actual multishell-version setting, neglected for 1.1.4.
;; * 2016-02-11 1.1.4 Ken Manheimer:
;; - hookup multishell-list as completion help buffer.
;; Mouse and keyboard selections from help listing properly exits
@@ -156,7 +159,7 @@
(require 'savehist)
(require 'multishell-list)
-(defvar multishell-version "1.1.3")
+(defvar multishell-version "1.1.5")
(defun multishell-version (&optional here)
"Return string describing the loaded multishell version."
(interactive "P")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 42a7b2e 2/2: multishell - merge 1.1.5 from multishell repo.,
ken manheimer <=