Mercurial > emacs
changeset 18205:40dc3b2e9e27
Delete syntax stuff for Latin-1 and Latin-2.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 10 Jun 1997 02:12:27 +0000 |
| parents | 0634e43b52c8 |
| children | e6f1a77fd2f4 |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 3 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/characters.el Tue Jun 10 01:26:11 1997 +0000 +++ b/lisp/international/characters.el Tue Jun 10 02:12:27 1997 +0000 @@ -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)