/[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.35.4.4 by miles, Thu Apr 1 04:29:05 2004 UTC revision 1.35.4.5 by miles, Tue Jul 6 09:23:45 2004 UTC
# Line 229  Line 229 
229      (modify-category-entry generic-char ?|)      (modify-category-entry generic-char ?|)
230      (setq cns-list (cdr cns-list))))      (setq cns-list (cdr cns-list))))
231    
232    (let ((parens "$(G!>!?!@!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")
233          open close)
234      (dotimes (i (/ (length parens) 2))
235        (setq open (aref parens (* i 2))
236              close (aref parens (1+ (* i 2))))
237        (modify-syntax-entry open (format "(%c" close))
238        (modify-syntax-entry close (format ")%c" open))))
239    
240  ;; Cyrillic character set (ISO-8859-5)  ;; Cyrillic character set (ISO-8859-5)
241    
242  (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y)  (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y)
# Line 584  Line 592 
592    (while chars    (while chars
593      (modify-syntax-entry (car chars) "w")      (modify-syntax-entry (car chars) "w")
594      (setq chars (cdr chars))))      (setq chars (cdr chars))))
595  (modify-syntax-entry ?\$B!J(B "($B!K(B")  (let ((parens "$B!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![(B" )
596  (modify-syntax-entry ?\$B!N(B "($B!O(B")        open close)
597  (modify-syntax-entry ?\$B!P(B "($B!Q(B")    (dotimes (i (/ (length parens) 2))
598  (modify-syntax-entry ?\$B!V(B "($B!W(B")      (setq open (aref parens (* i 2))
599  (modify-syntax-entry ?\$B!X(B "($B!Y(B")            close (aref parens (1+ (* i 2))))
600  (modify-syntax-entry ?\$B!K(B ")$B!J(B")      (modify-syntax-entry open (format "(%c" close))
601  (modify-syntax-entry ?\$B!O(B ")$B!N(B")      (modify-syntax-entry close (format ")%c" open))))
 (modify-syntax-entry ?\$B!Q(B ")$B!P(B")  
 (modify-syntax-entry ?\$B!W(B ")$B!V(B")  
 (modify-syntax-entry ?\$B!Y(B ")$B!X(B")  
602    
603  (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)  (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
604  (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)  (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
# Line 652  Line 657 
657  (modify-category-entry (make-char 'korean-ksc5601 43) ?K)  (modify-category-entry (make-char 'korean-ksc5601 43) ?K)
658  (modify-category-entry (make-char 'korean-ksc5601 44) ?Y)  (modify-category-entry (make-char 'korean-ksc5601 44) ?Y)
659    
660    (let ((parens "$(C!2!3!4!5!6!7!8!9!:!;!<!=#(#)#[#]#{#}(B" )
661          open close)
662      (dotimes (i (/ (length parens) 2))
663        (setq open (aref parens (* i 2))
664              close (aref parens (1+ (* i 2))))
665        (modify-syntax-entry open (format "(%c" close))
666        (modify-syntax-entry close (format ")%c" open))))
667    
668  ;; Latin character set (latin-1,2,3,4,5,8,9)  ;; Latin character set (latin-1,2,3,4,5,8,9)
669    
670  (modify-category-entry (make-char 'latin-iso8859-1) ?l)  (modify-category-entry (make-char 'latin-iso8859-1) ?l)

Legend:
Removed from v.1.35.4.4  
changed lines
  Added in v.1.35.4.5

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