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  <lekktu@gmail.com>
+
+        * international/characters.el (?1, ?2, ?3, ?4, ?7, ?^):
+        Fix typos in docstrings.
+
 2009-02-12  Alan Mackenzie  <acm@muc.de>
 
         * 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))