From 0be8b41328f05aee4610b190b00b51d459e28395 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 28 Mar 2007 08:07:15 +0000
Subject: `diff' package: Use `breakable-space' instead of `~' in
 `annotated-string-diff'.

* src/guile/skribilo/package/diff.scm: Autoload `(skribilo utils
  keywords)'.
  (annotated-string-diff)[space-preserving-substring]: Use
  `breakable-space' instead of `~'.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-35
---
 src/guile/skribilo/package/diff.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/package/diff.scm b/src/guile/skribilo/package/diff.scm
index ef0032f..7e9dc53 100644
--- a/src/guile/skribilo/package/diff.scm
+++ b/src/guile/skribilo/package/diff.scm
@@ -37,6 +37,7 @@
   :autoload   (skribilo biblio)        (*bib-table* make-bib-table)
   :use-module (skribilo package base)
   :use-module (skribilo utils syntax)
+  :autoload   (skribilo utils keywords) (the-options the-body)
 
   :export (make-diff-document
            make-diff-document-from-files))
@@ -84,6 +85,7 @@
        (ident  (gensym "diff:unchanged"))
        (body   args)))
 
+
 
 ;;;
 ;;; Helpers for string diffs.
@@ -207,13 +209,13 @@
           (let* ((lead (string-ref str start))
                  (lead* (if (char-set-contains? char-set:whitespace
                                                 lead)
-                            (~)
+                            (breakable-space)
                             (string lead))))
             (if (> len 1)
                 (let* ((trail (string-ref str (- end 1)))
                        (trail* (if (char-set-contains? char-set:whitespace
                                                        trail)
-                                   (~)
+                                   (breakable-space)
                                    (string trail))))
                   (list lead* (substring str (+ start 1) (- end 1))
                         trail*))
-- 
cgit v1.2.3