Mercurial > emacs

comparison lisp/international/latin-1.el @ 61440:cc32b1ad8413

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Give punctuation syntax to NBSP.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 10 Apr 2005 20:49:54 +0000
parents 9d834e1613df
children 18a818a2ee7c
comparison
equal deleted inserted replaced
61439:267229876c56 61440:cc32b1ad8413
1 ;;; latin-1.el --- set up case-conversion and syntax tables for ISO Latin-1 1 ;;; latin-1.el --- set up case-conversion and syntax tables for ISO Latin-1
2 2
3 ;; Copyright (C) 1988,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1988, 1997, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Howard Gayle 5 ;; Author: Howard Gayle
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: i18n 7 ;; Keywords: i18n
8 8
38 (let ((tbl (standard-case-table)) 38 (let ((tbl (standard-case-table))
39 (set-case-syntax-offset 39 (set-case-syntax-offset
40 (if set-case-syntax-set-multibyte 40 (if set-case-syntax-set-multibyte
41 (- (make-char 'latin-iso8859-1) 128) 41 (- (make-char 'latin-iso8859-1) 128)
42 0))) 42 0)))
43 (set-case-syntax 160 " " tbl) ;no-break space 43 ;; NBSP isn't semantically interchangeable with other whitespace chars,
44 ;; so it's more like punctation.
45 (set-case-syntax 160 "." tbl) ;no-break space
44 (set-case-syntax 161 "." tbl) ;inverted exclamation mark 46 (set-case-syntax 161 "." tbl) ;inverted exclamation mark
45 (set-case-syntax 162 "w" tbl) ;cent sign 47 (set-case-syntax 162 "w" tbl) ;cent sign
46 (set-case-syntax 163 "w" tbl) ;pound sign 48 (set-case-syntax 163 "w" tbl) ;pound sign
47 (set-case-syntax 164 "w" tbl) ;currency sign 49 (set-case-syntax 164 "w" tbl) ;currency sign
48 (set-case-syntax 165 "w" tbl) ;yen sign 50 (set-case-syntax 165 "w" tbl) ;yen sign
112 ;; When preloading this file, don't provide the feature. 114 ;; When preloading this file, don't provide the feature.
113 ;; Explicit `require' is used to load this for 8-bit characters. 115 ;; Explicit `require' is used to load this for 8-bit characters.
114 (or set-case-syntax-set-multibyte 116 (or set-case-syntax-set-multibyte
115 (provide 'latin-1)) 117 (provide 'latin-1))
116 118
117 ;;; Don't compile this file: src/Makefile.in instructs make-docfile 119 ;; Don't compile this file: src/Makefile.in instructs make-docfile
118 ;;; to look at the .el file! 120 ;; to look at the .el file!
119 ;;; Local Variables: 121 ;; Local Variables:
120 ;;; no-byte-compile: t 122 ;; no-byte-compile: t
121 ;;; End: 123 ;; End:
122 124
123 ;;; arch-tag: c2ee6895-edc3-40b2-9518-8c09f1d56c54 125 ;; arch-tag: c2ee6895-edc3-40b2-9518-8c09f1d56c54
124 ;;; latin-1.el ends here 126 ;;; latin-1.el ends here