Fix settings of U+2000-U+2027.

Remove \e$,1uf\e(B.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index c6baa4e35da89c0a54d18720916a726537190768..9757c2341620f5832409fa3588b2611834d9578b 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -1065,12 +1065,12 @@
   ;; general punctuation
   (setq c #x2000)
   (while (<= c #x200b)
-    (set-case-syntax c " " tbl)
-    (setq c (1+ c)))
+    (set-case-syntax (decode-char 'ucs c) " " tbl)
+    (setq c (decode-char 'ucs (1+ c))))
   (setq c #x2010)
   (while (<= c #x2027)
-    (set-case-syntax c "_" tbl)
-    (setq c (1+ c)))
+    (set-case-syntax (decode-char 'ucs c) "_" tbl)
+    (setq c (decode-char 'ucs (1+ c))))
 
   ;; Roman numerals
   (setq c #x2160)
@@ -1097,12 +1097,6 @@
     (modify-category-entry (decode-char 'ucs (+ c #x20)) ?l)
     (setq c (1+ c)))
 
-  ;; Ohm, Kelvin, Angstrom
-  (set-case-syntax-pair ?\e$,1uf\e(B ?\e$,1'I\e(B tbl)
-;;;  These mess up the case conversion of k and \e,Ae\e(B.
-;;;  (set-case-syntax-pair ?\e$,1uj\e(B ?k tbl)
-;;;  (set-case-syntax-pair ?\e$,1uk\e(B ?\e,Ae\e(B tbl)
-
   ;; Combining diacritics
   (setq c #x300)
   (while (<= c #x362)