[Emacs-diffs] Changes to emacs/lisp/international/characters.el [lexbind]

[Miles Bader]

Index: emacs/lisp/international/characters.el
diff -c emacs/lisp/international/characters.el:1.35.4.4 
emacs/lisp/international/characters.el:1.35.4.5
*** emacs/lisp/international/characters.el:1.35.4.4     Thu Apr  1 04:29:05 2004
--- emacs/lisp/international/characters.el      Tue Jul  6 09:23:45 2004
***************
*** 229,234 ****
--- 229,242 ----
      (modify-category-entry generic-char ?|)
      (setq cns-list (cdr cns-list))))
  
+ (let ((parens "$(G!>address@hidden(B")
+       open close)
+   (dotimes (i (/ (length parens) 2))
+     (setq open (aref parens (* i 2))
+         close (aref parens (1+ (* i 2))))
+     (modify-syntax-entry open (format "(%c" close))
+     (modify-syntax-entry close (format ")%c" open))))
+ 
  ;; Cyrillic character set (ISO-8859-5)
  
  (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y)
***************
*** 584,599 ****
    (while chars
      (modify-syntax-entry (car chars) "w")
      (setq chars (cdr chars))))
! (modify-syntax-entry ?\$B!J(B "($B!K(B")
! (modify-syntax-entry ?\$B!N(B "($B!O(B")
! (modify-syntax-entry ?\$B!P(B "($B!Q(B")
! (modify-syntax-entry ?\$B!V(B "($B!W(B")
! (modify-syntax-entry ?\$B!X(B "($B!Y(B")
! (modify-syntax-entry ?\$B!K(B ")$B!J(B")
! (modify-syntax-entry ?\$B!O(B ")$B!N(B")
! (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")
  
  (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
  (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
--- 592,604 ----
    (while chars
      (modify-syntax-entry (car chars) "w")
      (setq chars (cdr chars))))
! (let ((parens "$B!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![(B" )
!       open close)
!   (dotimes (i (/ (length parens) 2))
!     (setq open (aref parens (* i 2))
!         close (aref parens (1+ (* i 2))))
!     (modify-syntax-entry open (format "(%c" close))
!     (modify-syntax-entry close (format ")%c" open))))
  
  (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
  (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
***************
*** 652,657 ****
--- 657,670 ----
  (modify-category-entry (make-char 'korean-ksc5601 43) ?K)
  (modify-category-entry (make-char 'korean-ksc5601 44) ?Y)
  
+ (let ((parens "$(C!2!3!4!5!6!7!8!9!:!;!<!=#(#)#[#]#{#}(B" )
+       open close)
+   (dotimes (i (/ (length parens) 2))
+     (setq open (aref parens (* i 2))
+         close (aref parens (1+ (* i 2))))
+     (modify-syntax-entry open (format "(%c" close))
+     (modify-syntax-entry close (format ")%c" open))))
+ 
  ;; Latin character set (latin-1,2,3,4,5,8,9)
  
  (modify-category-entry (make-char 'latin-iso8859-1) ?l)