From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 16 Mar 1994 23:21:02 +0000 (+0000)
Subject: (Fchar_or_string_p, Fintegerp, Fnatnump): Doc fix.
X-Git-Tag: emacs-19.34~9467
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0321d75c24a3c5c88740773fd9be4c168b15a5ee;p=emacs.git

(Fchar_or_string_p, Fintegerp, Fnatnump): Doc fix.
---

diff --git a/src/data.c b/src/data.c
index adb8d38e3aa..3fa8af55c77 100644
--- a/src/data.c
+++ b/src/data.c
@@ -298,7 +298,8 @@ DEFUN ("byte-code-function-p", Fbyte_code_function_p, Sbyte_code_function_p,
   return Qnil;
 }
 
-DEFUN ("char-or-string-p", Fchar_or_string_p, Schar_or_string_p, 1, 1, 0, "T if OBJECT is a character (a number) or a string.")
+DEFUN ("char-or-string-p", Fchar_or_string_p, Schar_or_string_p, 1, 1, 0,
+  "T if OBJECT is a character (an integer) or a string.")
   (obj)
      register Lisp_Object obj;
 {
@@ -307,7 +308,7 @@ DEFUN ("char-or-string-p", Fchar_or_string_p, Schar_or_string_p, 1, 1, 0, "T if
   return Qnil;
 }
 
-DEFUN ("integerp", Fintegerp, Sintegerp, 1, 1, 0, "T if OBJECT is a number.")
+DEFUN ("integerp", Fintegerp, Sintegerp, 1, 1, 0, "T if OBJECT is an integer.")
   (obj)
      Lisp_Object obj;
 {
@@ -326,7 +327,8 @@ DEFUN ("integer-or-marker-p", Finteger_or_marker_p, Sinteger_or_marker_p, 1, 1,
   return Qnil;
 }
 
-DEFUN ("natnump", Fnatnump, Snatnump, 1, 1, 0, "T if OBJECT is a nonnegative number.")
+DEFUN ("natnump", Fnatnump, Snatnump, 1, 1, 0,
+  "T if OBJECT is a nonnegative integer.")
   (obj)
      Lisp_Object obj;
 {