summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog17
-rw-r--r--src/guile/skribilo/package/diff.scm6
2 files changed, 23 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index cbc28ed..54249cb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,23 @@
 # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
 #
 
+2007-03-28 09:22:14 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-72
+
+    Summary:
+      `diff' package: Handle commands appropriately.
+    Revision:
+      skribilo--devo--1.2--patch-72
+
+    * src/guile/skribilo/package/diff.scm (make-diff-document): Don't touch
+      commands.
+
+    modified files:
+     ChangeLog src/guile/skribilo/package/diff.scm
+
+    new patches:
+     lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-31
+
+
 2007-03-28 09:21:28 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-71
 
     Summary:
diff --git a/src/guile/skribilo/package/diff.scm b/src/guile/skribilo/package/diff.scm
index 12eedb3..ef0032f 100644
--- a/src/guile/skribilo/package/diff.scm
+++ b/src/guile/skribilo/package/diff.scm
@@ -333,6 +333,12 @@
                                       ast1)
                                   body))))))
 
+          ((command? ast2)
+           ;; Leave it untouched.
+           (new command
+                (fmt  (command-fmt ast2))
+                (body (command-body ast2))))
+
           ((list? ast2)
            (if (list? ast1)
                (let liip ((ast1 ast1)