# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1132434501 0
# Node ID 68bf866a394c2e2fd99c5a1b276db1ac7e1f603c
# Parent  04e363cee12942e0c4d393f5315dcf329941a162
Revert last change.

diff -r 04e363cee129 -r 68bf866a394c lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Sat Nov 19 18:31:08 2005 +0000
+++ b/lisp/international/mule-cmds.el	Sat Nov 19 21:08:21 2005 +0000
@@ -1883,10 +1883,8 @@
 	  (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