eq/lout: Better handle parenthesizing of combinations.

* src/guile/skribilo/package/eq/lout.scm (binary-lout-markup-writer):
  Special-case `eq:combinations'.

git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-165

2 files changed, 21 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 8075616..5e43875 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,23 @@
 # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
 #
 
+2007-09-20 14:15:38 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-165
+
+    Summary:
+      eq/lout: Better handle parenthesizing of combinations.
+    Revision:
+      skribilo--devo--1.2--patch-165
+
+    * src/guile/skribilo/package/eq/lout.scm (binary-lout-markup-writer):
+      Special-case `eq:combinations'.
+
+    modified files:
+     ChangeLog src/guile/skribilo/package/eq/lout.scm
+
+    new patches:
+     lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-107
+
+
 2007-09-20 14:14:45 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-164
 
     Summary:
diff --git a/src/guile/skribilo/package/eq/lout.scm b/src/guile/skribilo/package/eq/lout.scm
index 29ce9ac..64bc070 100644
--- a/src/guile/skribilo/package/eq/lout.scm
+++ b/src/guile/skribilo/package/eq/lout.scm
@@ -215,7 +215,10 @@
 		 (if (= (length body) 2)
 		     (let* ((first (car body))
 			    (second (cadr body))
-			    (parentheses? (equation-markup? first)))
+			    (parentheses? (and (equation-markup? first)
+                                               (not
+                                                (memq (markup-markup first)
+                                                      '(eq:combinations))))))
 		       (display " { { ")
 		       (if parentheses? (display %left-paren))
 		       (output first engine)