[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/regexp-opt.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/regexp-opt.el
diff -u emacs/lisp/emacs-lisp/regexp-opt.el:1.16 
emacs/lisp/emacs-lisp/regexp-opt.el:1.17
--- emacs/lisp/emacs-lisp/regexp-opt.el:1.16    Sun Jul 15 12:15:34 2001
+++ emacs/lisp/emacs-lisp/regexp-opt.el Tue Nov 27 22:06:10 2001
@@ -120,7 +120,9 @@
     (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.