branch: elpa/helm
commit 1881471d2a88772fb45462d601337f1c6937b932
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Try to fix again concat kmacros action for 28 and 29
---
helm-ring.el | 21 +++++++++------------
1 file changed, 9 insertions(+), 12 deletions(-)
diff --git a/helm-ring.el b/helm-ring.el
index 9e0e7d95a6..fa2929fa1b 100644
--- a/helm-ring.el
+++ b/helm-ring.el
@@ -605,18 +605,15 @@ See (info \"(emacs) Keyboard Macros\") for detailed
infos."
(kmacro-push-ring)
(setq last-kbd-macro
(cl-loop for km in mkd
- for keys = (pcase km
- ((pred vectorp) km)
- ((pred functionp) ; Ocl
- (kmacro--keys km))
- (_ (car km)))
- if (vectorp keys)
- vconcat keys into result
- else collect keys into result
- finally return
- (if (vectorp result)
- result
- (vconcat (mapcar 'string-to-char result))))))))
+ for keys = (if (functionp km)
+ (kmacro--keys km)
+ (pcase (car km)
+ ((and vec (pred vectorp)) vec)
+ ((and str (pred stringp))
+ (vconcat
+ (cl-loop for char across str
+ collect char)))))
+ vconcat keys)))))
(defun helm-kbd-macro-delete-macro (_candidate)
(let ((mkd (helm-marked-candidates))
