summaryrefslogtreecommitdiff
path: root/elisp/geiser-mode.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-11-21 18:01:55 +0000
committerjao <jao@gnu.org>2021-11-21 18:01:55 +0000
commit122564229f068b13493db75b4521017e242f007c (patch)
treea2c3a6ed42a5823a3d9fb2dc8697a5dc8ec75e9b /elisp/geiser-mode.el
parent68e0991c96b1e5bc9a1d748a05a96127c6204987 (diff)
downloadgeiser-122564229f068b13493db75b4521017e242f007c.tar.gz
geiser-122564229f068b13493db75b4521017e242f007c.tar.bz2
New geiser-mode command: geiser-exit-repl
Useful specially for REPLs including a debugger, where you might want to exit it from a scheme buffer. Bound by default to C-c C-q.
Diffstat (limited to 'elisp/geiser-mode.el')
-rw-r--r--elisp/geiser-mode.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 4a524fd..4af9095 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -273,6 +273,11 @@ With prefix, try to enter the current buffer's module."
(goto-char (point-max))
(pop-to-buffer b)))
+(defun geiser-exit-repl ()
+ "Issues the command `geiser-repl-exit' in this buffer's associated REPL."
+ (interactive)
+ (geiser-repl--call-in-repl #'geiser-repl-exit))
+
;;; Keys:
@@ -312,6 +317,7 @@ With prefix, try to enter the current buffer's module."
("Switch to REPL and enter module" "\C-c\C-a"
geiser-mode-switch-to-repl-and-enter)
("Set Scheme..." "\C-c\C-s" geiser-set-scheme)
+ ("Exit REPL or debugger" "\C-c\C-q" geiser-exit-repl)
--
("Edit symbol at point" "\M-." geiser-edit-symbol-at-point
:enable (geiser--symbol-at-point))