* progmodes/octave.el (inferior-octave-prompt-read-only): New user

variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ff660592b71b846b255374a3123317f5c922b6a..00cfe32070137ec0cbf2ccc2c71ed812e7c3b803 100644 (file)
--- 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 6913d70550fdfab0595e305111522c6307c92fbb..32d265d2e80f8f0b483092f0389c1bc0e5fbec42 100644 (file)
--- 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))