Merge from emacs--devo--0

[gnu-emacs] / lisp / international / latin-9.el

diff --git a/lisp/international/latin-9.el b/lisp/international/latin-9.el
index 69236111691d24db37c9b1cd5602862a78eae9a6..c29925f8dc266379d1e4e103ef5d0e4f6d56358e 100644 (file)
--- a/lisp/international/latin-9.el
+++ b/lisp/international/latin-9.el
@@ -1,6 +1,7 @@
 ;;; latin-9.el --- set up case-conversion and syntax tables for ISO Latin-9
 
-;; Copyright (C) 1988,1997,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1988, 1997, 1999, 2001, 2002, 2003, 2004,
+;;   2005, 2006, 2007  Free Software Foundation, Inc.
 
 ;; Author: Dave Love
 ;; Maintainer: FSF
@@ -20,19 +21,20 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
 ;; Case-conversion and syntax tables for ISO-8859-15 (Latin-9),
 ;; adapted from latin-1.el.
 
-;; <URL:http://czyborra.com/charsets/iso8859.html>:
+;; <URL:http://czyborra.com/charsets/iso8859.html> (edited to remove
+;;   non-ASCII characters!):
 ;; The new Latin9 nicknamed Latin0 aims to update Latin1 by
-;; replacing the less needed symbols ¦¨´¸¼½¾ with forgotten French and
+;; replacing less needed symbols with forgotten French and
 ;; Finnish letters and placing the U+20AC Euro sign in the cell =A4 of
-;; the former international currency sign ¤.
+;; the former international currency sign.
 
 ;; The differences from Latin-1 are starred on the comments below.
 
@@ -49,7 +51,9 @@
        (if set-case-syntax-set-multibyte
           (- (make-char 'latin-iso8859-15) 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 161 "." tbl)                ;inverted exclamation mark
   (set-case-syntax 162 "w" tbl)                ;cent sign
   (set-case-syntax 163 "w" tbl)                ;pound sign
@@ -70,7 +74,7 @@
   (set-case-syntax 179 "w" tbl)                ;superscript three
   (set-case-syntax-pair 180 184 tbl)   ;latin letter z with caron *
   (set-case-syntax 181 "_" tbl)                ;micro sign
-  (set-case-syntax 182 "w" tbl)                ;pilcrow sign
+  (set-case-syntax 182 "." tbl)                ;pilcrow sign
   (set-case-syntax 183 "_" tbl)                ;middle dot
   (set-case-syntax 185 "w" tbl)                ;superscript one
   (set-case-syntax 186 "w" tbl)                ;masculine ordinal indicator
@@ -109,11 +113,18 @@
   (set-case-syntax-pair 221 253 tbl)   ;latin letter y with acute
   (set-case-syntax-pair 222 254 tbl)   ;latin letter thorn
   (set-case-syntax 223 "w" tbl)                ;latin small letter sharp s
-  (set-case-syntax 247 "_" tbl)                ;division sign
+  (set-case-syntax 247 "_" tbl))       ;division sign
 
 ;; When preloading this file, don't provide the feature.
 ;; Explicit `require' is used to load this for 8-bit characters.
 (or set-case-syntax-set-multibyte
     (provide 'latin-9))
 
-;;; latin-1.el ends here
+;; 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: 84d442ad-d595-4016-8b84-ea92704fd235
+;;; latin-9.el ends here