(quail-build-decode-map): Avoid string-bytes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91963a31f09df27c481212b623e7c8017ae1e137..c9f57f0aae3b5d7e2b0715463df46bf00a9f33a0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-04-24  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * 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 90466f57cddb878727f463f214104cad3f0f31e3..e4144bb0a2df8ade0f811ac928e76859bda01aef 100644 (file)
--- 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)