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

2 files changed, 3 insertions, 1 deletions

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  <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 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)