mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

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

Browse Source 
Fix typos in docstrings.
This commit is contained in:
Juanma Barranquero 2009-02-12 16:09:48 +00:00
parent 00a258e074
commit 4eb9723260
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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 `='

16
lisp/international/characters.el
View File

@ -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))