summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-17 03:29:34 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-17 03:29:34 +0200
commitb374cd559a733faa869bab9ac45422396de33990 (patch)
treed07c93dd463a61f563eeb36cdd3b8605379ab6b3 /elisp
parent6b80b5ade030417ba227d914e01615b06c97c73e (diff)
downloadgeiser-b374cd559a733faa869bab9ac45422396de33990.tar.gz
geiser-b374cd559a733faa869bab9ac45422396de33990.tar.bz2
Catching abnormal exits of the inferior scheme process.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-repl.el19
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)