From 061559ee48e45d1f7ecb8082346b5ef1f5f523ae 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: 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))
-- 
cgit v1.2.3