From: Dave Love <fx@gnu.org>
Date: Tue, 28 Oct 2003 14:28:12 +0000 (+0000)
Subject: Fix some Unicode ranges.
X-Git-Tag: ttn-vms-21-2-B4~8454
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1dc897c47054db6873126178de9e39552026fe8;p=emacs.git

Fix some Unicode ranges.
---

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  <fx@gnu.org>
+
+	* international/characters.el: Fix some Unicode ranges.
+
 2003-10-28  Kenichi Handa  <handa@etlken2>
 
 	* 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)