/[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.5 by miles, Mon Sep 1 15:45:28 2003 UTC revision 1.6 by monnier, Sun Apr 10 20:49:53 2005 UTC
# Line 1  Line 1 
1  ;;; latin-4.el --- set up case-conversion and syntax tables for ISO Latin-4  ;;; latin-4.el --- set up case-conversion and syntax tables for ISO Latin-4
2    
3  ;; Copyright (C) 1997 Free Software Foundation, Inc.  ;; Copyright (C) 1997, 2005  Free Software Foundation, Inc.
4    
5  ;; Author: Erik Naggum  ;; Author: Erik Naggum
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 36  Line 36 
36         (if set-case-syntax-set-multibyte         (if set-case-syntax-set-multibyte
37             (- (make-char 'latin-iso8859-4) 128)             (- (make-char 'latin-iso8859-4) 128)
38           0)))           0)))
39    (set-case-syntax 160 " " tbl)         ;no-break space    ;; NBSP isn't semantically interchangeable with other whitespace chars,
40      ;; so it's more like punctation.
41      (set-case-syntax 160 "." tbl)         ;no-break space
42    (set-case-syntax-pair 161 177 tbl)    ;latin letter a with ogonek    (set-case-syntax-pair 161 177 tbl)    ;latin letter a with ogonek
43    (set-case-syntax 162 "w" tbl)         ;latin letter kra    (set-case-syntax 162 "w" tbl)         ;latin letter kra
44    (set-case-syntax-pair 163 179 tbl)    ;latin letter r with cedilla    (set-case-syntax-pair 163 179 tbl)    ;latin letter r with cedilla
# Line 98  Line 100 
100  (or set-case-syntax-set-multibyte  (or set-case-syntax-set-multibyte
101      (provide 'latin-4))      (provide 'latin-4))
102    
103  ;;; Don't compile this file: src/Makefile.in instructs make-docfile  ;; Don't compile this file: src/Makefile.in instructs make-docfile
104  ;;; to look at the .el file!  ;; to look at the .el file!
105  ;;; Local Variables:  ;; Local Variables:
106  ;;; no-byte-compile: t  ;; no-byte-compile: t
107  ;;; End:  ;; End:
108    
109  ;;; arch-tag: c6b2558b-1943-4626-beb5-139630c8e352  ;; arch-tag: c6b2558b-1943-4626-beb5-139630c8e352
110  ;;; latin-4.el ends here  ;;; latin-4.el ends here

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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