# HG changeset patch
# User youngs
# Date 1022963641 0
# Node ID b6fa6d07e6f84e01b2d18bba109ccf13673d70d8
# Parent  84762348c6f9085d14571d128af966c97313c893
[xemacs-hg @ 2002-06-01 20:34:00 by youngs]
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.

diff -r 84762348c6f9 -r b6fa6d07e6f8 lisp/ChangeLog
--- 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):
diff -r 84762348c6f9 -r b6fa6d07e6f8 lisp/obsolete.el
--- 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