changeset 67022:47e5299bbfb0

(set-language-environment): Always call set-display-table-and-terminal-coding-system.
author Andreas Schwab <schwab@suse.de>
date Sat, 19 Nov 2005 17:42:56 +0000
parents e220d76071f7
children 5595ccfe4943
files lisp/international/mule-cmds.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Sat Nov 19 17:29:20 2005 +0000
+++ b/lisp/international/mule-cmds.el	Sat Nov 19 17:42:56 2005 +0000
@@ -1883,8 +1883,10 @@
 	  (while list
 	    (with-current-buffer (car list)
 	      (set-case-table (standard-case-table)))
-	    (setq list (cdr list))))))
-    (set-display-table-and-terminal-coding-system language-name))
+	    (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)
 
   (let ((required-features (get-language-info language-name 'features)))
     (while required-features