Mercurial > emacs

changeset 52950:5e8fca3de28c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix some Unicode ranges.
author Dave Love <fx@gnu.org>
date Tue, 28 Oct 2003 14:26:38 +0000
parents 24f0bfec962b
children 084a500db488
files lisp/international/characters.el
diffstat 1 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/characters.el	Tue Oct 28 06:53:41 2003 +0000
+++ b/lisp/international/characters.el	Tue Oct 28 14:26:38 2003 +0000
@@ -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)