From 3ccfa82a6c4193d9058ed5d1e7c09f9735bf770b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 28 Nov 2001 03:06:10 +0000 Subject: [PATCH] (regexp-opt-depth): Fix off-by-two error. --- lisp/emacs-lisp/regexp-opt.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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. -- 2.39.5