Mercurial > emacs
changeset 101982:f22ae19dd025
* international/characters.el (?1, ?2, ?3, ?4, ?7, ?^):
Fix typos in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 12 Feb 2009 16:09:48 +0000 |
| parents | 2c42823a9be8 |
| children | 70db2d7b280c |
| files | lisp/ChangeLog lisp/international/characters.el |
| diffstat | 2 files changed, 13 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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 `='
--- 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))