`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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-76

2 files changed, 23 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 5a80800..84538c8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,25 @@
 # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
 #
 
+2007-03-28 09:25:20 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-76
+
+    Summary:
+      `diff' package: Use `breakable-space' instead of `~' in `annotated-string-diff'.
+    Revision:
+      skribilo--devo--1.2--patch-76
+
+    * src/guile/skribilo/package/diff.scm: Autoload `(skribilo utils
+      keywords)'.
+      (annotated-string-diff)[space-preserving-substring]: Use
+      `breakable-space' instead of `~'.
+
+    modified files:
+     ChangeLog src/guile/skribilo/package/diff.scm
+
+    new patches:
+     lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-35
+
+
 2007-03-28 09:24:33 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-75
 
     Summary:
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*))