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

for the less important warnings.

2 files changed, 5 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 163f2495849..8055106bd31 100644
--- 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 c35e7650254..bd5c9089bcc 100644
--- 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)