Mercurial > emacs
changeset 94329:22f1fdbf5cde
(quail-build-decode-map): Avoid string-bytes.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 24 Apr 2008 17:59:13 +0000 |
| parents | 742e69ab5179 |
| children | 52fb31c78b25 |
| files | lisp/ChangeLog lisp/international/quail.el |
| diffstat | 2 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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)