diff options
| author | Kenichi Handa <handa@m17n.org> | 2002-12-17 11:56:56 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2002-12-17 11:56:56 +0000 |
| commit | 701414e3a0a3650bcc213b31bd6ddb8e0563cdfe (patch) | |
| tree | 9c21eae3b87c65377ed6495b912da53fd2082794 /lisp | |
| parent | 2308d0d7e0c5fb0bb9fa8f110a11738e49e9479f (diff) | |
| download | emacs-701414e3a0a3650bcc213b31bd6ddb8e0563cdfe.tar.gz emacs-701414e3a0a3650bcc213b31bd6ddb8e0563cdfe.tar.bz2 emacs-701414e3a0a3650bcc213b31bd6ddb8e0563cdfe.zip | |
(set-file-name-coding-system): New function.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index e425d8b8bfd..3eaf3dc61ce 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1204,6 +1204,14 @@ usual for visiting a file." (let ((coding-system-for-read coding-system)) (revert-buffer))) +(defun set-file-name-coding-system (coding-system) + "Set coding system for decoding and encoding file names to CODING-SYSTEM. +It actually just set the variable `file-name-coding-system' (which +see) to CODING-SYSTEM." + (interactive "zCoding system for file names (default, nil): ") + (check-coding-system coding-system) + (setq file-name-coding-system coding-system)) + (defvar default-terminal-coding-system nil "Default value for the terminal coding system. This is normally set according to the selected language environment. |