# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1209059953 0
# Node ID 22f1fdbf5cde99b39361a0e3da34767a1fc7c13b
# Parent  742e69ab5179c3baab268786291f1aa4f9aad032
(quail-build-decode-map): Avoid string-bytes.

diff -r 742e69ab5179 -r 22f1fdbf5cde lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Apr 24 17:56:54 2008 +0000
+++ b/lisp/ChangeLog	Thu Apr 24 17:59:13 2008 +0000
@@ -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 -r 742e69ab5179 -r 22f1fdbf5cde lisp/international/quail.el
--- a/lisp/international/quail.el	Thu Apr 24 17:56:54 2008 +0000
+++ b/lisp/international/quail.el	Thu Apr 24 17:59:13 2008 +0000
@@ -2309,7 +2309,7 @@
 			       ;; 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)