Do not call set-locale-environment until after terminal is initialized.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f0103d2a99bef7c4484f23b1c151df4b7cb651d..9b8beee5d6ccf712672f748ce34e0cff5965caa8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-11-25  Jason Rumney  <jasonr@gnu.org>
+
+       * startup.el (command-line): Call set-locale-environment after
+       Window System init file is read, as it can result in a call to
+       redraw-frame.
+
 2000-11-25  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * simple.el (shell-command): Mention the effect of the prefix

diff --git a/lisp/startup.el b/lisp/startup.el
index 5ee789657dad6eeeb5a91e46d5c58bba4ab5e25b..f4550310a871cef0c7a3b41a1c7b3cd3cb194963 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -621,8 +621,6 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
               (string= vc "simple"))
           (setq version-control 'never))))
 
-  (set-locale-environment nil)
-
   ;;! This has been commented out; I currently find the behavior when
   ;;! split-window-keep-point is nil disturbing, but if I can get used
   ;;! to it, then it would be better to eliminate the option.
@@ -673,6 +671,8 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
             (not noninteractive))
     (setq command-line-args (tty-handle-args command-line-args)))
 
+  (set-locale-environment nil)
+
   (let ((done nil)
        (args (cdr command-line-args)))