--- a/man/lispref/strings.texi	Mon Aug 13 09:00:04 2007 +0200
+++ b/man/lispref/strings.texi	Mon Aug 13 09:02:59 2007 +0200
@@ -345,30 +345,10 @@
 @example
 (char-equal ?x ?x)
      @result{} t
-(let ((case-fold-search t))
-  (char-equal ?x ?X))
+(char-to-string (+ 256 ?x))
+     @result{} "x"
+(char-equal ?x  (+ 256 ?x))
      @result{} t
-(let ((case-fold-search nil))
-  (char-equal ?x ?X))
-     @result{} nil
-@end example
-@end defun
-
-@defun char= character1 character2
-This function returns @code{t} if the arguments represent the same
-character, @code{nil} otherwise.  Case is significant.
-
-@example
-(char= ?x ?x)
-     @result{} t
-(char= ?x ?X)
-     @result{} nil
-(let ((case-fold-search t))
-  (char-equal ?x ?X))
-     @result{} nil
-(let ((case-fold-search nil))
-  (char-equal ?x ?X))
-     @result{} nil
 @end example
 @end defun