From: Mattias Engdegård <mattiase@acm.org>
Date: Fri, 22 Jan 2021 14:47:48 +0000 (+0100)
Subject: Calc: use big brackets around function arguments
X-Git-Tag: emacs-28.0.90~4157
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c0dce4b66c41a12a4cf7439b036962e9525eeaa;p=emacs.git

Calc: use big brackets around function arguments

* lisp/calc/calccomp.el (math-compose-expr): Use big brackets around
arguments in Big mode, so that expressions like sin(a/b) look a bit
better.
---

diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el
index 5f38ee71c78..bd81d7fe406 100644
--- a/lisp/calc/calccomp.el
+++ b/lisp/calc/calccomp.el
@@ -822,9 +822,16 @@
                  (if (setq spfn (get calc-language 'math-func-formatter))
                      (funcall spfn func a)
 
-                   (list 'horiz func calc-function-open
-		       (math-compose-vector (cdr a) ", " 0)
-		       calc-function-close))))))))))
+                   (let ((args (math-compose-vector (cdr a) ", " 0)))
+                     (if (and (member calc-function-open '("(" "[" "{"))
+                              (member calc-function-close '(")" "]" "}")))
+                         (list 'horiz func
+                               (math--comp-bracket
+                                (string-to-char calc-function-open)
+                                (string-to-char calc-function-close)
+                                args))
+                       (list 'horiz func calc-function-open
+		             args calc-function-close))))))))))))
 
 
 (defun math-prod-first-term (x)