# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895211420 0
# Node ID 577e5b25f6d3a9d6ea13f81355a9a5cb8ddd1709
# Parent  b52cdd6c996e58e99fc390172fbf58e6efbaf1ef
(setup-8-bit-environment):
After loading latin-N, reset the standard case table
and each buffer's case table.

diff -r b52cdd6c996e -r 577e5b25f6d3 lisp/language/european.el
--- a/lisp/language/european.el	Fri May 15 05:49:05 1998 +0000
+++ b/lisp/language/european.el	Fri May 15 05:50:20 1998 +0000
@@ -48,7 +48,14 @@
   ;; single-byte mode.  We can't use require because the file
   ;; must be eval'd each time in case we change from one Latin-N to another.
   (if (string-match "^Latin-\\([1-9]\\)$" language)
-      (load (downcase language) nil t)))
+      (let ((set-case-syntax-set-multibyte nil))
+	(load (downcase language) nil t)
+	(set-standard-case-table (standard-case-table))
+	(let ((list (buffer-list)))
+	  (while list
+	    (with-current-buffer (car list)
+	      (set-case-table (standard-case-table)))
+	    (setq list (cdr list)))))))
 
 ;; Latin-1 (ISO-8859-1)