[Emacs-diffs] Changes to emacs/leim/quail/uni-input.el

[Miles Bader]

Index: emacs/leim/quail/uni-input.el
diff -c emacs/leim/quail/uni-input.el:1.3 emacs/leim/quail/uni-input.el:1.4
*** emacs/leim/quail/uni-input.el:1.3   Tue Dec 25 05:49:31 2001
--- emacs/leim/quail/uni-input.el       Fri Feb 14 06:09:03 2003
***************
*** 50,56 ****
             (write ((r0 & ?\x3F) | ?\x80)))
          (if (r0 < #x200000)
              ((write ((r0 >> 18) | ?\xF0))
!              (write (((r0 >> 12) & ?\3F) | ?\x80))
               (write (((r0 >> 6) & ?\x3F) | ?\x80))
               (write ((r0 & ?\x3F) | ?\x80)))
            (if (r0 < #x4000000)
--- 50,56 ----
             (write ((r0 & ?\x3F) | ?\x80)))
          (if (r0 < #x200000)
              ((write ((r0 >> 18) | ?\xF0))
!              (write (((r0 >> 12) & ?\x3F) | ?\x80))
               (write (((r0 >> 6) & ?\x3F) | ?\x80))
               (write ((r0 & ?\x3F) | ?\x80)))
            (if (r0 < #x4000000)
***************
*** 58,70 ****
                 (write (((r0 >> 18) & ?\x3F) | ?\x80))
                 (write (((r0 >> 12) & ?\x3F) | ?\x80))
                 (write (((r0 >> 6) & ?\x3F) | ?\x80))
!                (write ((r0 & ?\x3f) | ?\x80)))
              ((write ((r0 >> 30) | ?\xFC))
               (write (((r0 >> 24) & ?\x3F) | ?\x80))
               (write (((r0 >> 18) & ?\x3F) | ?\x80))
               (write (((r0 >> 12) & ?\x3F) | ?\x80))
               (write (((r0 >> 6) & ?\x3F) | ?\x80))
!              (write ((r0 & ?\x3f) | ?\x80))))))))))
  
  (defun ucs-input-method (key)
    (if (or buffer-read-only
--- 58,70 ----
                 (write (((r0 >> 18) & ?\x3F) | ?\x80))
                 (write (((r0 >> 12) & ?\x3F) | ?\x80))
                 (write (((r0 >> 6) & ?\x3F) | ?\x80))
!                (write ((r0 & ?\x3F) | ?\x80)))
              ((write ((r0 >> 30) | ?\xFC))
               (write (((r0 >> 24) & ?\x3F) | ?\x80))
               (write (((r0 >> 18) & ?\x3F) | ?\x80))
               (write (((r0 >> 12) & ?\x3F) | ?\x80))
               (write (((r0 >> 6) & ?\x3F) | ?\x80))
!              (write ((r0 & ?\x3F) | ?\x80))))))))))
  
  (defun ucs-input-method (key)
    (if (or buffer-read-only