mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

(reset-language-environment): Handle

Browse Source 
coding-systems not being defined yet for bootstrapping.
This commit is contained in:
Jason Rumney 2002-04-08 19:23:38 +00:00
parent 81ceefe2ae
commit a099a2ff95
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2002-04-08 Jason Rumney <jasonr@gnu.org>
* international/mule-cmds.el (reset-language-environment): Handle
coding-systems not being defined yet.
2002-04-07 Sam Steingold <sds@gnu.org>
* vc-cvs.el (vc-cvs-checkin): Pass the required argument to `error'.

14
lisp/international/mule-cmds.el
View File

@ -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)))