diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-01 00:43:10 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-01 00:43:10 +0100 |
| commit | e3edc4db496c012da1cf4d406b94bd752ea79622 (patch) | |
| tree | 0ff33a9634ecf921a3fa0c72660a48a9cd1ba8ea | |
| parent | 375e6549f8662d1316b24a8211d0507430f941c5 (diff) | |
| download | geiser-guile-e3edc4db496c012da1cf4d406b94bd752ea79622.tar.gz geiser-guile-e3edc4db496c012da1cf4d406b94bd752ea79622.tar.bz2 | |
Guile: fix for the argument shortening algorithm
| -rw-r--r-- | elisp/geiser-guile.el | 4 |
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)) |