# 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 * 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 + + * obsolete.el (find-non-ascii-charset-region): Revert the function + definition. + (find-non-ascii-charset-string): Ditto. + 2002-06-01 Ben Wing * 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