1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00

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

to terminate.  Don't fiddle with compilation-parsing-end.
This commit is contained in:
Stefan Monnier 2006-08-28 21:13:34 +00:00
parent 81e213dc7c
commit 6cc91c85a0
2 changed files with 16 additions and 6 deletions

View file

@ -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.

View file

@ -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."