branch: externals/hydra
commit 1dab16cd2a3495596dfe62937ba90d83dff1d863
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
hydra.el (hydra--hint-from-matrix): Prep to return list
---
hydra.el | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/hydra.el b/hydra.el
index 65aed98f1b..f006660052 100644
--- a/hydra.el
+++ b/hydra.el
@@ -1,6 +1,6 @@
;;; hydra.el --- Make bindings that stick around. -*- lexical-binding: t -*-
-;; Copyright (C) 2015 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
;; Author: Oleh Krehel <ohwoeo...@gmail.com>
;; Maintainer: Oleh Krehel <ohwoeo...@gmail.com>
@@ -1136,11 +1136,8 @@ Each heads must have the same length
Each head must have a property max-key-len and max-doc-len."
(when heads-matrix
(let ((lines (hydra--hint-from-matrix-1 body heads-matrix)))
- (concat
- (mapconcat #'identity
- (mapcar (lambda (lst) (apply #'concat lst))
- lines) "\n")
- "\n"))))
+ (apply #'concat
+ `(,@(apply #'append (hydra-interpose '("\n") lines)) "\n")))))
(defun hydra--hint-from-matrix-1 (body heads-matrix)
(let* ((first-heads-col (nth 0 heads-matrix))
