diff options
| author | Leo Liu | 2013-05-14 18:11:56 +0800 |
|---|---|---|
| committer | Leo Liu | 2013-05-14 18:11:56 +0800 |
| commit | 6073d8f44ac2f774b2127b96a9a5be101233bce7 (patch) | |
| tree | e5260a8c618783f4dc030862ff4fd96410b47491 | |
| parent | 8fdeaad563abf86083da6e50e2619291b7d1e455 (diff) | |
| download | emacs-6073d8f44ac2f774b2127b96a9a5be101233bce7.tar.gz emacs-6073d8f44ac2f774b2127b96a9a5be101233bce7.zip | |
* progmodes/octave.el (octave-font-lock-texinfo-comment):
Fix invalid search bound error: wrong side of point.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/progmodes/octave.el | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 803e2772109..70431b3f318 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -3,6 +3,8 @@ | |||
| 3 | * progmodes/octave.el (octave-font-lock-keywords): Fix error | 3 | * progmodes/octave.el (octave-font-lock-keywords): Fix error |
| 4 | during redisplay. | 4 | during redisplay. |
| 5 | (octave-goto-function-definition, octave-find-definition): Minor tweaks. | 5 | (octave-goto-function-definition, octave-find-definition): Minor tweaks. |
| 6 | (octave-font-lock-texinfo-comment): Fix invalid search bound | ||
| 7 | error: wrong side of point. | ||
| 6 | 8 | ||
| 7 | 2013-05-14 Glenn Morris <rgm@gnu.org> | 9 | 2013-05-14 Glenn Morris <rgm@gnu.org> |
| 8 | 10 | ||
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)) | |||
| 1067 | (font-lock-add-keywords | 1067 | (font-lock-add-keywords |
| 1068 | nil | 1068 | nil |
| 1069 | `((,(lambda (limit) | 1069 | `((,(lambda (limit) |
| 1070 | (while (and (search-forward "-*- texinfo -*-" limit t) | 1070 | (while (and (< (point) limit) |
| 1071 | (search-forward "-*- texinfo -*-" limit t) | ||
| 1071 | (octave-in-comment-p)) | 1072 | (octave-in-comment-p)) |
| 1072 | (let ((beg (nth 8 (syntax-ppss))) | 1073 | (let ((beg (nth 8 (syntax-ppss))) |
| 1073 | (end (progn | 1074 | (end (progn |