From: Stefan Monnier Date: Thu, 24 Apr 2008 17:59:13 +0000 (+0000) Subject: (quail-build-decode-map): Avoid string-bytes. X-Git-Tag: emacs-pretest-23.0.90~6063 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=852618548a6a80773b3fa44fa76b4bd43077491f;p=emacs.git (quail-build-decode-map): Avoid string-bytes. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 91963a31f09..c9f57f0aae3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2008-04-24 Stefan Monnier + * international/quail.el (quail-build-decode-map): Avoid string-bytes. + * textmodes/ispell.el (ispell-dictionary-alist-1) (ispell-dictionary-alist-2, ispell-dictionary-alist-3): (ispell-dictionary-alist-4, ispell-dictionary-alist-5): diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 90466f57cdd..e4144bb0a2d 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2309,7 +2309,7 @@ Optional 6th arg IGNORES is a list of translations to ignore." ;; Accept only non-ASCII chars not ;; listed in IGNORES. (if (and (if (integerp x) (> x 255) - (> (string-bytes x) (length x))) + (string-match-p "[^[:ascii:]]" x)) (not (member x ignores))) (setq multibyte t)))) translation)