prevent hang when another py buffer is at the prompt

This commit is contained in:
Darren Ranalli 2007-02-09 06:14:29 +00:00
parent fb223004ec
commit efea7190c2

View File

@ -3409,11 +3409,26 @@ These are Python temporary files awaiting execution."
(lambda (proc) (lambda (proc)
(let ((procbuf (process-buffer proc))) (let ((procbuf (process-buffer proc)))
(set-buffer procbuf) (set-buffer procbuf)
(goto-char (point-max)) (let ((current (point)))
(if (and (eobp) proc (= (point) (marker-position (process-mark proc)))) (goto-char (point-max))
(comint-interrupt-subjob)) (let ((maxp (point)))
) (if (and (eobp) proc (= (point) (marker-position (process-mark proc))))
) (let ()
(goto-char (- maxp 4))
(if (or (search-forward ">>> " maxp t)
(search-forward "... " maxp t))
(goto-char current)
(let ()
(comint-interrupt-subjob)
(goto-char (point-max))
); let
); if
) ; let
) ; if
) ; let max
) ; let current
) ; let procbuf
) ; lambda proc
)) ))
) )
) )