branch: elpa/isl
commit 0ba7f84464b6269f741402891196116a0ae844eb
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>

    Forget to make isl--case-fold-string local
---
 isearch-light.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/isearch-light.el b/isearch-light.el
index 56e9112ecc3..337d01f0eb7 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -400,14 +400,14 @@ Optional argument PATTERN default to `isl-pattern'."
   (interactive)
   (with-current-buffer isl-current-buffer
     (if (eq last-command 'isl-select-case-fold-search)
-        (setq isl-case-fold-search
-              (isl-iter-next isl--case-fold-choices-iterator))
+        (setq-local isl-case-fold-search
+                    (isl-iter-next isl--case-fold-choices-iterator))
       (setq isl--case-fold-choices-iterator
             (isl-iter-circular
              (append (remove isl-case-fold-search isl--case-fold-choices)
                      (list isl-case-fold-search))))
-      (setq isl-case-fold-search
-            (isl-iter-next isl--case-fold-choices-iterator)))
+      (setq-local isl-case-fold-search
+                  (isl-iter-next isl--case-fold-choices-iterator)))
     (isl-update)))
 
 (defun isl-split-string (str)

Reply via email to