summaryrefslogtreecommitdiff
path: root/elisp/geiser-guile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-01 00:43:10 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-01 00:43:10 +0100
commite3edc4db496c012da1cf4d406b94bd752ea79622 (patch)
tree0ff33a9634ecf921a3fa0c72660a48a9cd1ba8ea /elisp/geiser-guile.el
parent375e6549f8662d1316b24a8211d0507430f941c5 (diff)
downloadgeiser-chez-e3edc4db496c012da1cf4d406b94bd752ea79622.tar.gz
geiser-chez-e3edc4db496c012da1cf4d406b94bd752ea79622.tar.bz2
Guile: fix for the argument shortening algorithm
Diffstat (limited to 'elisp/geiser-guile.el')
-rw-r--r--elisp/geiser-guile.el4
1 files 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))