[Emacs-diffs] trunk r117605: * lisp/progmodes/python.el (inferior-python-mode): Make input prompts

[Fabián Ezequiel Gallina]

------------------------------------------------------------
revno: 117605
revision-id: address@hidden
parent: address@hidden
committer: Fabián Ezequiel Gallina <address@hidden>
branch nick: trunk
timestamp: Mon 2014-07-28 18:07:10 -0300
message:
  * lisp/progmodes/python.el (inferior-python-mode): Make input prompts
  read-only.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/python.el       python.el-20091113204419-o5vbwnq5f7feedwu-3008

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-28 19:14:21 +0000
+++ b/lisp/ChangeLog    2014-07-28 21:07:10 +0000
@@ -1,3 +1,8 @@
+2014-07-28  Fabián Ezequiel Gallina  <address@hidden>
+
+       * progmodes/python.el (inferior-python-mode): Make input prompts
+       read-only.
+
 2014-07-28  Emilio C. Lopes  <address@hidden>
 
        * net/tramp-sh.el (tramp-get-remote-python): Also search for

=== modified file 'lisp/progmodes/python.el'
--- a/lisp/progmodes/python.el  2014-07-28 09:39:09 +0000
+++ b/lisp/progmodes/python.el  2014-07-28 21:07:10 +0000
@@ -2357,7 +2357,8 @@
   (set (make-local-variable 'python-shell--prompt-calculated-input-regexp) nil)
   (set (make-local-variable 'python-shell--prompt-calculated-output-regexp) 
nil)
   (python-shell-prompt-set-calculated-regexps)
-  (setq comint-prompt-regexp python-shell--prompt-calculated-input-regexp)
+  (setq comint-prompt-regexp python-shell--prompt-calculated-input-regexp
+        comint-prompt-read-only t)
   (setq mode-line-process '(":%s"))
   (set (make-local-variable 'comint-output-filter-functions)
        '(ansi-color-process-output
@@ -2381,6 +2382,10 @@
   (compilation-shell-minor-mode 1)
   ;; Ensure all the output is accepted before running any hooks.
   (accept-process-output (get-buffer-process (current-buffer)))
+  ;; At this point, all process output should have been received, but
+  ;; on GNU/Linux, calling `python-shell-internal-send-string' without
+  ;; a running internal shell fails to grab output properly unless
+  ;; this `sit-for' is in place.
   (sit-for 0.1 t))
 
 (defun python-shell-make-comint (cmd proc-name &optional pop internal)