Skip to content

GitLab

Commit 9cee7d84 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(bibtex-font-lock-url): Catch when point past bound of search.

parent 089a682e
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
lisp/textmodes/bibtex.el
View file @ 9cee7d84
...@@ -2662,6 +2662,7 @@ begins at the beginning of a line. We use this function for font-locking." ...@@ -2662,6 +2662,7 @@ begins at the beginning of a line. We use this function for font-locking."
field bounds start end found) field bounds start end found)
(bibtex-beginning-of-field) (bibtex-beginning-of-field)
(while (and (not found) (while (and (not found)
(<= (point) bound)
(prog1 (re-search-forward bibtex-font-lock-url-regexp bound t) (prog1 (re-search-forward bibtex-font-lock-url-regexp bound t)
(setq field (match-string-no-properties 1))) (setq field (match-string-no-properties 1)))
(setq bounds (bibtex-parse-field-text)) (setq bounds (bibtex-parse-field-text))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment