/[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.36 by miles, Thu Jun 20 01:02:47 2002 UTC revision 1.37 by fx, Wed Jul 17 19:05:32 2002 UTC
# Line 1065  Line 1065 
1065    ;; general punctuation    ;; general punctuation
1066    (setq c #x2000)    (setq c #x2000)
1067    (while (<= c #x200b)    (while (<= c #x200b)
1068      (set-case-syntax c " " tbl)      (set-case-syntax (decode-char 'ucs c) " " tbl)
1069      (setq c (1+ c)))      (setq c (decode-char 'ucs (1+ c))))
1070    (setq c #x2010)    (setq c #x2010)
1071    (while (<= c #x2027)    (while (<= c #x2027)
1072      (set-case-syntax c "_" tbl)      (set-case-syntax (decode-char 'ucs c) "_" tbl)
1073      (setq c (1+ c)))      (setq c (decode-char 'ucs (1+ c))))
1074    
1075    ;; Roman numerals    ;; Roman numerals
1076    (setq c #x2160)    (setq c #x2160)
# Line 1097  Line 1097 
1097      (modify-category-entry (decode-char 'ucs (+ c #x20)) ?l)      (modify-category-entry (decode-char 'ucs (+ c #x20)) ?l)
1098      (setq c (1+ c)))      (setq c (1+ c)))
1099    
   ;; Ohm, Kelvin, Angstrom  
   (set-case-syntax-pair ?$,1uf(B ?$,1'I(B tbl)  
 ;;;  These mess up the case conversion of k and ,Ae(B.  
 ;;;  (set-case-syntax-pair ?$,1uj(B ?k tbl)  
 ;;;  (set-case-syntax-pair ?$,1uk(B ?,Ae(B tbl)  
   
1100    ;; Combining diacritics    ;; Combining diacritics
1101    (setq c #x300)    (setq c #x300)
1102    (while (<= c #x362)    (while (<= c #x362)

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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