[Emacs-diffs] /srv/bzr/emacs/trunk r112419: * calc/calc.el (math-normalize): Don't set `math-normalize-error' to t

[Jay Belanger]

------------------------------------------------------------
revno: 112419
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Sun 2013-04-28 11:39:10 -0500
message:
  * calc/calc.el (math-normalize): Don't set `math-normalize-error' to t
  for the less important warnings. 
modified:
  lisp/ChangeLog
  lisp/calc/calc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-27 22:03:42 +0000
+++ b/lisp/ChangeLog    2013-04-28 16:39:10 +0000
@@ -1,3 +1,8 @@
+2013-04-28  Jay Belanger  <address@hidden>
+
+       * calc/calc.el (math-normalize): Don't set `math-normalize-error'
+       to t for the less important warnings.
+
 2013-04-27  Darren Hoo  <address@hidden>  (tiny change)
 
        * isearch.el (isearch-fail-pos): Check for empty `cmds'.  (Bug#14268)

=== modified file 'lisp/calc/calc.el'
--- a/lisp/calc/calc.el 2013-04-05 02:20:35 +0000
+++ b/lisp/calc/calc.el 2013-04-28 16:39:10 +0000
@@ -2701,7 +2701,6 @@
                                  (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 @@
                                   (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)