[Emacs-diffs] Changes to emacs/lisp/international/quail.el

[Dave Love]

Index: emacs/lisp/international/quail.el
diff -c emacs/lisp/international/quail.el:1.116 
emacs/lisp/international/quail.el:1.117
*** emacs/lisp/international/quail.el:1.116     Sun Dec 16 14:13:41 2001
--- emacs/lisp/international/quail.el   Tue Dec 18 10:35:35 2001
***************
*** 635,641 ****
  (defconst quail-keyboard-layout-len 180)
  
  ;; Here we provide several examples of famous keyboard layouts.
! 
  (defvar quail-keyboard-layout-alist
    (list
     (cons "standard" quail-keyboard-layout-standard)
--- 635,641 ----
  (defconst quail-keyboard-layout-len 180)
  
  ;; Here we provide several examples of famous keyboard layouts.
! ;; This is a candidate for a language environment-dependent setting.
  (defvar quail-keyboard-layout-alist
    (list
     (cons "standard" quail-keyboard-layout-standard)
***************
*** 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)
--- 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))
!                 str))
         (len (length str))
         (idx len)
         composition from to)