comparison lisp/mule/korean.el @ 4568:1d74a1d115ee

Add #'query-coding-region tests; do the work necessary to get them running. lisp/ChangeLog addition: 2008-12-28 Aidan Kehoe <kehoea@parhasard.net> * coding.el (default-query-coding-region): Declare using defun*, so we can #'return-from to it on encountering a safe-charsets value of t. Comment out a few debug messages. (query-coding-region): Correct the docstring, it deals with a region, not a string. (unencodable-char-position): Correct the implementation for non-nil COUNT, special-case a zero value for count, treat it as one. Don't rely on dynamic scope when calling the main lambda. * unicode.el (unicode-query-coding-region): Comment out some debug messages here. * mule/mule-coding.el (8-bit-fixed-query-coding-region): Comment out some debug messages here. * code-init.el (raw-text): Add a safe-charsets property to this coding system. * mule/korean.el (iso-2022-int-1): * mule/korean.el (euc-kr): * mule/korean.el (iso-2022-kr): Add safe-charsets properties for these coding systems. * mule/japanese.el (iso-2022-jp): * mule/japanese.el (jis7): * mule/japanese.el (jis8): * mule/japanese.el (shift-jis): * mule/japanese.el (iso-2022-jp-1978-irv): * mule/japanese.el (euc-jp): Add safe-charsets properties for all these coding systems. * mule/iso-with-esc.el: Add safe-charsets properties to all the coding systems in here. Comment on the downside of a safe-charsets value of t for iso-latin-1-with-esc. * mule/hebrew.el (ctext-hebrew): Add a safe-charsets property for this coding system. * mule/devanagari.el (in-is13194-devanagari): Add a safe-charsets property for this coding system. * mule/chinese.el (cn-gb-2312): * mule/chinese.el (hz-gb-2312): * mule/chinese.el (big5): Add safe-charsets properties for these coding systems. * mule/latin.el (iso-8859-14): Add an implementation for this, using #'make-8-bit-coding-system. * mule/mule-coding.el (ctext): * mule/mule-coding.el (iso-2022-8bit-ss2): * mule/mule-coding.el (iso-2022-7bit-ss2): * mule/mule-coding.el (iso-2022-jp-2): * mule/mule-coding.el (iso-2022-7bit): * mule/mule-coding.el (iso-2022-8): * mule/mule-coding.el (escape-quoted): * mule/mule-coding.el (iso-2022-lock): Add safe-charsets properties for all these coding systems. src/ChangeLog addition: 2008-12-28 Aidan Kehoe <kehoea@parhasard.net> * file-coding.c (Fmake_coding_system): Document our use of the safe-chars and safe-charsets properties, and the differences compared to GNU. (make_coding_system_1): Don't drop the safe-chars and safe-charsets properties. (Fcoding_system_property): Return the safe-chars and safe-charsets properties when asked for them. * file-coding.h (CODING_SYSTEM_SAFE_CHARSETS): * coding-system-slots.h: Make the safe-chars and safe-charsets slots available in these headers. tests/ChangeLog addition: 2008-12-28 Aidan Kehoe <kehoea@parhasard.net> * automated/query-coding-tests.el: New file, testing the functionality of #'query-coding-region and #'query-coding-string.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 28 Dec 2008 14:46:24 +0000
parents aa28d959af41
children 308d34e9f07d
comparison
equal deleted inserted replaced
4567:84d618b355f5 4568:1d74a1d115ee
55 (make-coding-system 55 (make-coding-system
56 'iso-2022-int-1 'iso2022 56 'iso-2022-int-1 'iso2022
57 "ISO-2022-INT-1 (Korean)" 57 "ISO-2022-INT-1 (Korean)"
58 '(charset-g0 ascii 58 '(charset-g0 ascii
59 charset-g1 korean-ksc5601 59 charset-g1 korean-ksc5601
60 safe-charsets (ascii korean-ksc5601)
60 short t 61 short t
61 seven t 62 seven t
62 lock-shift t 63 lock-shift t
63 mnemonic "INT-1")) 64 mnemonic "INT-1"))
64 65
90 'euc-kr 'iso2022 91 'euc-kr 'iso2022
91 "Korean EUC" 92 "Korean EUC"
92 '(charset-g0 ascii 93 '(charset-g0 ascii
93 charset-g1 korean-ksc5601 94 charset-g1 korean-ksc5601
94 mnemonic "ko/EUC" 95 mnemonic "ko/EUC"
96 safe-charsets (ascii korean-ksc5601)
95 documentation 97 documentation
96 "Korean EUC (Extended Unix Code), the standard Korean encoding on Unix. 98 "Korean EUC (Extended Unix Code), the standard Korean encoding on Unix.
97 This follows the same overall EUC principles (see the description under 99 This follows the same overall EUC principles (see the description under
98 Japanese EUC), but specifies different character sets: 100 Japanese EUC), but specifies different character sets:
99 101
120 '(charset-g0 ascii 122 '(charset-g0 ascii
121 charset-g1 korean-ksc5601 123 charset-g1 korean-ksc5601
122 force-g1-on-output t 124 force-g1-on-output t
123 seven t 125 seven t
124 lock-shift t 126 lock-shift t
127 safe-charsets (ascii korean-ksc5601)
125 mnemonic "Ko/7bit" 128 mnemonic "Ko/7bit"
126 documentation "Coding-System used for communication with mail in Korea." 129 documentation "Coding-System used for communication with mail in Korea."
127 eol-type lf)) 130 eol-type lf))
128 131
129 ;; (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) 132 ;; (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)