procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
to an appropriate fraction.
This commit is contained in:
Jay Belanger 2011-03-05 22:36:15 -06:00
parent 05a29101b2
commit 8f60c82016
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/calc/calc-units.el
View file

@ -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)))