Commit 4eb97232 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

* international/characters.el (?1, ?2, ?3, ?4, ?7, ?^):

  Fix typos in docstrings.
parent 00a258e0
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 `='
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment