diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-02-12 16:09:48 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-02-12 16:09:48 +0000 |
| commit | 4eb97232606f1501f76e6f361f14dd6092edaf37 (patch) | |
| tree | 199f9c9d975c54ec4022f656eddd7e805117e695 /lisp/international/characters.el | |
| parent | 00a258e074d846a9e5c09c782f3b0756df2dc839 (diff) | |
| download | emacs-4eb97232606f1501f76e6f361f14dd6092edaf37.tar.gz | |
* international/characters.el (?1, ?2, ?3, ?4, ?7, ?^):
Fix typos in docstrings.
Diffstat (limited to 'lisp/international/characters.el')
| -rw-r--r-- | lisp/international/characters.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 011536e15f8..67c0f3c21e7 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -80,17 +80,17 @@ Cyrillic characters of 2-byte character sets") (define-category ?0 "consonant") (define-category ?1 "base vowel -base (independent) vowel") +Base (independent) vowel") (define-category ?2 "upper diacritic -upper diacritical mark (including upper vowel)") +Upper diacritical mark (including upper vowel)") (define-category ?3 "lower diacritic -lower diacritical mark (including lower vowel)") +Lower diacritical mark (including lower vowel)") (define-category ?4 "combining tone -combining tone mark") +Combining tone mark") (define-category ?5 "symbol") (define-category ?6 "digit") (define-category ?7 "vowel diacritic -vowel-modifying diacritical mark") +Vowel-modifying diacritical mark") (define-category ?8 "vowel-signs") (define-category ?9 "semivowel lower") @@ -114,7 +114,7 @@ A character which can't be placed at end of line.") (define-category ?. "Base Base characters (Unicode General Category L,N,P,S,Zs)") (define-category ?^ "Combining -Combining diacritic or mark (Unicode General Category M") +Combining diacritic or mark (Unicode General Category M)") ;;; Setting syntax and category. @@ -444,7 +444,7 @@ Combining diacritic or mark (Unicode General Category M") (uc (encode-char char 'ucs)) (lc (encode-char charl 'ucs))) (set-case-syntax-pair char (decode-char 'vietnamese-viscii-lower i) - tbl) + tbl) (if uc (modify-category-entry uc ?v)) (if lc (modify-category-entry lc ?v))) (setq i (1+ i)))) @@ -1030,7 +1030,7 @@ Combining diacritic or mark (Unicode General Category M") (defvar cjk-char-width-table (let ((table (make-char-table nil))) - (dolist (charset '(big5 chinese-gb2312 chinese-cns11643-1 + (dolist (charset '(big5 chinese-gb2312 chinese-cns11643-1 japanese-jisx0208 korean-ksc5601)) (map-charset-chars #'(lambda (range arg) (set-char-table-range table range 2)) |