mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

(reb-update-overlays): Do not mark zero-width regexps as invalid

Browse source 
but rather at least count them correctly.
This commit is contained in:
Juanma Barranquero 2007-03-18 14:34:18 +00:00
parent 904bb06ca2
commit 640eb069c5
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/re-builder.el
View file

@ -639,11 +639,13 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions."
(set-buffer reb-target-buffer)
(reb-delete-overlays)
(goto-char (point-min))
(while (and (re-search-forward re (point-max) t)
(while (and (not (eobp))
(re-search-forward re (point-max) t)
(or (not reb-auto-match-limit)
(< matches reb-auto-match-limit)))
(if (= 0 (length (match-string 0)))
(error "Empty regular expression!"))
(unless (eobp)
(forward-char 1)))
(let ((i 0)
suffix max-suffix)
(setq matches (1+ matches))