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

Use aref instead of sref.

Browse Source
This commit is contained in:
Kenichi Handa 1998-02-04 11:25:47 +00:00
parent d5266ddfc2
commit 4a027a0dfb
2 changed files with 47 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
lisp/international/characters.el
View File

@ -256,14 +256,14 @@
(while (< i len)
(if (= (aref chars i) ?-)
(setq i (1+ i)
to (sref chars i))
(setq ch (sref chars i)
to (aref chars i))
(setq ch (aref 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 i (1+ i)))
(setq deflist (cdr deflist))))
;; Ethiopic character set
@ -318,6 +318,37 @@
(modify-category-entry (make-char 'indian-2-column) ?I)
(modify-category-entry (make-char 'indian-1-column) ?I)
(let ((deflist
'(;; chars syntax category
("(5!"#(B" "w" ?7) ; vowel-modifying diacritical mark
; chandrabindu, anuswar, visarga
("(5$(B-(52(B" "w" ?1) ; base (independent) vowel
("(53(B-(5X(B" "w" ?0) ; consonant
("(5Z(B-(5g(B" "w" ?8) ; matra
("(5q(B-(5z(B" "w" ?6) ; digit
))
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 (aref chars i))
(setq ch (aref chars i)
to ch))
(while (<= ch to)
(modify-syntax-entry ch syntax)
(modify-category-entry ch category)
(setq ch (1+ ch)))
(setq i (1+ i)))
(setq deflist (cdr deflist))))
;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212)
(modify-category-entry (make-char 'katakana-jisx0201) ?k)
@ -425,14 +456,14 @@
(while (< i len)
(if (= (aref chars i) ?-)
(setq i (1+ i)
to (sref chars i))
(setq ch (sref chars i)
to (aref chars i))
(setq ch (aref 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 i (1+ i)))
(setq deflist (cdr deflist))))
;; Thai character set (TIS620)
@ -459,14 +490,14 @@
(while (< i len)
(if (= (aref chars i) ?-)
(setq i (1+ i)
to (sref chars i))
(setq ch (sref chars i)
to (aref chars i))
(setq ch (aref 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 i (1+ i)))
(setq deflist (cdr deflist))))
;; Tibetan character set
@ -505,14 +536,14 @@
(while (< i len)
(if (= (aref chars i) ?-)
(setq i (1+ i)
to (sref chars i))
(setq ch (sref chars i)
to (aref chars i))
(setq ch (aref 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 i (1+ i)))
(setq deflist (cdr deflist))))
;; Vietnamese character set

8
lisp/international/kinsoku.el
View File

@ -78,8 +78,8 @@ The value 0 means there's no limitation.")
(idx 0)
ch)
(while (< idx len)
(setq ch (sref kinsoku-bol idx)
idx (+ idx (char-bytes ch)))
(setq ch (aref kinsoku-bol idx)
idx (1+ idx))
(modify-category-entry ch ?>)))
;; Setting character category `<' for characters which should not be
@ -115,8 +115,8 @@ The value 0 means there's no limitation.")
(idx 0)
ch)
(while (< idx len)
(setq ch (sref kinsoku-eol idx)
idx (+ idx (char-bytes ch)))
(setq ch (aref kinsoku-eol idx)
idx (1+ idx))
(modify-category-entry ch ?<)))
;; Try to resolve `kinsoku' restriction by making the current line longer.