branch: elpa/helm
commit c345ee7a4e64fe56177005d7f17995366ff0956f
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Replace cl-defun by defun in helm-move-selection-common
keeping the &key feature to keep backward compatibility.
---
helm-core.el | 16 +++++++++++++---
1 file changed, 13 insertions(+), 3 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index 533760f415..3a63d82d1c 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -6080,9 +6080,10 @@ is \"Candidate(s)\" by default."
'helm-candidate-number-suspended
'helm-candidate-number))))))
-(cl-defun helm-move-selection-common (&key where direction (follow t))
- "Move the selection marker to a new position.
+(defun helm-move-selection-common (&rest args)
+ "Move the selection marker to a new position.
Position is determined by WHERE and DIRECTION.
+When FOLLOW is specified execute `helm-follow-execute-persistent-action-maybe'.
Key arg WHERE can be one of:
- line
- page
@@ -6091,7 +6092,16 @@ Key arg WHERE can be one of:
Key arg DIRECTION can be one of:
- previous
- next
- - A source or a source name when used with :WHERE \\='source."
+ - A source or a source name when used with :WHERE \\='source.
+
+\(fn &key WHERE DIRECTION FOLLOW)"
+ (apply #'helm-move-selection-common-1
+ (mapcar (lambda (kw)
+ (plist-get args kw))
+ '(:where :direction :follow))))
+
+(defun helm-move-selection-common-1 (where direction follow)
+ (unless follow (setq follow t))
(let ((move-func (cl-case where
(line (cl-ecase direction
(previous 'helm-move--previous-line-fn)
