procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(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)
(while (string-match "\\(\\`\\|[^\\]\\)\\\\\\(\\\\\\\\\\)*([^?]"
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)))
;;; Workhorse functions.