Mercurial > emacs

changeset 46503:5d3a20be7989

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix settings of U+2000-U+2027. Remove $,1uf(B.
author Dave Love <fx@gnu.org>
date Wed, 17 Jul 2002 19:05:32 +0000
parents f66dad8d9f49
children 2d28ee240bd7
files lisp/international/characters.el
diffstat 1 files changed, 4 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/characters.el	Wed Jul 17 18:48:11 2002 +0000
+++ b/lisp/international/characters.el	Wed Jul 17 19:05:32 2002 +0000
@@ -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)