From 6073d8f44ac2f774b2127b96a9a5be101233bce7 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Tue, 14 May 2013 18:11:56 +0800 Subject: [PATCH] * progmodes/octave.el (octave-font-lock-texinfo-comment): Fix invalid search bound error: wrong side of point. --- lisp/ChangeLog | 2 ++ lisp/progmodes/octave.el | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) 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 -- 2.39.2