# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1007279509 0
# Node ID 31aa13c921e0ac311c28f174d575bf19710ac151
# Parent  fd46c3fb8ae5e9e9ecd93ea9e7bf9bc60d62b97d
(standard-display-european):
Simplify since the function is not interactive any more.
Don't set the existing buffers to unibyte.

diff -r fd46c3fb8ae5 -r 31aa13c921e0 lisp/disp-table.el
--- a/lisp/disp-table.el	Sun Dec 02 07:41:47 2001 +0000
+++ b/lisp/disp-table.el	Sun Dec 02 07:51:49 2001 +0000
@@ -206,27 +206,17 @@
 	       (equal (aref standard-display-table 161) [161])))
       (progn
 	(standard-display-default 160 255)
-	(unless (or (memq window-system '(x w32))
-		    (interactive-p))
+	(unless (or (memq window-system '(x w32)))
 	  (and (terminal-coding-system)
 	       (set-terminal-coding-system nil))))
-    ;; If the user does this explicitly from Lisp (as in .emacs),
-    ;; turn off multibyte chars for more compatibility.
-    (unless (interactive-p)
-      (setq-default enable-multibyte-characters nil)
-      (mapcar (lambda (buffer)
-		(with-current-buffer buffer
-		  (if enable-multibyte-characters
-		      (set-buffer-multibyte nil))))
-	      (buffer-list)))
-    ;; If the user does this explicitly,
-    ;; switch to Latin-1 language environment
+    ;; Turn off multibyte chars for more compatibility.
+    (setq-default enable-multibyte-characters nil)
+
+    ;; Switch to Latin-1 language environment
     ;; unless some other has been specified.
-    (unless (interactive-p)
-      (if (equal current-language-environment "English")
-	  (set-language-environment "latin-1")))
-    (unless (or noninteractive (memq window-system '(x w32))
-		(interactive-p))
+    (if (equal current-language-environment "English")
+	(set-language-environment "latin-1"))
+    (unless (or noninteractive (memq window-system '(x w32)))
       ;; Send those codes literally to a character-based terminal.
       ;; If we are using single-byte characters,
       ;; it doesn't matter which coding system we use.