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

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

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

revision 1.3.2.1 by handa, Fri Mar 1 02:10:11 2002 UTC revision 1.3.2.2 by handa, Tue Oct 1 01:30:52 2002 UTC
# Line 35  Line 35 
35    
36  (require 'case-table)  (require 'case-table)
37    
38  (let ((tbl (standard-case-table)))  (let ((tbl (standard-case-table))
39          (set-case-syntax-charset 'iso-8859-1))
40    (set-case-syntax 160 " " tbl)         ;no-break space    (set-case-syntax 160 " " tbl)         ;no-break space
41    (set-case-syntax 161 "." tbl)         ;inverted exclamation mark    (set-case-syntax 161 "." tbl)         ;inverted exclamation mark
42    (set-case-syntax 162 "w" tbl)         ;cent sign    (set-case-syntax 162 "w" tbl)         ;cent sign
# Line 102  Line 103 
103    (set-case-syntax 247 "_" tbl)         ;division sign    (set-case-syntax 247 "_" tbl)         ;division sign
104    (set-case-syntax 255 "w" tbl))        ;latin small letter y with diaeresis    (set-case-syntax 255 "w" tbl))        ;latin small letter y with diaeresis
105    
 ;; When preloading this file, don't provide the feature.  
 ;; Explicit `require' is used to load this for 8-bit characters.  
 (or set-case-syntax-set-multibyte  
     (provide 'latin-1))  
   
106  ;;; Don't compile this file: src/Makefile.in instructs make-docfile  ;;; Don't compile this file: src/Makefile.in instructs make-docfile
107  ;;; to look at the .el file!  ;;; to look at the .el file!
108  ;;; Local Variables:  ;;; Local Variables:

Legend:
Removed from v.1.3.2.1  
changed lines
  Added in v.1.3.2.2

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