From 0321d75c24a3c5c88740773fd9be4c168b15a5ee Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 16 Mar 1994 23:21:02 +0000 Subject: [PATCH] (Fchar_or_string_p, Fintegerp, Fnatnump): Doc fix. --- src/data.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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; { -- 2.39.5