From 4c25551e639bb19a60211d30e6c7adb2bc51c59e Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 14 Aug 2010 21:48:10 +0200
Subject: New restart repl command and a bit more docs.

---
 elisp/geiser-mode.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'elisp')

diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 083d90a..d786b1b 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -164,6 +164,18 @@ With prefix, try to enter the current's buffer module."
   (interactive)
   (geiser-mode-switch-to-repl t))
 
+(defun geiser-restart-repl ()
+  "Restarts the REPL associated with the current buffer."
+  (interactive)
+  (let ((b (current-buffer)))
+    (geiser-mode-switch-to-repl nil)
+    (comint-kill-subjob)
+    (sit-for 0.1) ;; ugly hack; but i don't care enough to fix it
+    (call-interactively 'run-geiser)
+    (sit-for 0.2) ;; ditto
+    (end-of-buffer)
+    (pop-to-buffer b)))
+
 
 ;;; Geiser mode:
 
-- 
cgit v1.2.3