mirror of
https://github.com/panda3d/panda3d.git
synced 2025-10-04 02:42:49 -04:00
prevent hang when another py buffer is at the prompt
This commit is contained in:
parent
fb223004ec
commit
efea7190c2
@ -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
|
||||||
))
|
))
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user