diff options
| -rw-r--r-- | lisp/international/mule-cmds.el | 8 |
1 files changed, 8 insertions, 0 deletions
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. |