/[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.49 by handa, Fri Jun 11 06:03:16 2004 UTC revision 1.50 by handa, Wed Feb 2 01:00:44 2005 UTC
# Line 447  Line 447 
447    (set-case-syntax-pair ?,FO(B ?,Fo(B tbl)    (set-case-syntax-pair ?,FO(B ?,Fo(B tbl)
448    (set-case-syntax-pair ?,FP(B ?,Fp(B tbl)    (set-case-syntax-pair ?,FP(B ?,Fp(B tbl)
449    (set-case-syntax-pair ?,FQ(B ?,Fq(B tbl)    (set-case-syntax-pair ?,FQ(B ?,Fq(B tbl)
450      (set-upcase-syntax    ?,FS(B ?,Fr(B tbl)
451    (set-case-syntax-pair ?,FS(B ?,Fs(B tbl)    (set-case-syntax-pair ?,FS(B ?,Fs(B tbl)
452    (set-case-syntax-pair ?,FT(B ?,Ft(B tbl)    (set-case-syntax-pair ?,FT(B ?,Ft(B tbl)
453    (set-case-syntax-pair ?,FU(B ?,Fu(B tbl)    (set-case-syntax-pair ?,FU(B ?,Fu(B tbl)
# Line 481  Line 482 
482    (set-case-syntax-pair ?$,1&(B ?$,1'?(B tbl)    (set-case-syntax-pair ?$,1&(B ?$,1'?(B tbl)
483    (set-case-syntax-pair ?$,1' (B ?$,1'@(B tbl)    (set-case-syntax-pair ?$,1' (B ?$,1'@(B tbl)
484    (set-case-syntax-pair ?$,1'!(B ?$,1'A(B tbl)    (set-case-syntax-pair ?$,1'!(B ?$,1'A(B tbl)
485      (set-upcase-syntax    ?$,1'#(B ?$,1'B(B tbl)
486    (set-case-syntax-pair ?$,1'#(B ?$,1'C(B tbl)    (set-case-syntax-pair ?$,1'#(B ?$,1'C(B tbl)
487    (set-case-syntax-pair ?$,1'$(B ?$,1'D(B tbl)    (set-case-syntax-pair ?$,1'$(B ?$,1'D(B tbl)
488    (set-case-syntax-pair ?$,1'%(B ?$,1'E(B tbl)    (set-case-syntax-pair ?$,1'%(B ?$,1'E(B tbl)
# Line 882  Line 884 
884           (set-case-syntax-pair           (set-case-syntax-pair
885            (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl))            (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl))
886      (setq c (1+ c)))      (setq c (1+ c)))
887      (set-downcase-syntax  ?$,1 P(B ?i tbl)
888      (set-upcase-syntax    ?I ?$,1 Q(B tbl)
889    (set-case-syntax-pair ?$,1 R(B ?$,1 S(B tbl)    (set-case-syntax-pair ?$,1 R(B ?$,1 S(B tbl)
890    (set-case-syntax-pair ?$,1 T(B ?$,1 U(B tbl)    (set-case-syntax-pair ?$,1 T(B ?$,1 U(B tbl)
891    (set-case-syntax-pair ?$,1 V(B ?$,1 W(B tbl)    (set-case-syntax-pair ?$,1 V(B ?$,1 W(B tbl)
892  ;;;  (set-case-syntax-pair ?$,1!8(B ?,A(B tbl)     ; these two have different length!    (set-case-syntax-pair ?$,1!8(B ?,A(B tbl)
893    (set-case-syntax-pair ?$,1!9(B ?$,1!:(B tbl)    (set-case-syntax-pair ?$,1!9(B ?$,1!:(B tbl)
894    (set-case-syntax-pair ?$,1!;(B ?$,1!<(B tbl)    (set-case-syntax-pair ?$,1!;(B ?$,1!<(B tbl)
895    (set-case-syntax-pair ?$,1!=(B ?$,1!>(B tbl)    (set-case-syntax-pair ?$,1!=(B ?$,1!>(B tbl)

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

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