From c1dc897c47054db6873126178de9e39552026fe8 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 28 Oct 2003 14:28:12 +0000 Subject: [PATCH] Fix some Unicode ranges. --- lisp/ChangeLog | 4 ++++ lisp/international/characters.el | 11 +++++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f8da573f603..3e077f0c3fd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-10-28 Dave Love + + * international/characters.el: Fix some Unicode ranges. + 2003-10-28 Kenichi Handa * disp-table.el (standard-display-8bit) diff --git a/lisp/international/characters.el b/lisp/international/characters.el index abb94ecff07..5cd6f358da8 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -1089,11 +1089,18 @@ (setq c #x2000) (while (<= c #x200b) (set-case-syntax (decode-char 'ucs c) " " tbl) - (setq c (decode-char 'ucs (1+ c)))) + (setq c (1+ c))) (setq c #x2010) + (while (<= c #x2016) + (set-case-syntax (decode-char 'ucs c) "_" tbl) + (setq c (1+ c))) + ;; Punctuation syntax for quotation marks (like `) + (while (<= c #x201f) + (set-case-syntax (decode-char 'ucs c) "." tbl) + (setq c (1+ c))) (while (<= c #x2027) (set-case-syntax (decode-char 'ucs c) "_" tbl) - (setq c (decode-char 'ucs (1+ c)))) + (setq c (1+ c))) ;; Roman numerals (setq c #x2160) -- 2.39.2