(Ffloor): Doc fix.

diff --git a/src/ChangeLog b/src/ChangeLog
index 82f2ea87106f50d70305511d3183885b0fbf61fe..2ced9a98ec1699c0aa3ddba4457e66f1729f61a7 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2005-03-16  Lute Kamstra  <lute@gnu.org>
+
+       * floatfns.c (Ffloor): Doc fix.
+
 2005-03-16  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
        * mac.c: Include macterm.h instead of directly including Carbon.h.

diff --git a/src/floatfns.c b/src/floatfns.c
index 8cd08106ef2e55a3d455adbaccb243926ada8f16..a64186611d46b90ab148b1627debc02746ffee3f 100644 (file)
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -1,5 +1,5 @@
 /* Primitive operations on floating point for GNU Emacs Lisp interpreter.
-   Copyright (C) 1988, 1993, 1994, 1999, 2003  Free Software Foundation, Inc.
+   Copyright (C) 1988, 1993, 1994, 1999, 2003, 2005  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -861,7 +861,7 @@ With optional DIVISOR, return the smallest integer no less than ARG/DIVISOR.  */
 
 DEFUN ("floor", Ffloor, Sfloor, 1, 2, 0,
        doc: /* Return the largest integer no greater than ARG.
-This rounds the value towards +inf.
+This rounds the value towards -inf.
 With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR.  */)
      (arg, divisor)
      Lisp_Object arg, divisor;