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

[Kenichi Handa]

Index: emacs/lisp/international/characters.el
diff -c emacs/lisp/international/characters.el:1.36 
emacs/lisp/international/characters.el:1.37
*** emacs/lisp/international/characters.el:1.36 Wed Jun 19 21:02:47 2002
--- emacs/lisp/international/characters.el      Wed Jul 17 15:05:32 2002
***************
*** 1065,1076 ****
    ;; general punctuation
    (setq c #x2000)
    (while (<= c #x200b)
!     (set-case-syntax c " " tbl)
!     (setq c (1+ c)))
    (setq c #x2010)
    (while (<= c #x2027)
!     (set-case-syntax c "_" tbl)
!     (setq c (1+ c)))
  
    ;; Roman numerals
    (setq c #x2160)
--- 1065,1076 ----
    ;; general punctuation
    (setq c #x2000)
    (while (<= c #x200b)
!     (set-case-syntax (decode-char 'ucs c) " " tbl)
!     (setq c (decode-char 'ucs (1+ c))))
    (setq c #x2010)
    (while (<= c #x2027)
!     (set-case-syntax (decode-char 'ucs c) "_" tbl)
!     (setq c (decode-char 'ucs (1+ c))))
  
    ;; Roman numerals
    (setq c #x2160)
***************
*** 1096,1107 ****
      (modify-category-entry (decode-char 'ucs c) ?l)
      (modify-category-entry (decode-char 'ucs (+ c #x20)) ?l)
      (setq c (1+ c)))
- 
-   ;; Ohm, Kelvin, Angstrom
-   (set-case-syntax-pair ?$,1uf(B ?$,1'I(B tbl)
- ;;;  These mess up the case conversion of k and ,Ae(B.
- ;;;  (set-case-syntax-pair ?$,1uj(B ?k tbl)
- ;;;  (set-case-syntax-pair ?$,1uk(B ?,Ae(B tbl)
  
    ;; Combining diacritics
    (setq c #x300)
--- 1096,1101 ----