Mercurial > emacs
comparison src/floatfns.c @ 60651:de22fdff5bad
(Ffloor): Doc fix.
author | Lute Kamstra <lute@gnu.org> |
---|---|
date | Wed, 16 Mar 2005 15:00:17 +0000 |
parents | 59945307b86b |
children | a8fa7c632ee4 30ad2795fdab |
comparison
equal
deleted
inserted
replaced
60650:5294e5833aef | 60651:de22fdff5bad |
---|---|
1 /* Primitive operations on floating point for GNU Emacs Lisp interpreter. | 1 /* Primitive operations on floating point for GNU Emacs Lisp interpreter. |
2 Copyright (C) 1988, 1993, 1994, 1999, 2003 Free Software Foundation, Inc. | 2 Copyright (C) 1988, 1993, 1994, 1999, 2003, 2005 Free Software Foundation, Inc. |
3 | 3 |
4 This file is part of GNU Emacs. | 4 This file is part of GNU Emacs. |
5 | 5 |
6 GNU Emacs is free software; you can redistribute it and/or modify | 6 GNU Emacs is free software; you can redistribute it and/or modify |
7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
859 return rounding_driver (arg, divisor, ceil, ceiling2, "ceiling"); | 859 return rounding_driver (arg, divisor, ceil, ceiling2, "ceiling"); |
860 } | 860 } |
861 | 861 |
862 DEFUN ("floor", Ffloor, Sfloor, 1, 2, 0, | 862 DEFUN ("floor", Ffloor, Sfloor, 1, 2, 0, |
863 doc: /* Return the largest integer no greater than ARG. | 863 doc: /* Return the largest integer no greater than ARG. |
864 This rounds the value towards +inf. | 864 This rounds the value towards -inf. |
865 With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR. */) | 865 With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR. */) |
866 (arg, divisor) | 866 (arg, divisor) |
867 Lisp_Object arg, divisor; | 867 Lisp_Object arg, divisor; |
868 { | 868 { |
869 return rounding_driver (arg, divisor, floor, floor2, "floor"); | 869 return rounding_driver (arg, divisor, floor, floor2, "floor"); |