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

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Jay Belanger <jpb>      08/08/25 20:53:22

Index: calc-units.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-units.el,v
retrieving revision 1.25.2.2
retrieving revision 1.25.2.3
diff -u -b -r1.25.2.2 -r1.25.2.3
--- calc-units.el       7 Jan 2008 01:00:59 -0000       1.25.2.2
+++ calc-units.el       25 Aug 2008 20:53:21 -0000      1.25.2.3
@@ -1138,7 +1138,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))