Delete syntax stuff for Latin-1 and Latin-2.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index e28b7b95650a5174ac2ddc89047f6a419591cbfc..4820d910e73054c408a2d28be4b7e2de8acc625d 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -27,6 +27,9 @@
 ;; This file contains multibyte characters.  Save this file always in
 ;; the coding system `iso-2022-7bit'.
 
+;; This file does not define the syntax for Latin-N character sets;
+;; those are defined by the files latin-N.el.
+
 ;;; Predefined categories.
 
 ;; For each character set.
@@ -227,29 +230,6 @@
 (modify-category-entry (make-char 'latin-iso8859-4) ?l)
 (modify-category-entry (make-char 'latin-iso8859-9) ?l)
 
-;; ISO-8859-1 (Latin-1)
-(let ((c 64))
-  (while (< c 128)                     ; from '\e,A@\e(B' to '\e,A\7f\e(B'
-    (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w")
-    (setq c (1+ c)))
-  (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; NBSP
-  (modify-syntax-entry ?\e,AW\e(B "_")
-  (modify-syntax-entry ?\e,Aw\e(B "_")
-  )
-
-;; ISO-8859-2 (Latin-2)
-(let ((c 190))
-  (while (< c 255)
-    (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w")
-    (setq c (1+ c))))
-(let ((chars '(?\e,B!\e(B ?\e,B#\e(B ?\e,B%\e(B ?\e,B&\e(B ?\e,B)\e(B ?\e,B*\e(B ?\e,B+\e(B ?\e,B,\e(B ?\e,B.\e(B ?\e,B/\e(B ?\e,B1\e(B ?\e,B3\e(B ?\e,B5\e(B ?\e,B6\e(B ?\e,B9\e(B ?\e,B:\e(B ?\e,B;\e(B ?\e,B<\e(B)))
-  (while chars
-    (modify-syntax-entry (car chars) "w")
-    (setq chars (cdr chars))))
-(modify-syntax-entry (make-char 'latin-iso8859-2 160) "w") ; NBSP
-(modify-syntax-entry ?\e,BW\e(B ".")
-(modify-syntax-entry ?\e,Bw\e(B ".")
-
 ;; Greek character set (ISO-8859-7)
 
 (modify-category-entry (make-char 'greek-iso8859-7) ?g)