summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2000-08-24 02:10:05 +0000
committerKenichi Handa <handa@m17n.org>2000-08-24 02:10:05 +0000
commit0c47a7c83d6d0ad14e7b2b01e2ae4ec878e21d22 (patch)
tree32a63f3ea3f0c8cef8b19ca146a12a92056bd0e8 /lisp
parentc543db811fcd3fd77a1bf50e070644dcb0756d20 (diff)
downloademacs-0c47a7c83d6d0ad14e7b2b01e2ae4ec878e21d22.tar.gz
(reset-language-environment): Set default-process-coding-system to
'(undecided . iso-latin-1), which makes process I/O almost consistent with file I/O. Call this function when mule-cmds.el[c] is loaded.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/international/mule-cmds.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 334860b018e..68d456c1f09 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1293,6 +1293,7 @@ The default status is as follows:
(set-default-coding-systems nil)
(setq default-sendmail-coding-system 'iso-latin-1)
+ (setq default-process-coding-system '(undecided . iso-latin-1))
;; Don't alter the terminal and keyboard coding systems here.
;; The terminal still supports the same coding system
@@ -1303,6 +1304,8 @@ The default status is as follows:
(setq nonascii-translation-table nil
nonascii-insert-offset 0))
+(reset-language-environment)
+
(defun set-display-table-and-terminal-coding-system (language-name)
"Set up the display table and terminal coding system for LANGUAGE-NAME."
(let ((coding (get-language-info language-name 'unibyte-display)))