/[emacs]/emacs/lisp/emacs-lisp/regexp-opt.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/regexp-opt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by pj, Sun Jul 15 16:15:34 2001 UTC revision 1.17 by monnier, Wed Nov 28 03:06:10 2001 UTC
# Line 120  in REGEXP." Line 120  in REGEXP."
120      (let ((count 0) start)      (let ((count 0) start)
121        (while (string-match "\\(\\`\\|[^\\]\\)\\\\\\(\\\\\\\\\\)*([^?]"        (while (string-match "\\(\\`\\|[^\\]\\)\\\\\\(\\\\\\\\\\)*([^?]"
122                             regexp start)                             regexp start)
123          (setq count (1+ count) start (match-end 0)))          (setq count (1+ count)
124                  ;; Go back 2 chars (one for [^?] and one for [^\\]).
125                  start (- (match-end 0) 2))
126        count)))        count)))
127    
128  ;;; Workhorse functions.  ;;; Workhorse functions.

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26