summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el14
1 files changed, 11 insertions, 3 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index a25d65f..0b4fe54 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -62,9 +62,9 @@ implementation name gets appended to it."
:group 'geiser-repl)
(geiser-custom--defcustom geiser-repl-history-no-dups-p t
- "Whether to skip duplicates when recording history."
- :type 'boolean
- :group 'geiser-repl)
+ "Whether to skip duplicates when recording history."
+ :type 'boolean
+ :group 'geiser-repl)
(geiser-custom--defcustom geiser-repl-save-debugging-history-p nil
"Whether to skip debugging input in REPL history.
@@ -110,6 +110,12 @@ expression, if any."
:type 'boolean
:group 'geiser-repl)
+(geiser-custom--defcustom geiser-repl-query-on-kill-p t
+ "Whether to prompt for confirmation when killing a REPL buffer with
+a life process."
+ :type 'boolean
+ :group 'geiser-repl)
+
(geiser-custom--defcustom geiser-repl-default-host "localhost"
"Default host when connecting to remote REPLs."
:type 'string
@@ -328,6 +334,8 @@ module command as a string")
'geiser-repl--output-filter
nil
t)
+ (set-process-query-on-exit-flag (get-buffer-process (current-buffer))
+ geiser-repl-query-on-kill-p)
(message "%s up and running!" (geiser-repl--repl-name impl))))
(defun geiser-repl--start-scheme (impl address prompt)