Mercurial > hg > xemacs-beta
diff lisp/obsolete.el @ 860:b6fa6d07e6f8
[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.
| author | youngs |
|---|---|
| date | Sat, 01 Jun 2002 20:34:01 +0000 |
| parents | accc481aef34 |
| children | 42375619fa45 |
line wrap: on
line diff
--- 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