(python-send-command): Don't wait for the command

to terminate.  Don't fiddle with compilation-parsing-end.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c01cd76a45fcbb0c99505ef53a6c5a6a9648c73..c0797ec968a0f5d45a20baa2828b65a220ec198c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2006-08-28  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/python.el (python-send-command): Don't wait for the command
+       to terminate.  Don't fiddle with compilation-parsing-end.
+
 2006-08-28  Chong Yidong  <cyd@stupidchicken.com>
 
-       * emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): Insert
-       commentary after first line summary.
+       * emacs-lisp/checkdoc.el (checkdoc-file-comments-engine):
+       Insert commentary after first line summary.
 
        * woman.el (woman-follow): New function, based on `man-follow'.
        (woman-mode-map): Use it.

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index c38a6e82f83218ae4126984e0f0b4d3354983bba..4821376ec7bdda4c8b1d954850e89d7380477e79 100644 (file)
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1373,11 +1373,16 @@ COMMAND should be a single statement."
   (let ((end (marker-position (process-mark (python-proc)))))
     (with-current-buffer python-buffer (goto-char (point-max)))
     (compilation-forget-errors)
-    ;; Must wait until this has completed before re-setting variables below.
-    (python-send-receive (concat command "; print '_emacs_out ()'"))
+    (python-send-string command)
     (with-current-buffer python-buffer
-      (set-marker compilation-parsing-end end)
-      (setq compilation-last-buffer (current-buffer)))))
+      (setq compilation-last-buffer (current-buffer)))
+    ;; No idea what this is for but it breaks the call to
+    ;; compilation-fake-loc in python-send-region.  -- Stef
+    ;; Must wait until this has completed before re-setting variables below.
+    ;; (python-send-receive "print '_emacs_out ()'")
+    ;; (with-current-buffer python-buffer
+    ;;   (set-marker compilation-parsing-end end))
+    ))
 
 (defun python-send-region (start end)
   "Send the region to the inferior Python process."