Mercurial > emacs

comparison lisp/international/latin-9.el @ 88409:8827e60c74c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't bind set-case-syntax-offset.
author Kenichi Handa <handa@m17n.org>
date Fri, 01 Mar 2002 02:12:05 +0000
parents ee1eae2c0dbe
children eab9038a8e03
comparison
equal deleted inserted replaced
88408:4135242fe433 88409:8827e60c74c7
43 43
44 ;;; Code: 44 ;;; Code:
45 45
46 (require 'case-table) 46 (require 'case-table)
47 47
48 (let ((tbl (standard-case-table)) 48 (let ((tbl (standard-case-table)))
49 (set-case-syntax-offset
50 (if set-case-syntax-set-multibyte
51 (- (make-char 'latin-iso8859-15) 128)
52 0)))
53 (set-case-syntax 160 " " tbl) ;no-break space 49 (set-case-syntax 160 " " tbl) ;no-break space
54 (set-case-syntax 161 "." tbl) ;inverted exclamation mark 50 (set-case-syntax 161 "." tbl) ;inverted exclamation mark
55 (set-case-syntax 162 "w" tbl) ;cent sign 51 (set-case-syntax 162 "w" tbl) ;cent sign
56 (set-case-syntax 163 "w" tbl) ;pound sign 52 (set-case-syntax 163 "w" tbl) ;pound sign
57 (set-case-syntax 164 "w" tbl) ;euro sign * 53 (set-case-syntax 164 "w" tbl) ;euro sign *