From d73a7bb8af1a9b6d4f7c25c922496807a4f4f224 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Tue, 8 Jul 2003 09:24:46 +0000 Subject: [PATCH] 2003-07-08 Kim F. Storm * international/mule-cmds.el (set-display-table-and-terminal-coding-system): Don't break bootstrap if standard-display-table isn't setup yet. --- lisp/ChangeLog | 5 +++++ lisp/international/mule-cmds.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f19974f7e46..05bffad4c08 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-07-08 Kim F. Storm + + * international/mule-cmds.el (set-display-table-and-terminal-coding-system): + Don't break bootstrap if standard-display-table isn't setup yet. + 2003-07-07 Richard M. Stallman * ehelp.el (ehelp-command): Use defalias to define ehelp-command. diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 8d23b259801..4ebb0d1d485 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1689,11 +1689,12 @@ The default status is as follows: ;; 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. -- 2.11.4.GIT