(setup-8-bit-environment):

After loading latin-N, reset the standard case table
and each buffer's case table.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index a583e18a6a888d6cca16aa01c20143272fb3443a..06c9a8de967e4d3c60f63b73456b66f3dada9c66 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -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)))))))
 \f
 ;; Latin-1 (ISO-8859-1)