diff options
| author | Kenichi Handa | 2002-12-17 11:56:56 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2002-12-17 11:56:56 +0000 |
| commit | 701414e3a0a3650bcc213b31bd6ddb8e0563cdfe (patch) | |
| tree | 9c21eae3b87c65377ed6495b912da53fd2082794 | |
| parent | 2308d0d7e0c5fb0bb9fa8f110a11738e49e9479f (diff) | |
| download | emacs-701414e3a0a3650bcc213b31bd6ddb8e0563cdfe.tar.gz emacs-701414e3a0a3650bcc213b31bd6ddb8e0563cdfe.zip | |
(set-file-name-coding-system): New function.
| -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." | |||
| 1204 | (let ((coding-system-for-read coding-system)) | 1204 | (let ((coding-system-for-read coding-system)) |
| 1205 | (revert-buffer))) | 1205 | (revert-buffer))) |
| 1206 | 1206 | ||
| 1207 | (defun set-file-name-coding-system (coding-system) | ||
| 1208 | "Set coding system for decoding and encoding file names to CODING-SYSTEM. | ||
| 1209 | It actually just set the variable `file-name-coding-system' (which | ||
| 1210 | see) to CODING-SYSTEM." | ||
| 1211 | (interactive "zCoding system for file names (default, nil): ") | ||
| 1212 | (check-coding-system coding-system) | ||
| 1213 | (setq file-name-coding-system coding-system)) | ||
| 1214 | |||
| 1207 | (defvar default-terminal-coding-system nil | 1215 | (defvar default-terminal-coding-system nil |
| 1208 | "Default value for the terminal coding system. | 1216 | "Default value for the terminal coding system. |
| 1209 | This is normally set according to the selected language environment. | 1217 | This is normally set according to the selected language environment. |