Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 5473:ac37a5f7e5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 89331fa1c819 ed74d2ca7082
children 248176c74e6b
comparison
equal deleted inserted replaced
5472:e79980ee5efe 5473:ac37a5f7e5be
398 398
399 (defun find-non-ascii-charset-string (string) 399 (defun find-non-ascii-charset-string (string)
400 "Return a list of charsets in the STRING except ascii. 400 "Return a list of charsets in the STRING except ascii.
401 It might be available for compatibility with Mule 2.3, 401 It might be available for compatibility with Mule 2.3,
402 because its `find-charset-string' ignores ASCII charset." 402 because its `find-charset-string' ignores ASCII charset."
403 (delq 'ascii (and-fboundp #'charsets-in-string (charsets-in-string string)))) 403 (delq 'ascii (and-fboundp 'charsets-in-string (charsets-in-string string))))
404 (make-obsolete 'find-non-ascii-charset-string 404 (make-obsolete 'find-non-ascii-charset-string
405 "use (delq 'ascii (charsets-in-string STRING)) instead.") 405 "use (delq 'ascii (charsets-in-string STRING)) instead.")
406 406
407 (defun find-non-ascii-charset-region (start end) 407 (defun find-non-ascii-charset-region (start end)
408 "Return a list of charsets except ascii in the region between START and END. 408 "Return a list of charsets except ascii in the region between START and END.
409 It might be available for compatibility with Mule 2.3, 409 It might be available for compatibility with Mule 2.3,
410 because its `find-charset-string' ignores ASCII charset." 410 because its `find-charset-string' ignores ASCII charset."
411 (delq 'ascii (and-fboundp #'charsets-in-region 411 (delq 'ascii (and-fboundp 'charsets-in-region
412 (charsets-in-region start end)))) 412 (charsets-in-region start end))))
413 (make-obsolete 'find-non-ascii-charset-region 413 (make-obsolete 'find-non-ascii-charset-region
414 "use (delq 'ascii (charsets-in-region START END)) instead.") 414 "use (delq 'ascii (charsets-in-region START END)) instead.")
415 415
416 ;; < 21.5 compatibility, eg. https://bugzilla.redhat.com/201524#c2 416 ;; < 21.5 compatibility, eg. https://bugzilla.redhat.com/201524#c2