mirror of https://codeberg.org/cage/tinmop/
- quote meta characters when matching for RE, searching for a common prefix from a bag of strings.
This commit is contained in:
parent
b4b9e57c56
commit
d9ebbe84ab
|
@ -118,7 +118,9 @@
|
||||||
(setf res (strcat res (string (elt pivot-string prefix-count)))))
|
(setf res (strcat res (string (elt pivot-string prefix-count)))))
|
||||||
(%advance ()
|
(%advance ()
|
||||||
(loop for i in actual-strings do
|
(loop for i in actual-strings do
|
||||||
(when (not (cl-ppcre:scan (strcat "^" res) i))
|
(when (not (cl-ppcre:scan (strcat "^"
|
||||||
|
(cl-ppcre:quote-meta-chars res))
|
||||||
|
i))
|
||||||
(setf res (subseq res 0 (1- (length res))))
|
(setf res (subseq res 0 (1- (length res))))
|
||||||
(return-from %advance nil)))
|
(return-from %advance nil)))
|
||||||
(when (< (1+ prefix-count)
|
(when (< (1+ prefix-count)
|
||||||
|
|
Loading…
Reference in New Issue