emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r112579: * progmodes/octave.el (octav


From: Leo Liu
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r112579: * progmodes/octave.el (octave-font-lock-texinfo-comment):
Date: Tue, 14 May 2013 18:11:56 +0800
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 112579
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Tue 2013-05-14 18:11:56 +0800
message:
  * progmodes/octave.el (octave-font-lock-texinfo-comment):
  Fix invalid search bound error: wrong side of point.
modified:
  lisp/ChangeLog
  lisp/progmodes/octave.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-14 05:19:29 +0000
+++ b/lisp/ChangeLog    2013-05-14 10:11:56 +0000
@@ -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  <address@hidden>
 

=== modified file 'lisp/progmodes/octave.el'
--- a/lisp/progmodes/octave.el  2013-05-14 05:19:29 +0000
+++ b/lisp/progmodes/octave.el  2013-05-14 10:11:56 +0000
@@ -1067,7 +1067,8 @@
     (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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]