diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-28 03:06:10 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-28 03:06:10 +0000 |
| commit | 3ccfa82a6c4193d9058ed5d1e7c09f9735bf770b (patch) | |
| tree | d71dcf1faa8591c0e65691ff9cf4d91da7deb84d /lisp/emacs-lisp/regexp-opt.el | |
| parent | d28981c94dc697a963aa7c3ae4b3511483a49d3a (diff) | |
| download | emacs-3ccfa82a6c4193d9058ed5d1e7c09f9735bf770b.tar.gz | |
(regexp-opt-depth): Fix off-by-two error.
Diffstat (limited to 'lisp/emacs-lisp/regexp-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/regexp-opt.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index b6fac1355c1..894cc4c4be7 100644 --- a/lisp/emacs-lisp/regexp-opt.el +++ b/lisp/emacs-lisp/regexp-opt.el @@ -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. |