diff options
| author | Leo Liu | 2013-10-05 10:45:24 +0800 |
|---|---|---|
| committer | Leo Liu | 2013-10-05 10:45:24 +0800 |
| commit | 6f6ab820c8614b886046095d6494a64d4795f952 (patch) | |
| tree | 9e0136ecef22a69b3a9e12bf537b2143c0f7bbca | |
| parent | 0106e5b3990b556bf7641fa646a4b049bf543297 (diff) | |
| download | emacs-6f6ab820c8614b886046095d6494a64d4795f952.tar.gz emacs-6f6ab820c8614b886046095d6494a64d4795f952.zip | |
* progmodes/octave.el (octave-send-region): Call
compilation-forget-errors.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/octave.el | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a31ceec74a8..0b617f8ed0f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2013-10-05 Leo Liu <sdl.web@gmail.com> | ||
| 2 | |||
| 3 | * progmodes/octave.el (octave-send-region): Call | ||
| 4 | compilation-forget-errors. | ||
| 5 | |||
| 1 | 2013-10-05 Dmitry Gutov <dgutov@yandex.ru> | 6 | 2013-10-05 Dmitry Gutov <dgutov@yandex.ru> |
| 2 | 7 | ||
| 3 | * progmodes/ruby-mode.el (ruby-mode): Add `ruby-mode-set-encoding' | 8 | * progmodes/ruby-mode.el (ruby-mode): Add `ruby-mode-set-encoding' |
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el index 7b6228e9e16..899bf151a2c 100644 --- a/lisp/progmodes/octave.el +++ b/lisp/progmodes/octave.el | |||
| @@ -1471,6 +1471,8 @@ entered without parens)." | |||
| 1471 | (string (buffer-substring-no-properties beg end)) | 1471 | (string (buffer-substring-no-properties beg end)) |
| 1472 | line) | 1472 | line) |
| 1473 | (with-current-buffer inferior-octave-buffer | 1473 | (with-current-buffer inferior-octave-buffer |
| 1474 | ;; http://lists.gnu.org/archive/html/emacs-devel/2013-10/msg00095.html | ||
| 1475 | (compilation-forget-errors) | ||
| 1474 | (setq inferior-octave-output-list nil) | 1476 | (setq inferior-octave-output-list nil) |
| 1475 | (while (not (string-equal string "")) | 1477 | (while (not (string-equal string "")) |
| 1476 | (if (string-match "\n" string) | 1478 | (if (string-match "\n" string) |