[nongnu] elpa/hyperdrive de8a963986 05/32: WIP

[ELPA Syncer]

branch: elpa/hyperdrive
commit de8a96398682012b23094856d76b1c773cd20544
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    WIP
---
 hyperdrive-lib.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index ea13c37a27..fa44f07f65 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -122,7 +122,10 @@ generated from PATH.  When ENCODE is non-nil, encode PATH."
 (cl-defun hyperdrive-sort-entries (entries &key (by hyperdrive-directory-sort))
   ;; FIXME: Docstring.  Sorry.  :)
   "Return ENTRIES sorted by BY."
-  (cl-sort entries (cdr by) :key (car by)))
+  (cl-sort entries (lambda (a b)
+                     (cond ((and a b) (funcall (cdr by) a b))
+                           (a t)))
+           :key (car by)))
 
 ;;;; API