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)