* calc/calc.el (math-normalize): Don't set `math-normalize-error' to t

for the less important warnings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 163f249584981f20741897d790368568182e4850..8055106bd31b1944b681aeaef1f76e1258dc7999 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-28  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc.el (math-normalize): Don't set `math-normalize-error'
+       to t for the less important warnings.
+
 2013-04-27  Darren Hoo  <darren.hoo@gmail.com>  (tiny change)
 
        * isearch.el (isearch-fail-pos): Check for empty `cmds'.  (Bug#14268)

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index c35e7650254b2ca015ecfa658b49e545785ce26b..bd5c9089bccaefb8ce0c64ac2a62e812d2c9bca7 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2701,7 +2701,6 @@ largest Emacs integer.")
                                  (cons (car math-normalize-a) args))
                 nil)
                (wrong-type-argument
-                 (setq math-normalize-error t)
                 (or calc-next-why
                      (calc-record-why "Wrong type of argument"
                                       (cons (car math-normalize-a) args)))
@@ -2712,7 +2711,6 @@ largest Emacs integer.")
                                   (cons (car math-normalize-a) args))
                 nil)
                (inexact-result
-                 (setq math-normalize-error t)
                 (calc-record-why "No exact representation for result"
                                  (cons (car math-normalize-a) args))
                 nil)