[Emacs-diffs] /srv/bzr/emacs/trunk r103556: * calc/calc-units.el (math-midi-round): Translate calc-note-threshold

[Jay Belanger]

------------------------------------------------------------
revno: 103556
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Sat 2011-03-05 22:36:15 -0600
message:
  * calc/calc-units.el (math-midi-round): Translate calc-note-threshold
    to an appropriate fraction.
modified:
  lisp/calc/calc-units.el

=== modified file 'lisp/calc/calc-units.el'
--- a/lisp/calc/calc-units.el   2011-03-06 04:28:39 +0000
+++ b/lisp/calc/calc-units.el   2011-03-06 04:36:15 +0000
@@ -1869,7 +1869,8 @@
   (let* ((n (math-round num))
          (diff (math-abs
                 (math-sub num n))))
-    (if (< (math-compare diff (math-read-expr calc-note-threshold)) 0)
+    (if (< (math-compare diff 
+                         (math-div (math-read-expr calc-note-threshold) 100)) 
0)
         n
       num)))