[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Jason Rumney]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.187 
emacs/lisp/international/mule-cmds.el:1.188
*** emacs/lisp/international/mule-cmds.el:1.187 Sun Apr  7 14:50:20 2002
--- emacs/lisp/international/mule-cmds.el       Mon Apr  8 15:22:17 2002
***************
*** 1415,1425 ****
    ;; 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))
        (input-coding
!        (coding-system-change-text-conversion
!         (cdr default-process-coding-system) 'iso-latin-1)))
      (setq default-process-coding-system
          (cons output-coding input-coding)))
  
--- 1415,1431 ----
    ;; users shell appropriately, so should not be altered by changing
    ;; language environment.
    (let ((output-coding
!        ;; 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
!        (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)))