diff options
Diffstat (limited to 'lisp/language')
-rw-r--r-- | lisp/language/chinese.el | 14 | ||||
-rw-r--r-- | lisp/language/ethio-util.el | 4 | ||||
-rw-r--r-- | lisp/language/european.el | 1 | ||||
-rw-r--r-- | lisp/language/lao-util.el | 2 | ||||
-rw-r--r-- | lisp/language/thai-util.el | 2 | ||||
-rw-r--r-- | lisp/language/tibet-util.el | 2 | ||||
-rw-r--r-- | lisp/language/tibetan.el | 8 | ||||
-rw-r--r-- | lisp/language/viet-util.el | 4 |
8 files changed, 19 insertions, 18 deletions
diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el index c44dc44581d..0e87d4d8e8c 100644 --- a/lisp/language/chinese.el +++ b/lisp/language/chinese.el @@ -125,7 +125,7 @@ (define-coding-system 'chinese-big5 "BIG5 8-bit encoding for Chinese (MIME:Big5)" :coding-type 'big5 - :mnemonic ?B + :mnemonic ?B :charset-list '(ascii big5) :mime-charset 'big5) @@ -152,7 +152,7 @@ (define-coding-system 'chinese-big5-hkscs "BIG5-HKSCS 8-bit encoding for Chinese, Hong Kong supplement (MIME:Big5-HKSCS)" :coding-type 'charset - :mnemonic ?B + :mnemonic ?B :charset-list '(ascii big5-hkscs) :mime-charset 'big5-hkscs) (define-coding-system-alias 'big5-hkscs 'chinese-big5-hkscs) @@ -191,7 +191,7 @@ chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7) (iso639-language . zh) - (setup-function . (lambda () + (setup-function . (lambda () (use-cjk-char-width-table 'zh_TW))) (exit-function . use-default-char-width-table) (coding-system iso-2022-cn euc-tw) @@ -211,7 +211,7 @@ accepts Big5 for input also (which is then converted to CNS).")) chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7 chinese-big5-1 chinese-big5-2) (iso639-language . zh) - (setup-function . (lambda () + (setup-function . (lambda () (use-cjk-char-width-table 'zh_TW))) (exit-function . use-default-char-width-table) (coding-system euc-tw iso-2022-cn) @@ -220,7 +220,7 @@ accepts Big5 for input also (which is then converted to CNS).")) (features china-util) (input-method . "chinese-cns-quick") (documentation . "\ -Support for Chinese, prefering the EUC-TW character set. Note that +Support for Chinese, preferring the EUC-TW character set. Note that the EUC-TW coding system accepts Big5 for input also (which is then converted to CNS).")) '("Chinese")) @@ -241,13 +241,13 @@ converted to CNS).")) (set-language-info-alist "Chinese-GBK" '((charset chinese-gbk) (iso639-language . zh) - (setup-function . (lambda () + (setup-function . (lambda () (use-cjk-char-width-table 'zh_CN))) (exit-function . use-default-char-width-table) (coding-system chinese-gbk) (coding-priority gbk iso-2022-cn chinese-big5 chinese-iso-8bit) ; fixme? - (ctext-non-standard-encodings "gbk-0") + (ctext-non-standard-encodings "gbk-0") (input-method . "chinese-py-punct") ; fixme? (sample-text . "Chinese ($BCfJ8(B,$BIaDL$A;0(B,$A::So(B) $(D95$B9%(B") (features china-util) diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el index 444f4d519da..306a7bee9dc 100644 --- a/lisp/language/ethio-util.el +++ b/lisp/language/ethio-util.el @@ -802,7 +802,7 @@ The 2nd and 3rd arguments BEGIN and END specify the region." (forward-char 1) (insert "}"))) - ;; Special Ethiopic punctuations. + ;; Special Ethiopic punctuation. (goto-char (point-min)) (while (re-search-forward "\\ce[»\\.\\?]\\|«\\ce" nil t) (cond @@ -890,7 +890,7 @@ Otherwise, [0-9A-F]." ;;;###autoload (defun ethio-find-file nil - "Transliterate file content into Ethiopic dependig on filename suffix." + "Transliterate file content into Ethiopic depending on filename suffix." (cond ((string-match "\\.sera$" (buffer-file-name)) diff --git a/lisp/language/european.el b/lisp/language/european.el index 5bdec6dec7b..3c2cb083ff6 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -613,6 +613,7 @@ method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D* :mnemonic ?M :charset-list '(mac-roman) :mime-charset 'macintosh) +(define-coding-system-alias 'macintosh 'mac-roman) (define-coding-system 'next "NeXTstep encoding" diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el index 008eb92dbbc..2a339504409 100644 --- a/lisp/language/lao-util.el +++ b/lisp/language/lao-util.el @@ -386,7 +386,7 @@ character MAA-SAKOD-n.") "Transcribe a Romanized Lao syllable in the region FROM and TO to Lao string. Only the first syllable is transcribed. The value has the form: (START END LAO-STRING), where -START and END are the beggining and end positions of the Roman Lao syllable, +START and END are the beginning and end positions of the Roman Lao syllable, LAO-STRING is the Lao character transcription of it. Optional 3rd arg STR, if non-nil, is a string to search for Roman Lao diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el index b7dbcc1a956..e9943df12a8 100644 --- a/lisp/language/thai-util.el +++ b/lisp/language/thai-util.el @@ -124,7 +124,7 @@ (?ใ vowel-base "VOWEL SIGN SARA MAI MUAN") ; 0xE3 (?ไ vowel-base "VOWEL SIGN SARA MAI MALAI") ; 0xE4 (?ๅ vowel-base "LAK KHANG YAO") ; 0xE5 - (?ๆ special "MAI YAMOK (repetion)") ; 0xE6 + (?ๆ special "MAI YAMOK (repetition)") ; 0xE6 (?็ sign-upper "VOWEL SIGN MAI TAI KHU N/S-T") ; 0xE7 (?่ tone "TONE MAI EK N/S-T") ; 0xE8 (?้ tone "TONE MAI THO N/S-T") ; 0xE9 diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index 8458974e753..fd23bbb6d54 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el @@ -27,7 +27,7 @@ ;;; History: ;; 1997.03.13 Modification in treatment of text properties; -;; Support for some special signs and punctuations. +;; Support for some special signs and punctuation. ;; 1999.10.25 Modification for a new composition way by K.Handa. ;;; Commentary: diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index a23645bae1f..1607868dea5 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el @@ -30,7 +30,7 @@ ;;; History: -;; 1997.03.13 Modification for special signs and punctuations. +;; 1997.03.13 Modification for special signs and punctuation. ;;; Commentary: @@ -44,7 +44,7 @@ ;;; ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; obsolete glyphs (2123-5) -;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuations, +;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuation, ;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and ;;;2150 $(7!P(B $(7!Q(B $(7!R(B $(7!S(B $(7!T(B $(7!U(B $(7!V(B $(7!W(B $(7!X(B $(7!Y(B $(7!Z(B $(7![(B $(7!\(B $(7!](B $(7!^(B $(7!_(B ; Special signs. ;;;2160 $(7!`(B $(7!a(B $(7!b(B $(7!c(B $(7!d(B $(7!e(B $(7!f(B $(7!g(B $(7!h(B $(7!i(B $(7!j(B $(7!k(B $(7!l(B $(7!m(B $(7!n(B $(7!o(B ; @@ -424,7 +424,7 @@ )) ;;; alist for Tibetan composite vowels (long i, vocalic r, etc.) -;;; New varialble. created by Tomabechi 2000/06/08 +;;; New variable. created by Tomabechi 2000/06/08 (defconst tibetan-composite-vowel-alist '(;; LONG A ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B)) @@ -604,7 +604,7 @@ This also matches some punctuation characters which need conversion.") (defvar tibetan-decomposed-temp nil) ;; For automatic composition. -(set-char-table-range +(set-char-table-range composition-function-table '(#xF00 . #xFD1) (list (vector tibetan-composable-pattern 0 'font-shape-gstring))) diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el index ea601c041e4..b71c65438be 100644 --- a/lisp/language/viet-util.el +++ b/lisp/language/viet-util.el @@ -34,7 +34,7 @@ ;; for representing these characters: VISCII, TCVN-5712, VPS, VIQR, ;; and Unicode. VISCII, TCVN-5712 and VPS are simple 1-byte code ;; which assigns 134 unique characters in control-code area -;; (0x00..0x1F) and right half area (0x80..0xFF). VIQR is a menmonic +;; (0x00..0x1F) and right half area (0x80..0xFF). VIQR is a mnemonic ;; encoding specification representing diacritical marks by following ;; ASCII characters. @@ -47,7 +47,7 @@ "Return VISCII character code of CHAR if appropriate." (encode-char char 'viscii)) -;; VIQR is a menmonic encoding specification for Vietnamese. +;; VIQR is a mnemonic encoding specification for Vietnamese. ;; It represents diacritical marks by ASCII characters as follows: ;; ------------+----------+-------- ;; mark | mnemonic | example |