Mercurial > emacs
changeset 22075:577e5b25f6d3
(setup-8-bit-environment):
After loading latin-N, reset the standard case table
and each buffer's case table.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 15 May 1998 05:50:20 +0000 |
| parents | b52cdd6c996e |
| children | 3313e702e442 |
| files | lisp/language/european.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)