/[emacs]/emacs/lisp/international/latin-4.el
ViewVC logotype

Diff of /emacs/lisp/international/latin-4.el

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

revision 1.4 by eliz, Sun Oct 14 19:34:56 2001 UTC revision 1.4.2.1 by handa, Fri Mar 1 02:11:07 2002 UTC
# Line 31  Line 31 
31    
32  (require 'case-table)  (require 'case-table)
33    
34  (let ((tbl (standard-case-table))  (let ((tbl (standard-case-table)))
       (set-case-syntax-offset  
        (if set-case-syntax-set-multibyte  
            (- (make-char 'latin-iso8859-4) 128)  
          0)))  
35    (set-case-syntax 160 " " tbl)         ;no-break space    (set-case-syntax 160 " " tbl)         ;no-break space
36    (set-case-syntax-pair 161 177 tbl)    ;latin letter a with ogonek    (set-case-syntax-pair 161 177 tbl)    ;latin letter a with ogonek
37    (set-case-syntax 162 "w" tbl)         ;latin letter kra    (set-case-syntax 162 "w" tbl)         ;latin letter kra

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.2.1

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