summaryrefslogtreecommitdiff
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
commitce3ef41414442b345e5e8d9f064f0d7531addea5 (patch)
tree0377409cece548457c9d1363f31ab599f8b8956d
parent99355e34b3e4eeb667692f8d3ae559e672ed45c7 (diff)
downloadgeiser-guile-ce3ef41414442b345e5e8d9f064f0d7531addea5.tar.gz
geiser-guile-ce3ef41414442b345e5e8d9f064f0d7531addea5.tar.bz2
Catching abnormal exits of the inferior scheme process.
-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)