From 375e6549f8662d1316b24a8211d0507430f941c5 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 1 Nov 2010 00:19:23 +0100 Subject: [PATCH] Guile: shorten a bit more multi-line sexps sent to REPL --- elisp/geiser-guile.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 3f8aa4b..363c061 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -124,7 +124,9 @@ This function uses `geiser-guile-init-file' if it exists." (let ((p (point))) (end-of-line) (kill-region p (point))))) - (subst-char-in-region (point-min) (point-max) ?\n ? t) + (goto-char (point-min)) + (while (re-search-forward "[ \t\n\r][ \t\n\r]+" nil t) + (replace-match " " nil nil)) (buffer-string)) str)) -- 2.11.4.GIT