(set-default-coding-systems): New function.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 8a94e82b1084253e25ce068662062ad72e124976..6169b1fe5a84692a1d77207d4d55290fdd0eb2c2 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -176,6 +176,14 @@ With arg, make them enable iff arg is positive."
       (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)))
+
 \f
 ;;; Language support staffs.