2662 |
field bounds start end found) |
field bounds start end found) |
2663 |
(bibtex-beginning-of-field) |
(bibtex-beginning-of-field) |
2664 |
(while (and (not found) |
(while (and (not found) |
2665 |
|
(<= (point) bound) |
2666 |
(prog1 (re-search-forward bibtex-font-lock-url-regexp bound t) |
(prog1 (re-search-forward bibtex-font-lock-url-regexp bound t) |
2667 |
(setq field (match-string-no-properties 1))) |
(setq field (match-string-no-properties 1))) |
2668 |
(setq bounds (bibtex-parse-field-text)) |
(setq bounds (bibtex-parse-field-text)) |