# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1022179503 0
# Node ID 0d7705c8ee3c46513f0894bc4c650423a747b170
# Parent  6bd578d2b8af147dfd98dc88bebca64fc92989c6
(Fchar_or_string_p): Doc fix.  Use CHARACTERP.

diff -r 6bd578d2b8af -r 0d7705c8ee3c src/data.c
--- a/src/data.c	Thu May 23 18:44:45 2002 +0000
+++ b/src/data.c	Thu May 23 18:45:03 2002 +0000
@@ -443,11 +443,11 @@
 }
 
 DEFUN ("char-or-string-p", Fchar_or_string_p, Schar_or_string_p, 1, 1, 0,
-       doc: /* Return t if OBJECT is a character (an integer) or a string.  */)
+       doc: /* Return t if OBJECT is a character or a string.  */)
      (object)
      register Lisp_Object object;
 {
-  if (INTEGERP (object) || STRINGP (object))
+  if (CHARACTERP (object) || STRINGP (object))
     return Qt;
   return Qnil;
 }