diff lisp/international/latin-4.el @ 61440:cc32b1ad8413

Give punctuation syntax to NBSP.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 10 Apr 2005 20:49:54 +0000
parents 695cf19ef79e
children 18a818a2ee7c
line wrap: on
line diff
--- a/lisp/international/latin-4.el	Sun Apr 10 20:35:00 2005 +0000
+++ b/lisp/international/latin-4.el	Sun Apr 10 20:49:54 2005 +0000
@@ -1,6 +1,6 @@
 ;;; latin-4.el --- set up case-conversion and syntax tables for ISO Latin-4
 
-;; Copyright (C) 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2005  Free Software Foundation, Inc.
 
 ;; Author: Erik Naggum
 ;; Maintainer: FSF
@@ -36,7 +36,9 @@
        (if set-case-syntax-set-multibyte
 	   (- (make-char 'latin-iso8859-4) 128)
 	 0)))
-  (set-case-syntax 160 " " tbl)		;no-break space
+  ;; NBSP isn't semantically interchangeable with other whitespace chars,
+  ;; so it's more like punctation.
+  (set-case-syntax 160 "." tbl)		;no-break space
   (set-case-syntax-pair 161 177 tbl)	;latin letter a with ogonek
   (set-case-syntax 162 "w" tbl)		;latin letter kra
   (set-case-syntax-pair 163 179 tbl)	;latin letter r with cedilla
@@ -98,11 +100,11 @@
 (or set-case-syntax-set-multibyte
     (provide 'latin-4))
 
-;;; Don't compile this file: src/Makefile.in instructs make-docfile
-;;; to look at the .el file!
-;;; Local Variables:
-;;; no-byte-compile: t
-;;; End:
+;; Don't compile this file: src/Makefile.in instructs make-docfile
+;; to look at the .el file!
+;; Local Variables:
+;; no-byte-compile: t
+;; End:
 
-;;; arch-tag: c6b2558b-1943-4626-beb5-139630c8e352
+;; arch-tag: c6b2558b-1943-4626-beb5-139630c8e352
 ;;; latin-4.el ends here