[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/ucs-tables.el [lexbind
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/ucs-tables.el [lexbind] |
Date: |
Tue, 14 Oct 2003 19:39:33 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/ucs-tables.el [lexbind],
Miles Bader <=