[Emacs-diffs] Changes to emacs/lisp/calc/calc-units.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      07/10/24 01:51:41

Index: calc-units.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-units.el,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- calc-units.el       26 Sep 2007 05:59:01 -0000      1.32
+++ calc-units.el       24 Oct 2007 01:51:40 -0000      1.33
@@ -1222,7 +1222,9 @@
       (and un ud
           (if (and (equal (nth 4 un) (nth 4 ud))
                    (eq pow1 pow2))
+               (if (eq pow1 1)
               (math-to-standard-units (list '/ n d) nil)
+                 (list '^ (math-to-standard-units (list '/ n d) nil) pow1))
             (let (ud1)
               (setq un (nth 4 un)
                     ud (nth 4 ud))