From: Lute Kamstra <lute@gnu.org>
Date: Wed, 16 Mar 2005 15:01:22 +0000 (+0000)
Subject: (Ffloor): Doc fix.
X-Git-Tag: ttn-vms-21-2-B4~1765
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=568b6e41dd08016489a50554d5fbc059446e8d3d;p=emacs.git

(Ffloor): Doc fix.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 82f2ea87106..2ced9a98ec1 100644
--- 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 8cd08106ef2..a64186611d4 100644
--- 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;