# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1234454988 0
# Node ID f22ae19dd0254308093374844df0792947eb255e
# Parent  2c42823a9be80c70965477930a13045b0648a7be
* international/characters.el (?1, ?2, ?3, ?4, ?7, ?^):
  Fix typos in docstrings.

diff -r 2c42823a9be8 -r f22ae19dd025 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Feb 12 16:06:54 2009 +0000
+++ b/lisp/ChangeLog	Thu Feb 12 16:09:48 2009 +0000
@@ -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 -r 2c42823a9be8 -r f22ae19dd025 lisp/international/characters.el
--- a/lisp/international/characters.el	Thu Feb 12 16:06:54 2009 +0000
+++ b/lisp/international/characters.el	Thu Feb 12 16:09:48 2009 +0000
@@ -80,17 +80,17 @@
 
 (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 @@
 (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 @@
 	   (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 @@
 
 (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))