[nongnu] elpa/geiser-guile d5252a1 189/284: Guile: fix for the argument shortening algorithm

[Philip Kaludercic]

branch: elpa/geiser-guile
commit d5252a159bb218181f440e04b159f1b08fda398a
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Guile: fix for the argument shortening algorithm
---
 elisp/geiser-guile.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 363c061..f0d090d 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -125,8 +125,8 @@ This function uses `geiser-guile-init-file' if it exists."
               (end-of-line)
               (kill-region p (point)))))
         (goto-char (point-min))
-        (while (re-search-forward "[ \t\n\r][ \t\n\r]+" nil t)
-          (replace-match " " nil nil))
+        (while (search-forward-regexp "\n[ \t\r\n]*" nil t)
+          (replace-match " "))
         (buffer-string))
     str))