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

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      08/09/17 02:25:37

Index: calc-units.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-units.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- calc-units.el       6 May 2008 03:15:55 -0000       1.37
+++ calc-units.el       17 Sep 2008 02:25:37 -0000      1.38
@@ -473,7 +473,6 @@
         (setq expr (math-mul expr uold)))
      (setq defunits (math-get-default-units expr))
      (setq unew (or new-units
-                   (math-read-expr
                     (read-string
                       (concat
                        (if uoldname
@@ -485,7 +484,8 @@
                            (concat " (default "
                                    defunits
                                    "): ")
-                         ": "))))))
+                        ": ")))))
+     (setq unew (math-read-expr (if (string= unew "") defunits unew)))
      (when (eq (car-safe unew) 'error)
        (error "Bad format in units expression: %s" (nth 2 unew)))
      (math-put-default-units unew)