glob->regexp wasn't "terminating" regexps with an EOS anchor. Reported

by Friedrich Dominicus <Friedrich.Dominicus@inka.de>
    -Olin
This commit is contained in:
shivers 2000-02-09 15:21:07 +00:00
parent 85630af86a
commit 294994dcf2
1 changed files with 1 additions and 1 deletions

View File

@ -105,7 +105,7 @@
(res (list re-bos)) (res (list re-bos))
(i 0)) (i 0))
(if (= i pat-len) (if (= i pat-len)
(re-seq (reverse (str-cons chars res))) (re-seq (reverse (cons re-eos (str-cons chars res))))
(let ((c (string-ref pat i)) (let ((c (string-ref pat i))
(i (+ i 1))) (i (+ i 1)))