summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-03 10:09:52 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-03 10:09:52 +0200
commit0dcfbf2be66437b4a453a09b6485e8bc65218558 (patch)
tree962335e368a5d24dbf538055208c3d7837c868fb
parentc53bdcf0574384c12b18ee27158d9d6ae8238e4f (diff)
downloadgeiser-chez-0dcfbf2be66437b4a453a09b6485e8bc65218558.tar.gz
geiser-chez-0dcfbf2be66437b4a453a09b6485e8bc65218558.tar.bz2
Print bye-bye message when leaving repl with C-d.
-rw-r--r--elisp/geiser-repl.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 85b7ee8..b17faed 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -210,7 +210,8 @@ If no REPL is running, execute `run-geiser' to start a fresh one."
(defun geiser-repl--on-quit ()
(comint-write-input-ring)
(let ((cb (current-buffer))
- (impl geiser-impl--implementation))
+ (impl geiser-impl--implementation)
+ (comint-prompt-read-only nil))
(setq geiser-repl--repls (remove cb geiser-repl--repls))
(dolist (buffer (buffer-list))
(with-current-buffer buffer
@@ -226,6 +227,7 @@ If no REPL is running, execute `run-geiser' to start a fresh one."
(geiser-repl--on-quit)
(push (current-buffer) geiser-repl--closed-repls)
(when (buffer-name (current-buffer))
+ (comint-kill-region comint-last-input-start (point))
(insert "\nIt's been nice interacting with you!\n")
(insert "Press C-cz to bring me back.\n" ))))))