branch: elpa/helm
commit 9a236ef67f08b96e200fc18b062b0f89bbcceeab
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Allow using a pref arg toggle visible mark fns
---
helm-core.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index 794aa19957..87f10eef7a 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -7653,13 +7653,15 @@ If ARG is negative toggle backward."
helm-left-margin-width)))))))
(put 'helm-toggle-visible-mark 'helm-only t)
-(defun helm-toggle-visible-mark-forward ()
- (interactive)
- (helm-toggle-visible-mark 1))
+(defun helm-toggle-visible-mark-forward (&optional arg)
+ "Toggle visible mark forward ARG times."
+ (interactive "p")
+ (helm-toggle-visible-mark arg))
-(defun helm-toggle-visible-mark-backward ()
- (interactive)
- (helm-toggle-visible-mark -1))
+(defun helm-toggle-visible-mark-backward (&optional arg)
+ "Toggle visible mark backward ARG times."
+ (interactive "p")
+ (helm-toggle-visible-mark (- arg)))
(defun helm-file-completion-source-p (&optional source)
"Return non-nil if current source is a file completion source."
