diff options
author | Jason Rumney <[email protected]> | 2002-04-08 19:23:38 +0000 |
---|---|---|
committer | Jason Rumney <[email protected]> | 2002-04-08 19:23:38 +0000 |
commit | a099a2ff9553e2aa3d3517459afcc6605770ac88 (patch) | |
tree | a99cec6030fd4005375f1a4e5eb46cb6cd7f487c /lisp/international/mule-cmds.el | |
parent | 81ceefe2ae631e7aa9c8e81b009d21a1e4022a07 (diff) |
(reset-language-environment): Handle
coding-systems not being defined yet for bootstrapping.
Diffstat (limited to 'lisp/international/mule-cmds.el')
-rw-r--r-- | lisp/international/mule-cmds.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 8e92f94707..76055a0ed7 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1415,11 +1415,17 @@ The default status is as follows: ;; users shell appropriately, so should not be altered by changing ;; language environment. (let ((output-coding - (coding-system-change-text-conversion - (car default-process-coding-system) 'undecided)) + ;; When bootstrapping, coding-systems are not defined yet, so + ;; we need to catch the error from check-coding-system. + (condition-case nil + (coding-system-change-text-conversion + (car default-process-coding-system) 'undecided) + (coding-system-error 'undecided))) (input-coding - (coding-system-change-text-conversion - (cdr default-process-coding-system) 'iso-latin-1))) + (condition-case nil + (coding-system-change-text-conversion + (cdr default-process-coding-system) 'iso-latin-1) + (coding-system-error 'iso-latin-1)))) (setq default-process-coding-system (cons output-coding input-coding))) |