From: Kenichi Handa <handa@m17n.org>
Date: Mon, 4 Aug 1997 07:03:08 +0000 (+0000)
Subject: (set-default-coding-systems): New function.
X-Git-Tag: emacs-20.1~805
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de94d711e2852da5200a12c22674801def1f7d7c;p=emacs.git

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

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 8a94e82b108..6169b1fe5a8 100644
--- 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)))
+
 
 ;;; Language support staffs.