1473 |
(while (and (< (point) end) |
(while (and (< (point) end) |
1474 |
(if (stringp matcher) |
(if (stringp matcher) |
1475 |
(re-search-forward matcher end t) |
(re-search-forward matcher end t) |
1476 |
(funcall matcher end))) |
(funcall matcher end)) |
1477 |
|
;; Beware empty string matches since they will |
1478 |
|
;; loop indefinitely. |
1479 |
|
(or (> (point) (match-beginning 0)) |
1480 |
|
(progn (forward-char 1) t))) |
1481 |
(when (and font-lock-multiline |
(when (and font-lock-multiline |
1482 |
(>= (point) |
(>= (point) |
1483 |
(save-excursion (goto-char (match-beginning 0)) |
(save-excursion (goto-char (match-beginning 0)) |