summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-08-20 03:23:30 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-08-20 03:23:30 +0200
commit7614e02ca555a166c29b110f83e7033339e0abd1 (patch)
treeb8185a339d40a5eaacb9b08809525247879d8143 /elisp/geiser-repl.el
parentad7434be210344a6fb90384008ad9653daf4590a (diff)
downloadgeiser-7614e02ca555a166c29b110f83e7033339e0abd1.tar.gz
geiser-7614e02ca555a166c29b110f83e7033339e0abd1.tar.bz2
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.
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el8
1 files changed, 7 insertions, 1 deletions
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)))