diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-08-04 07:03:08 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-08-04 07:03:08 +0000 |
| commit | de94d711e2852da5200a12c22674801def1f7d7c (patch) | |
| tree | 0f2bfc005ef7a0e7fcb3217204bff08f746cefab | |
| parent | 96cf572e1e5e6f95a9908c2aaaa62cd1365090c3 (diff) | |
| download | emacs-de94d711e2852da5200a12c22674801def1f7d7c.tar.gz | |
(set-default-coding-systems): New function.
| -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. |