[Emacs-diffs] Changes to emacs/lisp/international/characters.el

[Dave Love]

Index: emacs/lisp/international/characters.el
diff -c emacs/lisp/international/characters.el:1.43 
emacs/lisp/international/characters.el:1.44
*** emacs/lisp/international/characters.el:1.43 Mon Sep  1 11:45:28 2003
--- emacs/lisp/international/characters.el      Tue Oct 28 09:26:38 2003
***************
*** 1089,1099 ****
    (setq c #x2000)
    (while (<= c #x200b)
      (set-case-syntax (decode-char 'ucs c) " " tbl)
!     (setq c (decode-char 'ucs (1+ c))))
    (setq c #x2010)
    (while (<= c #x2027)
      (set-case-syntax (decode-char 'ucs c) "_" tbl)
!     (setq c (decode-char 'ucs (1+ c))))
  
    ;; Roman numerals
    (setq c #x2160)
--- 1089,1106 ----
    (setq c #x2000)
    (while (<= c #x200b)
      (set-case-syntax (decode-char 'ucs c) " " tbl)
!     (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 (1+ c)))
  
    ;; Roman numerals
    (setq c #x2160)