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

[Kenichi Handa]

Index: emacs/lisp/international/ucs-tables.el
diff -c emacs/lisp/international/ucs-tables.el:1.12.4.5 
emacs/lisp/international/ucs-tables.el:1.12.4.6
*** emacs/lisp/international/ucs-tables.el:1.12.4.5     Tue Oct  8 06:58:24 2002
--- emacs/lisp/international/ucs-tables.el      Fri Jun 20 22:32:04 2003
***************
*** 1165,1171 ****
  
    (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)
--- 1165,1171 ----
  
    (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)))
        (define-translation-table 'utf-translation-table-for-encode
        ucs-mule-to-mule-unicode)
        (dolist (coding coding-list)
***************
*** 1207,1213 ****
    (when for-encode
      ;; Make mule-utf-* disabled for all characters in
      ;; ucs-mule-to-mule-unicode but what originally supported.
!     (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))
--- 1207,1213 ----
    (when for-encode
      ;; Make mule-utf-* disabled for all characters in
      ;; ucs-mule-to-mule-unicode but what originally supported.
!     (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le))
          (safe (coding-system-get 'mule-utf-8 'safe-chars)))
        (dolist (coding coding-list)
        (set-char-table-parent (coding-system-get coding 'safe-chars) nil))
***************
*** 2459,2465 ****
    ;; bootstrapping.  So, as a workaround, we set nil here, and later
    ;; call:
    ;;  (unify-8859-on-encoding-mode 1)
!   :init-value nil
    (if unify-8859-on-encoding-mode
        (ucs-unify-8859 t nil)
      (ucs-fragment-8859 t nil)))
--- 2459,2465 ----
    ;; bootstrapping.  So, as a workaround, we set nil here, and later
    ;; call:
    ;;  (unify-8859-on-encoding-mode 1)
!   :init-value t
    (if unify-8859-on-encoding-mode
        (ucs-unify-8859 t nil)
      (ucs-fragment-8859 t nil)))