Parent Directory | Revision Log | 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. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |