/[emacs]/emacs/lisp/international/quail.el
ViewVC logotype

Diff of /emacs/lisp/international/quail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.115 by fx, Sat Dec 15 16:40:33 2001 UTC revision 1.116 by eliz, Sun Dec 16 19:13:41 2001 UTC
# Line 1270  The returned value is a Quail map specif Line 1270  The returned value is a Quail map specif
1270  Do so while interleaving with the following special events:  Do so while interleaving with the following special events:
1271  \(compose-last-chars LEN COMPONENTS)  \(compose-last-chars LEN COMPONENTS)
1272  \(quail-advice INPUT-STRING)"  \(quail-advice INPUT-STRING)"
1273    (let* ((events (lambda (c)    (let* ((events
1274              (mapcar (lambda (c)
1275                      ;; This gives us the chance to unify on input                      ;; This gives us the chance to unify on input
1276                      ;; (e.g. using ucs-tables.el).                      ;; (e.g. using ucs-tables.el).
1277                      (or (and translation-table-for-input                      (or (and translation-table-for-input
1278                               (aref translation-table-for-input c))                               (aref translation-table-for-input c))
1279                          c)))                          c))
1280                      (string-to-list str)))
1281           (len (length str))           (len (length str))
1282           (idx len)           (idx len)
1283           composition from to)           composition from to)

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26