diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/octave.el | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5ff660592b7..00cfe320701 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-04-30 Rüdiger Sonderfeld <ruediger@c-plusplus.de> + + * progmodes/octave.el (inferior-octave-prompt-read-only): New user + variable. + 2013-04-30 Leo Liu <sdl.web@gmail.com> * progmodes/octave.el (octave-variables): Remove. No builtin diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el index 6913d70550f..32d265d2e80 100644 --- a/lisp/progmodes/octave.el +++ b/lisp/progmodes/octave.el @@ -568,6 +568,15 @@ definitions can also be stored in files and used in batch mode." :type 'regexp :group 'octave) +(defcustom inferior-octave-prompt-read-only t + "If non-nil, the Octave prompt is read only. +The read only region includes the newline before the prompt. +Setting this variable does not affect existing Octave runs. +This feature utilizes the `comint-prompt-read-only' variable." + :type 'boolean + :group 'octave + :version "24.4") + (defcustom inferior-octave-startup-file nil "Name of the inferior Octave startup file. The contents of this file are sent to the inferior Octave process on @@ -661,6 +670,7 @@ in the Inferior Octave buffer.") comint-input-ring-size (or (getenv "OCTAVE_HISTSIZE") 1024)) (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)) |