From 0c33e42dacd851eaf5b39042856d42d58855c7c6 Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Sat, 28 Oct 1995 06:22:50 +0000 Subject: [PATCH] Adapt to new char-table implementation. Fix name of file in the first line, part number syntax of ISO standards, and `provide' clause. Register file with RCS. --- lisp/international/latin-2.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/international/latin-2.el b/lisp/international/latin-2.el index 338187c7397..181829fc5ff 100644 --- a/lisp/international/latin-2.el +++ b/lisp/international/latin-2.el @@ -1,4 +1,4 @@ -;;; iso-syntax.el --- set up case-conversion and syntax tables for ISO 8859-2 +;;; iso02-syn.el --- set up case-conversion and syntax tables for ISO 8859-2 ;;; (ISO latin2, i.e. East Block character set) ;; Copyright (C) 1995 Free Software Foundation, Inc. @@ -29,7 +29,7 @@ (require 'case-table) -(let ((downcase (concat (car (standard-case-table))))) +(let ((downcase (standard-case-table))) (set-case-syntax 160 " " downcase) ; NBSP (no-break space) (set-case-syntax-pair 161 177 downcase) ; A with hook (set-case-syntax 162 "w" downcase) ; u accent @@ -86,8 +86,8 @@ (set-case-syntax 223 "w" downcase) ; small sharp s, German (set-case-syntax 247 "_" downcase) ; division sign (set-case-syntax 255 "w" downcase) ; dot accent - (set-standard-case-table (list downcase nil nil nil))) +) -(provide 'iso-syntax) +(provide 'iso02-syn) ;;; iso-syntax.el ends here -- 2.39.2