# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 763860062 0
# Node ID e81e7c424e8acb6ad149f8b06dc8d1383ee79051
# Parent  5e8a442a836de9a9219d16991e965dc6269a990d
(Fchar_or_string_p, Fintegerp, Fnatnump): Doc fix.

diff -r 5e8a442a836d -r e81e7c424e8a src/data.c
--- a/src/data.c	Wed Mar 16 22:44:00 1994 +0000
+++ b/src/data.c	Wed Mar 16 23:21:02 1994 +0000
@@ -298,7 +298,8 @@
   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 @@
   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 @@
   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;
 {