comparison lisp/international/mule-cmds.el @ 50720:9e0c5cef06ef

(reset-language-environment): Raise the priority of mule-utf-8, mule-utf-16-be-with-signature and mule-utf-16-le.-with-signature.
author Kenichi Handa <handa@m17n.org>
date Mon, 28 Apr 2003 09:16:19 +0000
parents 849192639a83
children 1a17ca15ca4b
comparison
equal deleted inserted replaced
50719:3ec397b863e0 50720:9e0c5cef06ef
1583 1583
1584 The order of priorities of coding categories and the coding system 1584 The order of priorities of coding categories and the coding system
1585 bound to each category are as follows 1585 bound to each category are as follows
1586 coding category coding system 1586 coding category coding system
1587 -------------------------------------------------- 1587 --------------------------------------------------
1588 coding-category-iso-8-1 iso-latin-1
1588 coding-category-iso-8-2 iso-latin-1 1589 coding-category-iso-8-2 iso-latin-1
1589 coding-category-iso-8-1 iso-latin-1 1590 coding-category-utf-8 mule-utf-8
1591 coding-category-utf-16-be mule-utf-16-be-with-signature
1592 coding-category-utf-16-le mule-utf-16-le-with-signature
1590 coding-category-iso-7-tight iso-2022-jp 1593 coding-category-iso-7-tight iso-2022-jp
1591 coding-category-iso-7 iso-2022-7bit 1594 coding-category-iso-7 iso-2022-7bit
1592 coding-category-iso-7-else iso-2022-7bit-lock 1595 coding-category-iso-7-else iso-2022-7bit-lock
1593 coding-category-iso-8-else iso-2022-8bit-ss2 1596 coding-category-iso-8-else iso-2022-8bit-ss2
1594 coding-category-emacs-mule emacs-mule 1597 coding-category-emacs-mule emacs-mule
1595 coding-category-raw-text raw-text 1598 coding-category-raw-text raw-text
1596 coding-category-sjis japanese-shift-jis 1599 coding-category-sjis japanese-shift-jis
1597 coding-category-big5 chinese-big5 1600 coding-category-big5 chinese-big5
1598 coding-category-ccl nil 1601 coding-category-ccl nil
1599 coding-category-binary no-conversion 1602 coding-category-binary no-conversion"
1600 coding-category-utf-16-be nil
1601 coding-category-utf-16-le nil
1602 coding-category-utf-8 mule-utf-8"
1603 (interactive) 1603 (interactive)
1604 ;; This function formerly set default-enable-multibyte-characters to t, 1604 ;; This function formerly set default-enable-multibyte-characters to t,
1605 ;; but that is incorrect. It should not alter the unibyte/multibyte choice. 1605 ;; but that is incorrect. It should not alter the unibyte/multibyte choice.
1606 1606
1607 (setq coding-category-iso-7-tight 'iso-2022-jp 1607 (setq coding-category-iso-7-tight 'iso-2022-jp
1612 coding-category-iso-8-else 'iso-2022-8bit-ss2 1612 coding-category-iso-8-else 'iso-2022-8bit-ss2
1613 coding-category-emacs-mule 'emacs-mule 1613 coding-category-emacs-mule 'emacs-mule
1614 coding-category-raw-text 'raw-text 1614 coding-category-raw-text 'raw-text
1615 coding-category-sjis 'japanese-shift-jis 1615 coding-category-sjis 'japanese-shift-jis
1616 coding-category-big5 'chinese-big5 1616 coding-category-big5 'chinese-big5
1617 coding-category-utf-16-be nil 1617 coding-category-utf-16-be 'mule-utf-16-be-with-signature
1618 coding-category-utf-16-le nil 1618 coding-category-utf-16-le 'mule-utf-16-le-with-signature
1619 coding-category-utf-8 'mule-utf-8 1619 coding-category-utf-8 'mule-utf-8
1620 coding-category-ccl nil 1620 coding-category-ccl nil
1621 coding-category-binary 'no-conversion) 1621 coding-category-binary 'no-conversion)
1622 1622
1623 (set-coding-priority 1623 (set-coding-priority
1624 '(coding-category-iso-8-1 1624 '(coding-category-iso-8-1
1625 coding-category-iso-8-2 1625 coding-category-iso-8-2
1626 coding-category-utf-8
1627 coding-category-utf-16-be
1628 coding-category-utf-16-le
1626 coding-category-iso-7-tight 1629 coding-category-iso-7-tight
1627 coding-category-iso-7 1630 coding-category-iso-7
1628 coding-category-iso-7-else 1631 coding-category-iso-7-else
1629 coding-category-iso-8-else 1632 coding-category-iso-8-else
1630 coding-category-emacs-mule 1633 coding-category-emacs-mule
1631 coding-category-raw-text 1634 coding-category-raw-text
1632 coding-category-sjis 1635 coding-category-sjis
1633 coding-category-big5 1636 coding-category-big5
1634 coding-category-ccl 1637 coding-category-ccl
1635 coding-category-binary 1638 coding-category-binary))
1636 coding-category-utf-16-be
1637 coding-category-utf-16-le
1638 coding-category-utf-8))
1639 1639
1640 (update-coding-systems-internal) 1640 (update-coding-systems-internal)
1641 1641
1642 (set-default-coding-systems nil) 1642 (set-default-coding-systems nil)
1643 (setq default-sendmail-coding-system 'iso-latin-1) 1643 (setq default-sendmail-coding-system 'iso-latin-1)