From dc9d3a05c7a4983554fb029086c020e971f10499 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 19 Nov 2005 21:09:10 +0000 Subject: [PATCH] Revert last change. --- lisp/ChangeLog | 5 ----- lisp/international/mule-cmds.el | 6 ++---- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 76c6ec83994..28108231a61 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,3 @@ -2005-11-19 Andreas Schwab - - * international/mule-cmds.el (set-language-environment): Always - call set-display-table-and-terminal-coding-system. - 2005-11-19 Chong Yidong * longlines.el (longlines-before-revert-hook) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 88ccd88df38..c84a66bcd63 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1883,10 +1883,8 @@ specifies the character set for the major languages of Western Europe." (while list (with-current-buffer (car list) (set-case-table (standard-case-table))) - (setq list (cdr list))))))) - ;; Always call this so that the display table is correctly set up for - ;; unibyte buffers. - (set-display-table-and-terminal-coding-system language-name) + (setq list (cdr list)))))) + (set-display-table-and-terminal-coding-system language-name)) (let ((required-features (get-language-info language-name 'features))) (while required-features -- 2.39.2