[Emacs-diffs] /srv/bzr/emacs/trunk r112426: * progmodes/octave.el (inferior-octave-prompt-read-only): New user

[Leo Liu]

------------------------------------------------------------
revno: 112426
author: Rüdiger Sonderfeld <address@hidden>
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Tue 2013-04-30 23:20:46 +0800
message:
  * progmodes/octave.el (inferior-octave-prompt-read-only): New user
  variable.
modified:
  lisp/ChangeLog
  lisp/progmodes/octave.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-30 14:23:03 +0000
+++ b/lisp/ChangeLog    2013-04-30 15:20:46 +0000
@@ -1,3 +1,8 @@
+2013-04-30  Rüdiger Sonderfeld  <address@hidden>
+
+       * progmodes/octave.el (inferior-octave-prompt-read-only): New user
+       variable.
+
 2013-04-30  Leo Liu  <address@hidden>
 
        * progmodes/octave.el (octave-variables): Remove.  No builtin

=== modified file 'lisp/progmodes/octave.el'
--- a/lisp/progmodes/octave.el  2013-04-30 14:23:03 +0000
+++ b/lisp/progmodes/octave.el  2013-04-30 15:20:46 +0000
@@ -568,6 +568,15 @@
   :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 @@
        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))