From 30e429dd37d8a97afcf0129f8fe498438a611d65 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fabi=C3=A1n=20Ezequiel=20Gallina?= Date: Thu, 17 May 2012 00:03:09 -0300 Subject: [PATCH] New variable python-shell-send-setup-max-wait Controls the timeout for output just before sending the setup code. --- lisp/progmodes/python.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 0a09ec55ef7..94035546c6e 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -984,6 +984,14 @@ It should not contain a caret (^) at the beginning." :group 'python :safe 'stringp) +(defcustom python-shell-send-setup-max-wait 5 + "Seconds to wait for process output before code setup. +If output is received before the especified time then control is +returned in that moment and not after waiting." + :type 'number + :group 'python + :safe 'numberp) + (defcustom python-shell-setup-codes '(python-shell-completion-setup-code python-ffap-setup-code python-eldoc-setup-code) @@ -1260,7 +1268,7 @@ This function takes the list of setup code to send from the `python-shell-setup-codes' list." (let ((msg "Sent %s") (process (get-buffer-process (current-buffer)))) - (accept-process-output process 1) + (accept-process-output process python-shell-send-setup-max-wait) (dolist (code python-shell-setup-codes) (when code (when (consp code) -- 2.39.5