calc/calc-units.el (math-put-default-units): Don't use "1" as a

default unit.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58579e18727c65088fa70017ba0aa242af8f017a..40e4a8a844a6d1692b1fc1e8e9b334eca3749310 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-01-21  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc-units.el (math-put-default-units): Don't use "1" as a
+       default unit.
+
 2012-01-21  Glenn Morris  <rgm@gnu.org>
 
        * international/mule.el (auto-coding-alist): Add .tbz.

diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 8f4c79e3f0af7b390268dda380dba0d8723ad0ed..dcbf845c3713bc3fbacfc12a02b33272bd40ae2c 100644 (file)
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -415,18 +415,19 @@ If EXPR is nil, return nil."
 
 (defun math-put-default-units (expr)
   "Put the units in EXPR in the default units table."
-  (let* ((units (math-get-units expr))
-         (standard-units (math-get-standard-units expr))
+  (let ((units (math-get-units expr)))
+    (unless (eq units 1)
+      (let* ((standard-units (math-get-standard-units expr))
          (default-units (gethash
                          standard-units
                          math-default-units-table)))
-    (cond
-     ((not default-units)
-      (puthash standard-units (list units) math-default-units-table))
-     ((not (equal units (car default-units)))
-      (puthash standard-units
-               (list units (car default-units))
-               math-default-units-table)))))
+        (cond
+         ((not default-units)
+          (puthash standard-units (list units) math-default-units-table))
+         ((not (equal units (car default-units)))
+          (puthash standard-units
+                   (list units (car default-units))
+                   math-default-units-table)))))))
 
 
 (defun calc-convert-units (&optional old-units new-units)