From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 16 Oct 2005 14:07:33 +0000 (+0000)
Subject: (bibtex-font-lock-url): Catch when point past bound of search.
X-Git-Tag: emacs-pretest-22.0.90~6582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9cee7d84e731f707dfdf9a6710ab3674eec68729;p=emacs.git

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

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."
         field bounds start end found)
     (bibtex-beginning-of-field)
     (while (and (not found)
+                (<= (point) bound)
 		(prog1 (re-search-forward bibtex-font-lock-url-regexp bound t)
 		  (setq field (match-string-no-properties 1)))
 		(setq bounds (bibtex-parse-field-text))