[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 72dafe1ce2 1/3: Add missing comments about ref-cells
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/helm 72dafe1ce2 1/3: Add missing comments about ref-cells |
|
Date: |
Wed, 22 Nov 2023 03:59:46 -0500 (EST) |
branch: elpa/helm
commit 72dafe1ce2309f78a603cbb6f08cb5990d6e5573
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
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))