diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-01 00:19:23 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-01 00:19:23 +0100 |
| commit | ce57385a794978cc5ee2279289d83a120e6ca621 (patch) | |
| tree | 2c85d6c8d572548b12b9b1b75231537dbb032988 | |
| parent | 061559ee48e45d1f7ecb8082346b5ef1f5f523ae (diff) | |
| download | geiser-guile-ce57385a794978cc5ee2279289d83a120e6ca621.tar.gz geiser-guile-ce57385a794978cc5ee2279289d83a120e6ca621.tar.bz2 | |
Guile: shorten a bit more multi-line sexps sent to REPL
| -rw-r--r-- | elisp/geiser-guile.el | 4 |
1 files changed, 3 insertions, 1 deletions
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)) |