[Emacs-diffs] Changes to emacs/lisp/international/ucs-tables.el [lexbind]

[Miles Bader]

Index: emacs/lisp/international/ucs-tables.el
diff -c emacs/lisp/international/ucs-tables.el:1.12.2.1 
emacs/lisp/international/ucs-tables.el:1.12.2.2
*** emacs/lisp/international/ucs-tables.el:1.12.2.1     Fri Apr  4 01:20:26 2003
--- emacs/lisp/international/ucs-tables.el      Tue Oct 14 19:39:23 2003
***************
*** 1180,1186 ****
  
    (when for-encode
      ;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode.
!     (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le)))
        (define-translation-table 'utf-translation-table-for-encode
        ucs-mule-to-mule-unicode)
        (dolist (coding coding-list)
--- 1180,1188 ----
  
    (when for-encode
      ;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode.
!     (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le
!                                   mule-utf-16be-with-signature
!                                   mule-utf-16le-with-signature)))
        (define-translation-table 'utf-translation-table-for-encode
        ucs-mule-to-mule-unicode)
        (dolist (coding coding-list)
***************
*** 1219,1225 ****
      ;; ucs-mule-to-mule-unicode except what was originally supported
      ;; and what is translated by utf-translation-table-for-decode when
      ;; `utf-fragment-on-decoding' is non-nil.
!     (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le))
          (safe (coding-system-get 'mule-utf-8 'safe-chars)))
        (dolist (coding coding-list)
        (set-char-table-parent (coding-system-get coding 'safe-chars) nil))
--- 1221,1229 ----
      ;; ucs-mule-to-mule-unicode except what was originally supported
      ;; and what is translated by utf-translation-table-for-decode when
      ;; `utf-fragment-on-decoding' is non-nil.
!     (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le
!                                   mule-utf-16be-with-signature
!                                   mule-utf-16le-with-signature))
          (safe (coding-system-get 'mule-utf-8 'safe-chars)))
        (dolist (coding coding-list)
        (set-char-table-parent (coding-system-get coding 'safe-chars) nil))
***************
*** 2527,2530 ****
--- 2531,2535 ----
  
  (provide 'ucs-tables)
  
+ ;;; arch-tag: b497e22b-7fe1-486a-9352-e2d7f7d76a76
  ;;; ucs-tables.el ends here