From 8f60c8201658b7b0b5017986d2cb7e30479ec2d2 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sat, 5 Mar 2011 22:36:15 -0600 Subject: [PATCH] * calc/calc-units.el (math-midi-round): Translate calc-note-threshold to an appropriate fraction. --- lisp/calc/calc-units.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5