branch: elpa/isl
commit 983ebe50cb3e6400be4892dad8efcec95f4f5662
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Docstring and long lines
---
isearch-light.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index 10e3307200a..56e9112ecc3 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -396,15 +396,18 @@ Optional argument PATTERN default to `isl-pattern'."
(t isl-case-fold-search)))
(defun isl-select-case-fold-search ()
+ "Set `case-fold-search' from `isl-search' session."
(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 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 isl-case-fold-search
+ (isl-iter-next isl--case-fold-choices-iterator)))
(isl-update)))
(defun isl-split-string (str)
