mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(regexp-opt-depth): Fix off-by-two error.

Browse source
This commit is contained in:
Stefan Monnier 2001-11-28 03:06:10 +00:00
parent d28981c94d
commit 3ccfa82a6c
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/regexp-opt.el
View file

@ -120,7 +120,9 @@ in REGEXP."
(let ((count 0) start) (let ((count 0) start)
(while (string-match "\\(\\`\\|[^\\]\\)\\\\\\(\\\\\\\\\\)*([^?]" (while (string-match "\\(\\`\\|[^\\]\\)\\\\\\(\\\\\\\\\\)*([^?]"
regexp start) regexp start)
(setq count (1+ count) start (match-end 0))) (setq count (1+ count)
;; Go back 2 chars (one for [^?] and one for [^\\]).
start (- (match-end 0) 2))
count))) count)))
;;; Workhorse functions. ;;; Workhorse functions.