diff options
| author | Stefan Monnier | 2005-10-16 14:07:33 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-10-16 14:07:33 +0000 |
| commit | 9cee7d84e731f707dfdf9a6710ab3674eec68729 (patch) | |
| tree | 746b2b046633c3762ee16756f210cd4cb8bef5e9 | |
| parent | 089a682e96e2e88cecaa6fd3c9f16f3c0ef5bc5c (diff) | |
| download | emacs-9cee7d84e731f707dfdf9a6710ab3674eec68729.tar.gz emacs-9cee7d84e731f707dfdf9a6710ab3674eec68729.zip | |
(bibtex-font-lock-url): Catch when point past bound of search.
| -rw-r--r-- | lisp/textmodes/bibtex.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 50d8ccad764..7b736708268 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el | |||
| @@ -2662,6 +2662,7 @@ begins at the beginning of a line. We use this function for font-locking." | |||
| 2662 | field bounds start end found) | 2662 | field bounds start end found) |
| 2663 | (bibtex-beginning-of-field) | 2663 | (bibtex-beginning-of-field) |
| 2664 | (while (and (not found) | 2664 | (while (and (not found) |
| 2665 | (<= (point) bound) | ||
| 2665 | (prog1 (re-search-forward bibtex-font-lock-url-regexp bound t) | 2666 | (prog1 (re-search-forward bibtex-font-lock-url-regexp bound t) |
| 2666 | (setq field (match-string-no-properties 1))) | 2667 | (setq field (match-string-no-properties 1))) |
| 2667 | (setq bounds (bibtex-parse-field-text)) | 2668 | (setq bounds (bibtex-parse-field-text)) |