From 83b1e75799d56b33dbbcb56b3bc5f8741e3f4cd4 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 1 Nov 2010 00:03:31 +0100
Subject: [PATCH] Guile: suppress embedded comments when sending multi-line
 sexps

---
 elisp/geiser-guile.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 8f8d7af..3f8aa4b 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -116,7 +116,14 @@ This function uses `geiser-guile-init-file' if it exists."
 (defun geiser-guile--linearize (str)
   (if (string-match "\n" str)
       (with-temp-buffer
+        (set-syntax-table scheme-mode-syntax-table)
         (insert str)
+        (goto-char (point-min))
+        (let ((kill-whole-line nil))
+          (while (> (skip-syntax-forward "^<") 0)
+            (let ((p (point)))
+              (end-of-line)
+              (kill-region p (point)))))
         (subst-char-in-region (point-min) (point-max) ?\n ? t)
         (buffer-string))
     str))
-- 
2.11.4.GIT