From: Ken Manheimer <ken.manheimer@gmail.com>
Date: Fri, 12 Feb 2016 16:04:35 +0000 (-0500)
Subject: multishell - merge 1.1.5 from multishell repo.
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/42a7b2ee05354745f234df7325939efd4f8abca2?hp=-c

multishell - merge 1.1.5 from multishell repo.
---

42a7b2ee05354745f234df7325939efd4f8abca2
diff --combined packages/multishell/multishell-list.el
index f3895e220,dc7529b6a..dc7529b6a
--- a/packages/multishell/multishell-list.el
+++ b/packages/multishell/multishell-list.el
@@@ -3,7 -3,7 +3,7 @@@
  ;; Copyright (C) 2016 Free Software Foundation, Inc. and Ken Manheimer
  
  ;; Author: Ken Manheimer <ken.manheimer@gmail.com>
- ;; 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 +252,18 @@@ Initial sort is from most to least rece
  
  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 --combined packages/multishell/multishell.el
index 8056669c0,51bad08d6..51bad08d6
--- a/packages/multishell/multishell.el
+++ b/packages/multishell/multishell.el
@@@ -3,7 -3,7 +3,7 @@@
  ;; Copyright (C) 1999-2016 Free Software Foundation, Inc.
  
  ;; Author: Ken Manheimer <ken.manheimer@gmail.com>
- ;; 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 +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 +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")