summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Court`es2007-03-28 09:22:14 +0000
committerLudovic Court`es2007-03-28 09:22:14 +0000
commit67431ba389db6543d0df68f46718e81c47e1f460 (patch)
treeb2e9b690921f9e05d82b8d0c911881c2c25b5413
parent8142294b8c0874515385eff2102a4f3c83c1417a (diff)
parent6e123c4365429b3c80aa540ff7bc6b230a011bf0 (diff)
downloadskribilo-67431ba389db6543d0df68f46718e81c47e1f460.tar.gz
skribilo-67431ba389db6543d0df68f46718e81c47e1f460.tar.lz
skribilo-67431ba389db6543d0df68f46718e81c47e1f460.zip
`diff' package: Handle commands appropriately.
* src/guile/skribilo/package/diff.scm (make-diff-document): Don't touch
  commands.

git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-72
-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)