[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/quail.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/quail.el |
Date: |
Sun, 16 Dec 2001 14:13:42 -0500 |
Index: emacs/lisp/international/quail.el
diff -c emacs/lisp/international/quail.el:1.115
emacs/lisp/international/quail.el:1.116
*** emacs/lisp/international/quail.el:1.115 Sat Dec 15 11:40:33 2001
--- emacs/lisp/international/quail.el Sun Dec 16 14:13:41 2001
***************
*** 1270,1281 ****
Do so while interleaving with the following special events:
\(compose-last-chars LEN COMPONENTS)
\(quail-advice INPUT-STRING)"
! (let* ((events (lambda (c)
;; This gives us the chance to unify on input
;; (e.g. using ucs-tables.el).
(or (and translation-table-for-input
(aref translation-table-for-input c))
! c)))
(len (length str))
(idx len)
composition from to)
--- 1270,1283 ----
Do so while interleaving with the following special events:
\(compose-last-chars LEN COMPONENTS)
\(quail-advice INPUT-STRING)"
! (let* ((events
! (mapcar (lambda (c)
;; This gives us the chance to unify on input
;; (e.g. using ucs-tables.el).
(or (and translation-table-for-input
(aref translation-table-for-input c))
! c))
! (string-to-list str)))
(len (length str))
(idx len)
composition from to)