1204 |
(let ((coding-system-for-read coding-system)) |
(let ((coding-system-for-read coding-system)) |
1205 |
(revert-buffer))) |
(revert-buffer))) |
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 |
|
|
1215 |
(defvar default-terminal-coding-system nil |
(defvar default-terminal-coding-system nil |
1216 |
"Default value for the terminal coding system. |
"Default value for the terminal coding system. |
1217 |
This is normally set according to the selected language environment. |
This is normally set according to the selected language environment. |