diff options
| author | Ludovic Court`es | 2007-03-28 09:25:20 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-03-28 09:25:20 +0000 |
| commit | 79eecc5bd507411bdff52b17f8c5e086b10c733a (patch) | |
| tree | 363a73313bcfeda4a768a920030dc9b7ed2f0a9a /src/guile | |
| parent | 37af6d73f6adb3af1aea2ccb88a4e35b06ec3cd7 (diff) | |
| parent | 0be8b41328f05aee4610b190b00b51d459e28395 (diff) | |
| download | skribilo-79eecc5bd507411bdff52b17f8c5e086b10c733a.tar.gz skribilo-79eecc5bd507411bdff52b17f8c5e086b10c733a.tar.lz skribilo-79eecc5bd507411bdff52b17f8c5e086b10c733a.zip | |
`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
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/package/diff.scm | 6 |
1 files changed, 4 insertions, 2 deletions
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*)) |