/[emacs]/emacs/lisp/international/characters.el
ViewVC logotype

Diff of /emacs/lisp/international/characters.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.40 by lektu, Thu Feb 13 15:56:09 2003 UTC revision 1.41 by handa, Mon Feb 24 04:49:42 2003 UTC
# Line 140  Line 140 
140  (modify-syntax-entry ?\$A!:(B "($A!;(B")  (modify-syntax-entry ?\$A!:(B "($A!;(B")
141  (modify-syntax-entry ?\$A!<(B "($A!=(B")  (modify-syntax-entry ?\$A!<(B "($A!=(B")
142  (modify-syntax-entry ?\$A!>(B "($A!?(B")  (modify-syntax-entry ?\$A!>(B "($A!?(B")
143    (modify-syntax-entry ?\$A#((B "($A#)(B")
144    (modify-syntax-entry ?\$A#{(B "($A#}(B")
145    (modify-syntax-entry ?\$A#[(B "($A#](B")
146  (modify-syntax-entry ?\$A!3(B ")$A!2(B")  (modify-syntax-entry ?\$A!3(B ")$A!2(B")
147  (modify-syntax-entry ?\$A!5(B ")$A!4(B")  (modify-syntax-entry ?\$A!5(B ")$A!4(B")
148  (modify-syntax-entry ?\$A!7(B ")$A!6(B")  (modify-syntax-entry ?\$A!7(B ")$A!6(B")
# Line 147  Line 150 
150  (modify-syntax-entry ?\$A!;(B ")$A!:(B")  (modify-syntax-entry ?\$A!;(B ")$A!:(B")
151  (modify-syntax-entry ?\$A!=(B ")$A!<(B")  (modify-syntax-entry ?\$A!=(B ")$A!<(B")
152  (modify-syntax-entry ?\$A!?(B ")$A!>(B")  (modify-syntax-entry ?\$A!?(B ")$A!>(B")
153    (modify-syntax-entry ?\$A#)(B ")$A#((B")
154    (modify-syntax-entry ?\$A#}(B ")$A#{(B")
155    (modify-syntax-entry ?\$A#](B ")$A#[(B")
156  ;; Unicode equivalents of above  ;; Unicode equivalents of above
157  (modify-syntax-entry ?\$,2=T(B "($,2=U(B")  (modify-syntax-entry ?\$,2=T(B "($,2=U(B")
158  (modify-syntax-entry ?\$,2=H(B "($,2=I(B")  (modify-syntax-entry ?\$,2=H(B "($,2=I(B")
# Line 163  Line 169 
169  (modify-syntax-entry ?\$,2=W(B ")$,2=V(B")  (modify-syntax-entry ?\$,2=W(B ")$,2=V(B")
170  (modify-syntax-entry ?\$,2=Q(B ")$,2=P(B")  (modify-syntax-entry ?\$,2=Q(B ")$,2=P(B")
171    
172    (let ((chars "$A#,!"!##.!$#;#:#?#!!C!-!'#|#_!.!/!0!1#"!e#`!d(B"))
173      (dotimes (i (length chars))
174        (modify-syntax-entry (aref chars i) ".")))
175    
176  (modify-category-entry (make-char 'chinese-gb2312) ?c)  (modify-category-entry (make-char 'chinese-gb2312) ?c)
177  (modify-category-entry (make-char 'chinese-gb2312) ?\|)  (modify-category-entry (make-char 'chinese-gb2312) ?\|)
178  (modify-category-entry (make-char 'chinese-gb2312 35) ?A)  (modify-category-entry (make-char 'chinese-gb2312 35) ?A)
# Line 177  Line 187 
187    
188  ;; Chinese character set (BIG5)  ;; Chinese character set (BIG5)
189    
190    
191    
192    (let ((from (decode-big5-char #xA141))
193          (to (decode-big5-char #xA15D)))
194      (while (< from to)
195        (modify-syntax-entry from ".")
196        (setq from (1+ from))))
197    (let ((from (decode-big5-char #xA1A5))
198          (to (decode-big5-char #xA1AD)))
199      (while (< from to)
200        (modify-syntax-entry from ".")
201        (setq from (1+ from))))
202    (let ((from (decode-big5-char #xA1AD))
203          (to (decode-big5-char #xA2AF)))
204      (while (< from to)
205        (modify-syntax-entry from "_")
206        (setq from (1+ from))))
207    
208    (let ((parens "$(0!>!?!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c(B")
209          open close)
210      (dotimes (i (/ (length parens) 2))
211        (setq open (aref parens (* i 2))
212              close (aref parens (1+ (* i 2))))
213        (modify-syntax-entry open (format "(%c" close))
214        (modify-syntax-entry close (format ")%c" open))))
215    
216  (let ((generic-big5-1-char (make-char 'chinese-big5-1))  (let ((generic-big5-1-char (make-char 'chinese-big5-1))
217        (generic-big5-2-char (make-char 'chinese-big5-2)))        (generic-big5-2-char (make-char 'chinese-big5-2)))
218  ;;   (modify-syntax-entry generic-big5-1-char "w")  ;;   (modify-syntax-entry generic-big5-1-char "w")

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26