diff options
| -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." | |||
| 120 | (let ((count 0) start) | 120 | (let ((count 0) start) |
| 121 | (while (string-match "\\(\\`\\|[^\\]\\)\\\\\\(\\\\\\\\\\)*([^?]" | 121 | (while (string-match "\\(\\`\\|[^\\]\\)\\\\\\(\\\\\\\\\\)*([^?]" |
| 122 | regexp start) | 122 | regexp start) |
| 123 | (setq count (1+ count) start (match-end 0))) | 123 | (setq count (1+ count) |
| 124 | ;; Go back 2 chars (one for [^?] and one for [^\\]). | ||
| 125 | start (- (match-end 0) 2)) | ||
| 124 | count))) | 126 | count))) |
| 125 | 127 | ||
| 126 | ;;; Workhorse functions. | 128 | ;;; Workhorse functions. |