From de94d711e2852da5200a12c22674801def1f7d7c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 4 Aug 1997 07:03:08 +0000 Subject: [PATCH] (set-default-coding-systems): New function. --- lisp/international/mule-cmds.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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. -- 2.39.2