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))