* calc/calc-units.el (math-midi-round): Translate calc-note-threshold

  to an appropriate fraction.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index f022f4f472b..7f0adc9fe7e 100644
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -1869,7 +1869,8 @@ In symbolic mode, return the list (^ a b)."
   (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)))