From: Leo Liu Date: Tue, 14 May 2013 10:11:56 +0000 (+0800) Subject: * progmodes/octave.el (octave-font-lock-texinfo-comment): X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~229^2~89 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6073d8f44ac2f774b2127b96a9a5be101233bce7;p=emacs.git * progmodes/octave.el (octave-font-lock-texinfo-comment): Fix invalid search bound error: wrong side of point. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 803e2772109..70431b3f318 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,8 @@ * progmodes/octave.el (octave-font-lock-keywords): Fix error during redisplay. (octave-goto-function-definition, octave-find-definition): Minor tweaks. + (octave-font-lock-texinfo-comment): Fix invalid search bound + error: wrong side of point. 2013-05-14 Glenn Morris diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el index e4e0dbc4ee1..2fd2aadfc99 100644 --- a/lisp/progmodes/octave.el +++ b/lisp/progmodes/octave.el @@ -1067,7 +1067,8 @@ q: Don't fix\n" func file)) (font-lock-add-keywords nil `((,(lambda (limit) - (while (and (search-forward "-*- texinfo -*-" limit t) + (while (and (< (point) limit) + (search-forward "-*- texinfo -*-" limit t) (octave-in-comment-p)) (let ((beg (nth 8 (syntax-ppss))) (end (progn