From 81fee7cf1da9956f7796a915f98cc14630eb5ba7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 15 May 1998 05:50:20 +0000 Subject: [PATCH] (setup-8-bit-environment): After loading latin-N, reset the standard case table and each buffer's case table. --- lisp/language/european.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/language/european.el b/lisp/language/european.el index a583e18a6a8..06c9a8de967 100644 --- 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))))))) ;; Latin-1 (ISO-8859-1) -- 2.39.2