Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 860:b6fa6d07e6f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
859:84762348c6f9 860:b6fa6d07e6f8
307 "Return number of bytes a CHARACTER occupies in a string or buffer. 307 "Return number of bytes a CHARACTER occupies in a string or buffer.
308 It always returns 1 in XEmacs, and in recent FSF Emacs versions." 308 It always returns 1 in XEmacs, and in recent FSF Emacs versions."
309 1) 309 1)
310 (make-obsolete 'char-bytes "This function always returns 1") 310 (make-obsolete 'char-bytes "This function always returns 1")
311 311
312 (define-obsolete-function-alias 'find-non-ascii-charset-region 'charsets-in-region) 312 (defun find-non-ascii-charset-string (string)
313 (define-obsolete-function-alias 'find-non-ascii-charset-string 'charsets-in-string) 313 "Return a list of charsets in the STRING except ascii.
314 It might be available for compatibility with Mule 2.3,
315 because its `find-charset-string' ignores ASCII charset."
316 (delq 'ascii (charsets-in-string string)))
317 (make-obsolete 'find-non-ascii-charset-string
318 "use (delq 'ascii (charsets-in-string STRING)) instead.")
319
320 (defun find-non-ascii-charset-region (start end)
321 "Return a list of charsets except ascii in the region between START and END.
322 It might be available for compatibility with Mule 2.3,
323 because its `find-charset-string' ignores ASCII charset."
324 (delq 'ascii (charsets-in-region start end)))
325 (make-obsolete 'find-non-ascii-charset-region
326 "use (delq 'ascii (charsets-in-region START END)) instead.")
314 327
315 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects 328 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects
316 329
317 ;; the functionality of column.el has been moved into C 330 ;; the functionality of column.el has been moved into C
318 ;; Function obsoleted for XEmacs 20.0/February 1997. 331 ;; Function obsoleted for XEmacs 20.0/February 1997.