emacs-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]