From 348a6a50c5a22a9b47615fb126d1baaadd11794b Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 17 Jul 2002 19:05:32 +0000 Subject: [PATCH] =?utf8?q?Fix=20settings=20of=20U+2000-U+2027.=20Remove=20?= =?utf8?q?=1B$,1uf=1B(B.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/international/characters.el | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) 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) -- 2.39.5