summaryrefslogtreecommitdiff
path: root/elisp/geiser-debug.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-debug.el')
-rw-r--r--elisp/geiser-debug.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index c67a6aa..20db436 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -92,6 +92,13 @@
(insert "In expression:\n"))
(insert (format "%s%s\n" (make-string offset ?\ ) description))))
+(defun geiser-debug--send-region (compile start end and-go)
+ (let* ((ret (geiser-eval--send-region compile start end and-go))
+ (err (geiser-eval--retort-error ret)))
+ (if (not err)
+ (message (format "=> %s" (geiser-eval--retort-result ret)))
+ (geiser-debug--display-retort str ret))))
+
(provide 'geiser-debug)
;;; geiser-debug.el ends here