From bc481f48551fbee3e22da593f3a1698b43237118 Mon Sep 17 00:00:00 2001 From: Philip K Date: Mon, 6 Apr 2020 13:04:24 +0200 Subject: Chop off trailing whitespace before printing REPL result --- elisp/geiser-debug.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index 9c652fe..971001f 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -194,7 +194,11 @@ buffer.") (save-excursion (goto-char (/ (+ end start) 2)) (geiser-autodoc--clean-cache)) - (unless nomsg (message "%s" res))) + (unless nomsg + (save-match-data + (when (string-match "\\(?:[ \t\n\r]+\\)\\'" res) + (setq res (replace-match "" t t res)))) + (message "%s" res))) (geiser-debug--display-retort (geiser-syntax--scheme-str str) ret res) ret)) -- cgit v1.2.3