--- a/lisp/ChangeLog	Sat Jun 01 08:06:55 2002 +0000
+++ b/lisp/ChangeLog	Sat Jun 01 20:34:01 2002 +0000
@@ -1,3 +1,9 @@
+2002-05-28  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* obsolete.el (find-non-ascii-charset-region): Revert the function
+	definition.
+	(find-non-ascii-charset-string): Ditto.
+
 2002-06-01  Ben Wing  <ben@xemacs.org>
 
 	* process.el (call-process-internal):

--- a/lisp/obsolete.el	Sat Jun 01 08:06:55 2002 +0000
+++ b/lisp/obsolete.el	Sat Jun 01 20:34:01 2002 +0000
@@ -309,8 +309,21 @@
   1)
 (make-obsolete 'char-bytes "This function always returns 1")
 
-(define-obsolete-function-alias 'find-non-ascii-charset-region 'charsets-in-region)
-(define-obsolete-function-alias 'find-non-ascii-charset-string 'charsets-in-string)
+(defun find-non-ascii-charset-string (string)
+  "Return a list of charsets in the STRING except ascii.
+It might be available for compatibility with Mule 2.3,
+because its `find-charset-string' ignores ASCII charset."
+  (delq 'ascii (charsets-in-string string)))
+(make-obsolete 'find-non-ascii-charset-string
+	       "use (delq 'ascii (charsets-in-string STRING)) instead.")
+
+(defun find-non-ascii-charset-region (start end)
+  "Return a list of charsets except ascii in the region between START and END.
+It might be available for compatibility with Mule 2.3,
+because its `find-charset-string' ignores ASCII charset."
+  (delq 'ascii (charsets-in-region start end)))
+(make-obsolete 'find-non-ascii-charset-region
+	       "use (delq 'ascii (charsets-in-region START END)) instead.")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects