summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
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
commit44a638abdcbbc1bedd7fc17f76fc224731e43852 (patch)
tree8ae323db1543c24f73d6c0db6d9f337ddbc33cf9 /elisp/geiser-repl.el
parent838c30eadeba86eae78fdb6026a41a1dcdb99d76 (diff)
downloadgeiser-44a638abdcbbc1bedd7fc17f76fc224731e43852.tar.gz
geiser-44a638abdcbbc1bedd7fc17f76fc224731e43852.tar.bz2
Print bye-bye message when leaving repl with C-d.
Diffstat (limited to 'elisp/geiser-repl.el')
-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" ))))))