Commit 8f60c820 authored by Jay Belanger's avatar Jay Belanger
Browse files

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

  to an appropriate fraction.
parent 05a29101
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment