diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-17 03:29:34 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-17 03:29:34 +0200 |
| commit | ce3ef41414442b345e5e8d9f064f0d7531addea5 (patch) | |
| tree | 0377409cece548457c9d1363f31ab599f8b8956d | |
| parent | 99355e34b3e4eeb667692f8d3ae559e672ed45c7 (diff) | |
| download | geiser-chez-ce3ef41414442b345e5e8d9f064f0d7531addea5.tar.gz geiser-chez-ce3ef41414442b345e5e8d9f064f0d7531addea5.tar.bz2 | |
Catching abnormal exits of the inferior scheme process.
| -rw-r--r-- | elisp/geiser-repl.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index e27d80f..a836f18 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -278,16 +278,15 @@ module command as a string") (geiser-repl--get-repl geiser-impl--implementation)))))) (defun geiser-repl--sentinel (proc event) - (when (string= event "finished\n") - (with-current-buffer (process-buffer proc) - (let ((comint-prompt-read-only nil) - (comint-input-ring-file-name (geiser-repl--history-file))) - (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" )))))) + (with-current-buffer (process-buffer proc) + (let ((comint-prompt-read-only nil) + (comint-input-ring-file-name (geiser-repl--history-file))) + (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" ))))) (defun geiser-repl--on-kill () (geiser-repl--on-quit) |