branch: elpa/helm
commit 72dafe1ce2309f78a603cbb6f08cb5990d6e5573
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Add missing comments about ref-cells
---
helm-core.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/helm-core.el b/helm-core.el
index af5f039e54..1f6036ac36 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -240,7 +240,7 @@ Run each function in the FUNCTIONS list in turn when called
within
DELAY seconds."
(declare (indent 1))
(let ((funs functions)
- (iter (list nil))
+ (iter (list nil)) ; ref-cell[1].
(timeout delay))
(lambda ()
(interactive)
@@ -251,6 +251,8 @@ DELAY seconds."
(cl-loop for count from 1 to (length functions)
collect count)))
next)
+ ;; By passing a list containing a single 'nil' element [1] as ITERATOR we
+ ;; avoid using a global var.
(unless (and (car iterator)
;; Reset iterator when another key is pressed.
(eq this-command real-last-command))
