branch: elpa/isl
commit 7a2320f9ac4d76a3b15ee34f4d86ecde6afdf264
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Avoid using cl-defun
---
isl.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/isl.el b/isl.el
index 12442ffb552..67af111b2bd 100644
--- a/isl.el
+++ b/isl.el
@@ -862,10 +862,11 @@ If `isl--iterator' is non nil update it otherwise create
it."
(remove-overlays nil nil 'isl t)
(setq isl--item-overlays nil)))
-(cl-defun isl-set-case-fold-search (&optional (pattern isl--pattern))
+(defun isl-set-case-fold-search (&optional pattern)
"Return a suitable value for `case-fold-search'.
This is done according to `isl-case-fold-search'.
Optional argument PATTERN default to `isl--pattern'."
+ (unless pattern (setq pattern isl--pattern))
(cl-case isl-case-fold-search
(smart (let ((case-fold-search nil))
(if (string-match "[[:upper:]]" pattern) nil t)))
