Mercurial > emacs

comparison lisp/international/utf-8.el @ 55437:6e677a935fe9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix references to utf-translate-cjk into utf-translate-cjk-mode.
author Andreas Schwab <schwab@suse.de>
date Sat, 08 May 2004 14:36:07 +0000
parents d61b01de8cdf
children 81dbb510a1db
comparison
equal deleted inserted replaced
55436:6975f4bea73e 55437:6e677a935fe9
1 ;;; utf-8.el --- UTF-8 decoding/encoding support -*- coding: iso-2022-7bit -*- 1 ;;; utf-8.el --- UTF-8 decoding/encoding support -*- coding: iso-2022-7bit -*-
2 2
3 ;; Copyright (C) 2001 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 2001, 2004 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. 5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
6 6
7 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org> 7 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
95 95
96 96
97 (defvar ucs-mule-cjk-to-unicode (make-hash-table :test 'eq) 97 (defvar ucs-mule-cjk-to-unicode (make-hash-table :test 'eq)
98 "Hash table mapping Emacs CJK character sets to Unicode code points. 98 "Hash table mapping Emacs CJK character sets to Unicode code points.
99 99
100 If `utf-translate-cjk' is non-nil, this table populates the 100 If `utf-translate-cjk-mode' is non-nil, this table populates the
101 translation-hash-table named `utf-subst-table-for-encode'.") 101 translation-hash-table named `utf-subst-table-for-encode'.")
102 102
103 (define-translation-hash-table 'utf-subst-table-for-encode 103 (define-translation-hash-table 'utf-subst-table-for-encode
104 ucs-mule-cjk-to-unicode) 104 ucs-mule-cjk-to-unicode)
105 105
106 (defvar ucs-unicode-to-mule-cjk (make-hash-table :test 'eq) 106 (defvar ucs-unicode-to-mule-cjk (make-hash-table :test 'eq)
107 "Hash table mapping Unicode code points to Emacs CJK character sets. 107 "Hash table mapping Unicode code points to Emacs CJK character sets.
108 108
109 If `utf-translate-cjk' is non-nil, this table populates the 109 If `utf-translate-cjk-mode' is non-nil, this table populates the
110 translation-hash-table named `utf-subst-table-for-decode'.") 110 translation-hash-table named `utf-subst-table-for-decode'.")
111 111
112 (define-translation-hash-table 'utf-subst-table-for-decode 112 (define-translation-hash-table 'utf-subst-table-for-decode
113 ucs-unicode-to-mule-cjk) 113 ucs-unicode-to-mule-cjk)
114 114
812 (post-read-conversion . utf-8-post-read-conversion) 812 (post-read-conversion . utf-8-post-read-conversion)
813 (translation-table-for-encode . utf-translation-table-for-encode) 813 (translation-table-for-encode . utf-translation-table-for-encode)
814 (dependency unify-8859-on-encoding-mode 814 (dependency unify-8859-on-encoding-mode
815 unify-8859-on-decoding-mode 815 unify-8859-on-decoding-mode
816 utf-fragment-on-decoding 816 utf-fragment-on-decoding
817 utf-translate-cjk))) 817 utf-translate-cjk-mode)))
818 818
819 (define-coding-system-alias 'utf-8 'mule-utf-8) 819 (define-coding-system-alias 'utf-8 'mule-utf-8)
820 820
821 ;; I think this needs special private charsets defined for the 821 ;; I think this needs special private charsets defined for the
822 ;; untranslated sequences, if it's going to work well. 822 ;; untranslated sequences, if it's going to work well.