diff options
| author | Leo Liu <sdl.web@gmail.com> | 2013-10-04 23:11:13 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2013-10-04 23:11:13 +0800 |
| commit | 939fb29cd9b7d77cd334daa6b67e20a28d75393c (patch) | |
| tree | d6128e7c8d277c891b29b3d9d12278d8108460ff /lisp/progmodes | |
| parent | 63bd7f352faa51c6da920d0e41d0e4afc4768f77 (diff) | |
| download | emacs-939fb29cd9b7d77cd334daa6b67e20a28d75393c.tar.gz emacs-939fb29cd9b7d77cd334daa6b67e20a28d75393c.tar.bz2 emacs-939fb29cd9b7d77cd334daa6b67e20a28d75393c.zip | |
* progmodes/octave.el (inferior-octave-mode): Call
compilation-forget-errors.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/octave.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el index ec48f75dd68..7b6228e9e16 100644 --- a/lisp/progmodes/octave.el +++ b/lisp/progmodes/octave.el @@ -694,6 +694,8 @@ in the Inferior Octave buffer.") (defvar compilation-error-regexp-alist) (defvar compilation-mode-font-lock-keywords) +(declare-function compilation-forget-errors "compile" ()) + (define-derived-mode inferior-octave-mode comint-mode "Inferior Octave" "Major mode for interacting with an inferior Octave process." :abbrev-table octave-abbrev-table @@ -713,19 +715,20 @@ in the Inferior Octave buffer.") (setq comint-input-ring-file-name (or (getenv "OCTAVE_HISTFILE") "~/.octave_hist") comint-input-ring-size (or (getenv "OCTAVE_HISTSIZE") 1024)) + (comint-read-input-ring t) (setq-local comint-dynamic-complete-functions inferior-octave-dynamic-complete-functions) (setq-local comint-prompt-read-only inferior-octave-prompt-read-only) (add-hook 'comint-input-filter-functions 'inferior-octave-directory-tracker nil t) - (comint-read-input-ring t) ;; http://thread.gmane.org/gmane.comp.gnu.octave.general/48572 (add-hook 'window-configuration-change-hook 'inferior-octave-track-window-width-change nil t) (setq-local compilation-error-regexp-alist inferior-octave-error-regexp-alist) (setq-local compilation-mode-font-lock-keywords inferior-octave-compilation-font-lock-keywords) - (compilation-shell-minor-mode 1)) + (compilation-shell-minor-mode 1) + (compilation-forget-errors)) ;;;###autoload (defun inferior-octave (&optional arg) |