summaryrefslogtreecommitdiff
path: root/lisp/international/mule-cmds.el
diff options
context:
space:
mode:
authorAndreas Schwab <schwab@suse.de>2005-11-19 21:09:10 +0000
committerAndreas Schwab <schwab@suse.de>2005-11-19 21:09:10 +0000
commitdc9d3a05c7a4983554fb029086c020e971f10499 (patch)
tree3613c4422ad271d2cc793e3040a036f829289be5 /lisp/international/mule-cmds.el
parentc613b39cea7e035c55fed86b52e4a49622744982 (diff)
downloademacs-dc9d3a05c7a4983554fb029086c020e971f10499.tar.gz
Revert last change.
Diffstat (limited to 'lisp/international/mule-cmds.el')
-rw-r--r--lisp/international/mule-cmds.el6
1 files changed, 2 insertions, 4 deletions
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