Mercurial > emacs
comparison lisp/international/quail.el @ 88921:f0e86bd74de8
comment
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 30 Jul 2002 11:25:43 +0000 |
parents | 444ef6485085 |
children | dfb403b5572b |
comparison
equal
deleted
inserted
replaced
88920:4cda993e8f6e | 88921:f0e86bd74de8 |
---|---|
1272 \(quail-advice INPUT-STRING)" | 1272 \(quail-advice INPUT-STRING)" |
1273 (let* ((events (mapcar | 1273 (let* ((events (mapcar |
1274 (lambda (c) | 1274 (lambda (c) |
1275 ;; This gives us the chance to unify on input | 1275 ;; This gives us the chance to unify on input |
1276 ;; (e.g. using ucs-tables.el). | 1276 ;; (e.g. using ucs-tables.el). |
1277 ;; Fixme: Is this still useful? (See also mule-conf.el.) | |
1277 (or (and translation-table-for-input | 1278 (or (and translation-table-for-input |
1278 (aref translation-table-for-input c)) | 1279 (aref translation-table-for-input c)) |
1279 c)) | 1280 c)) |
1280 str)) | 1281 str)) |
1281 (len (length str)) | 1282 (len (length str)) |