# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 870678188 0
# Node ID 9e0468e59b5f4cb0de8d59e6c32d6439485fa038
# Parent  a86f1b81dcf5c9405ccf688c20a7141e6c7c6b29
(set-default-coding-systems): New function.

diff -r a86f1b81dcf5 -r 9e0468e59b5f lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Mon Aug 04 07:01:31 1997 +0000
+++ b/lisp/international/mule-cmds.el	Mon Aug 04 07:03:08 1997 +0000
@@ -176,6 +176,14 @@
       (message "")
       (call-interactively cmd))))
 
+(defun set-default-coding-systems (coding-system)
+  "Set default value of various coding systems to CODING-SYSTEM."
+  (check-coding-system coding-system)
+  (setq-default buffer-file-coding-system coding-system)
+  (setq default-terminal-coding-system coding-system)
+  (setq default-keyboard-coding-system coding-system)
+  (setq default-process-coding-system (cons coding-system coding-system)))
+
 
 ;;; Language support staffs.