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 | 375e6549f8662d1316b24a8211d0507430f941c5 (patch) | |
| tree | aaf2980648ca14d5503da4292495aa04e45a6787 | |
| parent | 83b1e75799d56b33dbbcb56b3bc5f8741e3f4cd4 (diff) | |
| download | geiser-guile-375e6549f8662d1316b24a8211d0507430f941c5.tar.gz geiser-guile-375e6549f8662d1316b24a8211d0507430f941c5.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)) |