From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 27 Jul 2012 03:48:40 +0000 (-0500)
Subject: calccomp.el (math-compose-expr): Use parentheses when
X-Git-Tag: emacs-24.2.90~1066
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca1302a40a560521627fd6a2954a51a79d105a16;p=emacs.git

calccomp.el (math-compose-expr): Use parentheses when
there is a product in the denominator of a fraction.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e848134cb2..99d41ee19bc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-27  Jay Belanger  <jay.p.belanger@gmail.com>
+
+	* calc/calccomp.el (math-compose-expr): Use parentheses when
+	there is a product in the denominator of a fraction.
+
 2012-07-26  Eli Zaretskii  <eliz@gnu.org>
 
 	* makefile.w32-in ($(lisp)/calendar/cal-loaddefs.el)
diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el
index d8ad7e2cede..73e745bcf75 100644
--- a/lisp/calc/calccomp.el
+++ b/lisp/calc/calccomp.el
@@ -87,7 +87,8 @@
       sn)))
 
 (defun math-compose-expr (a prec)
-  (let ((math-compose-level (1+ math-compose-level))
+  (let ((calc-multiplication-has-precedence nil)
+        (math-compose-level (1+ math-compose-level))
         (math-expr-opers (math-expr-ops))
         spfn)
     (cond