/[emacs]/emacs/lisp/international/characters.el
ViewVC logotype

Diff of /emacs/lisp/international/characters.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35.4.2 by miles, Tue Oct 14 23:39:22 2003 UTC revision 1.35.4.3 by miles, Fri Nov 21 00:36:07 2003 UTC
# Line 1089  Line 1089 
1089    (setq c #x2000)    (setq c #x2000)
1090    (while (<= c #x200b)    (while (<= c #x200b)
1091      (set-case-syntax (decode-char 'ucs c) " " tbl)      (set-case-syntax (decode-char 'ucs c) " " tbl)
1092      (setq c (decode-char 'ucs (1+ c))))      (setq c (1+ c)))
1093    (setq c #x2010)    (setq c #x2010)
1094      (while (<= c #x2016)
1095        (set-case-syntax (decode-char 'ucs c) "_" tbl)
1096        (setq c (1+ c)))
1097      ;; Punctuation syntax for quotation marks (like `)
1098      (while (<= c #x201f)
1099        (set-case-syntax (decode-char 'ucs c) "." tbl)
1100        (setq c (1+ c)))
1101    (while (<= c #x2027)    (while (<= c #x2027)
1102      (set-case-syntax (decode-char 'ucs c) "_" tbl)      (set-case-syntax (decode-char 'ucs c) "_" tbl)
1103      (setq c (decode-char 'ucs (1+ c))))      (setq c (1+ c)))
1104    
1105    ;; Roman numerals    ;; Roman numerals
1106    (setq c #x2160)    (setq c #x2160)

Legend:
Removed from v.1.35.4.2  
changed lines
  Added in v.1.35.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26