Mercurial > emacs

diff lisp/international/quail.el @ 94329:22f1fdbf5cde

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-build-decode-map): Avoid string-bytes.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 24 Apr 2008 17:59:13 +0000
parents ca94bdbd0b62
children 889bc336b89b
line wrap: on
line diff
--- 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)