From 49adf44396a6467edfdf0d1024e3524fde5ab204 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 10 Jun 1997 02:12:27 +0000 Subject: [PATCH] Delete syntax stuff for Latin-1 and Latin-2. --- lisp/international/characters.el | 26 +++----------------------- 1 file changed, 3 insertions(+), 23 deletions(-) diff --git a/lisp/international/characters.el b/lisp/international/characters.el index e28b7b95650..4820d910e73 100644 --- 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 ',A@(B' to ',A(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 ?,AW(B "_") - (modify-syntax-entry ?,Aw(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 '(?,B!(B ?,B#(B ?,B%(B ?,B&(B ?,B)(B ?,B*(B ?,B+(B ?,B,(B ?,B.(B ?,B/(B ?,B1(B ?,B3(B ?,B5(B ?,B6(B ?,B9(B ?,B:(B ?,B;(B ?,B<(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 ?,BW(B ".") -(modify-syntax-entry ?,Bw(B ".") - ;; Greek character set (ISO-8859-7) (modify-category-entry (make-char 'greek-iso8859-7) ?g) -- 2.39.2