Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6eba8645
Commit
6eba8645
authored
Feb 26, 1997
by
Kenichi Handa
Browse files
Remove prefix "coding-system-" from coding system symbol names.
Add a section for Lao.
parent
95aeae46
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
39 additions
and
2 deletions
+39
-2
lisp/international/characters.el
lisp/international/characters.el
+39
-2
No files found.
lisp/international/characters.el
View file @
6eba8645
...
...
@@ -25,7 +25,7 @@
;;; Commentary:
;; This file contains multibyte characters. Save this file always in
;;
`
coding
-
system
-
iso-2022-7'.
;;
the
coding
system
`
iso-2022-7'.
;;; Predefined categories.
...
...
@@ -46,6 +46,7 @@
(
define-category
?e
"Ethiopic (Ge'ez)"
)
(
define-category
?v
"Vietnamese"
)
(
define-category
?i
"Indian"
)
(
define-category
?o
"Lao"
)
;; For each group (row) of 2-byte character sets.
...
...
@@ -68,7 +69,8 @@
(
define-category
?5
"vowel"
)
(
define-category
?6
"digit"
)
(
define-category
?7
"vowel-modifying diacritical mark"
)
(
define-category
?8
"vowel-signs."
)
(
define-category
?8
"vowel-signs"
)
(
define-category
?9
"semivowel lower"
)
;; For filling.
(
define-category
?| "While filling, we can break a line at this character.")
...
...
@@ -324,6 +326,41 @@
(modify-category-entry (make-char 'korean-ksc5601 43) ?K)
(modify-category-entry (make-char 'korean-ksc5601 44) ?Y)
;; Lao character set
(modify-category-entry (make-char 'lao) ?o)
(let ((deflist '(;; chars syntax category
("
(
1!
(
B-
(
1N
(
B
" "
w
" ?0) ; consonant
("
(
1PRS]
`
(
B-
(
1d
(
B
" "
w
" ?1) ; vowel base
("
(
1QT
(
B-
(
1W[m
(
B
" "
w
" ?2) ; vowel upper
("
(
1XY
(
B
" "
w
" ?3) ; vowel lower
("
(
1h
(
B-
(
1l
(
B
" "
w
" ?4) ; tone mark
("
(
1\
(
B
" "
w
" ?9) ; semivowel lower
("
(
1p
(
B-
(
1y
(
B
" "
w
" ?0) ; digit and misc
("
(
1Of
(
B
" "
_
" ?0) ; symbol
))
elm chars len syntax category to ch i)
(while deflist
(setq elm (car deflist))
(setq chars (car elm)
len (length chars)
syntax (nth 1 elm)
category (nth 2 elm)
i 0)
(while (< i len)
(if (= (aref chars i) ?-)
(setq i (1+ i)
to (sref chars i))
(setq ch (sref chars i)
to ch))
(while (<= ch to)
(modify-syntax-entry ch syntax)
(modify-category-entry ch category)
(setq ch (1+ ch)))
(setq i (+ i (char-bytes to))))
(setq deflist (cdr deflist))))
;; Thai character set (TIS620)
(modify-category-entry (make-char 'thai-tis620) ?t)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment