# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1057656172 0
# Node ID 81538ceba107e18e92dd1472d137084f7c910da7
# Parent  4dbb30eefc6706df24d55c1bc3c3eca4a738ce18
2003-07-08  Kim F. Storm  <storm@cua.dk>

	* international/mule-cmds.el (set-display-table-and-terminal-coding-system):
	Don't break bootstrap if standard-display-table isn't setup yet.

diff -r 4dbb30eefc67 -r 81538ceba107 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Tue Jul 08 03:39:24 2003 +0000
+++ b/lisp/international/mule-cmds.el	Tue Jul 08 09:22:52 2003 +0000
@@ -1689,11 +1689,12 @@
       ;; case the user has used standard-display-european earlier in
       ;; this session.  (The MS-DOS port doesn't use that setup, so it
       ;; doesn't need to undo it.)
-      (dotimes (i 128)
-	(aset standard-display-table (+ i 128) nil))
-      (aset standard-display-table 146 nil))
+      (when standard-display-table
+	(dotimes (i 128)
+	  (aset standard-display-table (+ i 128) nil))
+	(aset standard-display-table 146 nil)))
     (or (eq window-system 'pc)
-      (set-terminal-coding-system coding))))
+	(set-terminal-coding-system coding))))
 
 (defun set-language-environment (language-name)
   "Set up multi-lingual environment for using LANGUAGE-NAME.