From 0ef26298d48bd0ae605096a187be35ef4759a722 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 20 Aug 2011 03:23:30 +0200 Subject: elisp: customizable patience amount on racket startup In this little notebook i'm using, racket takes its time to start. In fact, it can take more the previously slotted 10 seconds. Hence the new geiser-repl-startup-time variable. --- elisp/geiser-repl.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-repl.el') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 5027c28..770b5ca 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -107,6 +107,12 @@ expression, if any." :type 'integer :group 'geiser-repl) +(geiser-custom--defcustom geiser-repl-startup-time 10000 + "Time, in milliseconds, to wait for Racket to startup. +If you have a slow system, try to increase this time." + :type 'integer + :group 'geiser-repl) + ;;; Implementation-dependent parameters @@ -302,7 +308,7 @@ module command as a string") (error-message-string err) "\n") (error "Couldn't start Geiser"))) - (geiser-repl--wait-for-prompt 10000))) + (geiser-repl--wait-for-prompt geiser-repl-startup-time))) (defun geiser-repl--wait-for-prompt (timeout) (let ((p (point)) (seen) (buffer (current-buffer))) -- cgit v1.2.3