From 4eb97232606f1501f76e6f361f14dd6092edaf37 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 12 Feb 2009 16:09:48 +0000 Subject: [PATCH] * international/characters.el (?1, ?2, ?3, ?4, ?7, ?^): Fix typos in docstrings. --- lisp/ChangeLog | 5 +++++ lisp/international/characters.el | 16 ++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a14ea3aeed2..7220ac1b08b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-02-12 Juanma Barranquero + + * international/characters.el (?1, ?2, ?3, ?4, ?7, ?^): + Fix typos in docstrings. + 2009-02-12 Alan Mackenzie * progmodes/cc-defs.el (c-emacs-features): Crash-fix: change `=' 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)) -- 2.39.5