From: Dave Love <fx@gnu.org>
Date: Wed, 17 Jul 2002 19:05:32 +0000 (+0000)
Subject: Fix settings of U+2000-U+2027.
X-Git-Tag: ttn-vms-21-2-B4~14018
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=348a6a50c5a22a9b47615fb126d1baaadd11794b;p=emacs.git

Fix settings of U+2000-U+2027.
Remove $,1uf(B.
---

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index c6baa4e35da..9757c234162 100644
--- 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 ?$,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)
   (while (<= c #x362)