diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-04-03 10:09:52 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-04-03 10:09:52 +0200 |
| commit | 0dcfbf2be66437b4a453a09b6485e8bc65218558 (patch) | |
| tree | 962335e368a5d24dbf538055208c3d7837c868fb /elisp/geiser-repl.el | |
| parent | c53bdcf0574384c12b18ee27158d9d6ae8238e4f (diff) | |
| download | geiser-guile-0dcfbf2be66437b4a453a09b6485e8bc65218558.tar.gz geiser-guile-0dcfbf2be66437b4a453a09b6485e8bc65218558.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.el | 4 |
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" )))))) |