From 852618548a6a80773b3fa44fa76b4bd43077491f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 24 Apr 2008 17:59:13 +0000 Subject: [PATCH] (quail-build-decode-map): Avoid string-bytes. --- lisp/ChangeLog | 2 ++ lisp/international/quail.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.5