Mercurial > emacs

diff lisp/international/mule-cmds.el @ 44440:db660532bd23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(reset-language-environment): Handle coding-systems not being defined yet for bootstrapping.
author Jason Rumney <jasonr@gnu.org>
date Mon, 08 Apr 2002 19:22:17 +0000
parents 86eccd269d36
children 10292933863d
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Mon Apr 08 17:16:21 2002 +0000
+++ b/lisp/international/mule-cmds.el	Mon Apr 08 19:22:17 2002 +0000
@@ -1415,11 +1415,17 @@
   ;; 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)))