Mercurial > emacs
comparison lisp/international/quail.el @ 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 | ca94bdbd0b62 |
| children | 889bc336b89b |
comparison
equal
deleted
inserted
replaced
| 94328:742e69ab5179 | 94329:22f1fdbf5cde |
|---|---|
| 2307 (let ((multibyte nil)) | 2307 (let ((multibyte nil)) |
| 2308 (mapc (function (lambda (x) | 2308 (mapc (function (lambda (x) |
| 2309 ;; Accept only non-ASCII chars not | 2309 ;; Accept only non-ASCII chars not |
| 2310 ;; listed in IGNORES. | 2310 ;; listed in IGNORES. |
| 2311 (if (and (if (integerp x) (> x 255) | 2311 (if (and (if (integerp x) (> x 255) |
| 2312 (> (string-bytes x) (length x))) | 2312 (string-match-p "[^[:ascii:]]" x)) |
| 2313 (not (member x ignores))) | 2313 (not (member x ignores))) |
| 2314 (setq multibyte t)))) | 2314 (setq multibyte t)))) |
| 2315 translation) | 2315 translation) |
| 2316 (when multibyte | 2316 (when multibyte |
| 2317 (setcdr decode-map | 2317 (setcdr decode-map |