diff options
| author | Jay Belanger <[email protected]> | 2011-03-05 22:36:15 -0600 |
|---|---|---|
| committer | Jay Belanger <[email protected]> | 2011-03-05 22:36:15 -0600 |
| commit | 8f60c8201658b7b0b5017986d2cb7e30479ec2d2 (patch) | |
| tree | 7ee544692c21475ec8ed7b62147175791688cbca | |
| parent | 05a29101b26339dd1964938c47a3dc1eb916468c (diff) | |
* calc/calc-units.el (math-midi-round): Translate calc-note-threshold
to an appropriate fraction.
| -rw-r--r-- | lisp/calc/calc-units.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el index f022f4f472..7f0adc9fe7 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))) |