mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

* progmodes/octave.el (inferior-octave-mode): Call

Browse source 
compilation-forget-errors.
This commit is contained in:
Leo Liu 2013-10-04 23:11:13 +08:00
parent 63bd7f352f
commit 939fb29cd9
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-10-04 Leo Liu <sdl.web@gmail.com>
* progmodes/octave.el (inferior-octave-mode): Call
compilation-forget-errors.
2013-10-04 Xue Fuqiao <xfq.free@gmail.com> 2013-10-04 Xue Fuqiao <xfq.free@gmail.com>
* emacs-lisp/syntax.el (syntax-ppss): Doc fix. * emacs-lisp/syntax.el (syntax-ppss): Doc fix.

7
lisp/progmodes/octave.el
View file

@ -694,6 +694,8 @@ in the Inferior Octave buffer.")
(defvar compilation-error-regexp-alist) (defvar compilation-error-regexp-alist)
(defvar compilation-mode-font-lock-keywords) (defvar compilation-mode-font-lock-keywords)
(declare-function compilation-forget-errors "compile" ())
(define-derived-mode inferior-octave-mode comint-mode "Inferior Octave" (define-derived-mode inferior-octave-mode comint-mode "Inferior Octave"
"Major mode for interacting with an inferior Octave process." "Major mode for interacting with an inferior Octave process."
:abbrev-table octave-abbrev-table :abbrev-table octave-abbrev-table
@ -713,19 +715,20 @@ in the Inferior Octave buffer.")
(setq comint-input-ring-file-name (setq comint-input-ring-file-name
(or (getenv "OCTAVE_HISTFILE") "~/.octave_hist") (or (getenv "OCTAVE_HISTFILE") "~/.octave_hist")
comint-input-ring-size (or (getenv "OCTAVE_HISTSIZE") 1024)) comint-input-ring-size (or (getenv "OCTAVE_HISTSIZE") 1024))
(comint-read-input-ring t)
(setq-local comint-dynamic-complete-functions (setq-local comint-dynamic-complete-functions
inferior-octave-dynamic-complete-functions) inferior-octave-dynamic-complete-functions)
(setq-local comint-prompt-read-only inferior-octave-prompt-read-only) (setq-local comint-prompt-read-only inferior-octave-prompt-read-only)
(add-hook 'comint-input-filter-functions (add-hook 'comint-input-filter-functions
'inferior-octave-directory-tracker nil t) 'inferior-octave-directory-tracker nil t)
(comint-read-input-ring t)
;; http://thread.gmane.org/gmane.comp.gnu.octave.general/48572 ;; http://thread.gmane.org/gmane.comp.gnu.octave.general/48572
(add-hook 'window-configuration-change-hook (add-hook 'window-configuration-change-hook
'inferior-octave-track-window-width-change nil t) 'inferior-octave-track-window-width-change nil t)
(setq-local compilation-error-regexp-alist inferior-octave-error-regexp-alist) (setq-local compilation-error-regexp-alist inferior-octave-error-regexp-alist)
(setq-local compilation-mode-font-lock-keywords (setq-local compilation-mode-font-lock-keywords
inferior-octave-compilation-font-lock-keywords) inferior-octave-compilation-font-lock-keywords)
(compilation-shell-minor-mode 1)) (compilation-shell-minor-mode 1)
(compilation-forget-errors))
;;;###autoload ;;;###autoload
(defun inferior-octave (&optional arg) (defun inferior-octave (&optional arg)