Mercurial > emacs
comparison src/floatfns.c @ 41028:e4bce1db7f77
(Fceiling, Ffloor): Doc fixes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 14 Nov 2001 00:07:09 +0000 |
| parents | a17c8b15ef1b |
| children | b8eac678ad15 |
comparison
equal
deleted
inserted
replaced
| 41027:54f6ee43146e | 41028:e4bce1db7f77 |
|---|---|
| 836 { | 836 { |
| 837 return d; | 837 return d; |
| 838 } | 838 } |
| 839 | 839 |
| 840 DEFUN ("ceiling", Fceiling, Sceiling, 1, 2, 0, | 840 DEFUN ("ceiling", Fceiling, Sceiling, 1, 2, 0, |
| 841 doc: /* Return the smallest integer no less than ARG. (Round toward +inf.) | 841 doc: /* Return the smallest integer no less than ARG. |
| 842 This rounds the value towards +inf. | |
| 842 With optional DIVISOR, return the smallest integer no less than ARG/DIVISOR. */) | 843 With optional DIVISOR, return the smallest integer no less than ARG/DIVISOR. */) |
| 843 (arg, divisor) | 844 (arg, divisor) |
| 844 Lisp_Object arg, divisor; | 845 Lisp_Object arg, divisor; |
| 845 { | 846 { |
| 846 return rounding_driver (arg, divisor, ceil, ceiling2, "ceiling"); | 847 return rounding_driver (arg, divisor, ceil, ceiling2, "ceiling"); |
| 847 } | 848 } |
| 848 | 849 |
| 849 DEFUN ("floor", Ffloor, Sfloor, 1, 2, 0, | 850 DEFUN ("floor", Ffloor, Sfloor, 1, 2, 0, |
| 850 doc: /* Return the largest integer no greater than ARG. (Round towards -inf.) | 851 doc: /* Return the largest integer no greater than ARG. |
| 852 This rounds the value towards +inf. | |
| 851 With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR. */) | 853 With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR. */) |
| 852 (arg, divisor) | 854 (arg, divisor) |
| 853 Lisp_Object arg, divisor; | 855 Lisp_Object arg, divisor; |
| 854 { | 856 { |
| 855 return rounding_driver (arg, divisor, floor, floor2, "floor"); | 857 return rounding_driver (arg, divisor, floor, floor2, "floor"); |