From efea7190c27510e92fdde64892b44d672d5894ba Mon Sep 17 00:00:00 2001 From: Darren Ranalli Date: Fri, 9 Feb 2007 06:14:29 +0000 Subject: [PATCH] prevent hang when another py buffer is at the prompt --- direct/src/directscripts/python-mode.el | 25 ++++++++++++++++++++----- 1 file changed, 20 insertions(+), 5 deletions(-) diff --git a/direct/src/directscripts/python-mode.el b/direct/src/directscripts/python-mode.el index f476e13d84..6de23b01c5 100644 --- a/direct/src/directscripts/python-mode.el +++ b/direct/src/directscripts/python-mode.el @@ -3409,11 +3409,26 @@ These are Python temporary files awaiting execution." (lambda (proc) (let ((procbuf (process-buffer proc))) (set-buffer procbuf) - (goto-char (point-max)) - (if (and (eobp) proc (= (point) (marker-position (process-mark proc)))) - (comint-interrupt-subjob)) - ) - ) + (let ((current (point))) + (goto-char (point-max)) + (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 )) ) )