Mercurial > emacs

comparison lisp/international/latin-3.el @ 17971:621d1db5845b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
If set-case-syntax-set-multibyte is non-nil, define syntax for multibyte characters, and don't do `provide'.
author Richard M. Stallman <rms@gnu.org>
date Tue, 27 May 1997 15:37:53 +0000
parents bfc976ba39f9
children f8af1810653b
comparison
equal deleted inserted replaced
17970:720d1f98ae42 17971:621d1db5845b
31 31
32 (require 'case-table) 32 (require 'case-table)
33 33
34 (let ((downcase (standard-case-table)) 34 (let ((downcase (standard-case-table))
35 (set-case-syntax-offset 35 (set-case-syntax-offset
36 (if enable-multibyte-characters 36 (if set-case-syntax-set-multibyte
37 (- (make-char 'latin-iso8859-3) 128) 37 (- (make-char 'latin-iso8859-3) 128)
38 0))) 38 0)))
39 (set-case-syntax 160 " " downcase) ; NBSP (no-break space) 39 (set-case-syntax 160 " " downcase) ; NBSP (no-break space)
40 (set-case-syntax-pair 161 177 downcase) ; H with stroke 40 (set-case-syntax-pair 161 177 downcase) ; H with stroke
41 (set-case-syntax 162 "w" downcase) ; breve 41 (set-case-syntax 162 "w" downcase) ; breve
97 (set-case-syntax 223 "w" downcase) ; small sharp s, German 97 (set-case-syntax 223 "w" downcase) ; small sharp s, German
98 (set-case-syntax 247 "_" downcase) ; division sign 98 (set-case-syntax 247 "_" downcase) ; division sign
99 (set-case-syntax 255 "w" downcase) ; dot accent 99 (set-case-syntax 255 "w" downcase) ; dot accent
100 ) 100 )
101 101
102 (provide 'latin-3.el) 102 ;; When preloading this file, don't provide the feature.
103 ;; Explicit `require' is used to load this for 8-bit characters.
104 (or set-case-syntax-set-multibyte
105 (provide 'latin-3.el))
103 106
104 ;;; latin-3.el ends here 107 ;;; latin-3.el ends here
105 108