branch: elpa/isl
commit 5b6ef8704fc7eac2d16dbfd2bd4f50fdd9e28e36
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Add missing docstrings
---
isearch-light.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/isearch-light.el b/isearch-light.el
index 87dfc4055c0..d11e8439f3f 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -286,12 +286,16 @@ Optional argument PATTERN default to `isl-pattern'."
(t isl-case-fold-search)))
(defun isl-patterns (str)
+ "Returns an alist of (pred . regexp) elements from STR."
(cl-loop for s in (split-string str)
collect (if (char-equal ?! (aref s 0))
(cons 'not (substring s 1))
(cons 'identity s))))
(defun isl-multi-search-fwd (str &optional _bound _noerror)
+ "Returns position of symbol matched by STR.
+Arg STR is converted in patterns, when first pattern of list match a
+symbol subsequent patterns are used to check if all patterns match symbol."
(let* ((pattern (isl-patterns str))
(initial (or (assq 'identity pattern)
'(identity . "")))
