1159 |
don't want to mark the buffer modified, specify t for NOMODIFY. |
don't want to mark the buffer modified, specify t for NOMODIFY. |
1160 |
If you know exactly what coding system you want to use, |
If you know exactly what coding system you want to use, |
1161 |
just set the variable `buffer-file-coding-system' directly." |
just set the variable `buffer-file-coding-system' directly." |
1162 |
(interactive "zCoding system for saving file (default, nil): \nP") |
(interactive "zCoding system for saving file (default nil): \nP") |
1163 |
(check-coding-system coding-system) |
(check-coding-system coding-system) |
1164 |
(if (and coding-system buffer-file-coding-system (null force)) |
(if (and coding-system buffer-file-coding-system (null force)) |
1165 |
(setq coding-system |
(setq coding-system |
1183 |
buffer's previous `buffer-file-coding-system' value (if it is |
buffer's previous `buffer-file-coding-system' value (if it is |
1184 |
specified there). Otherwise, determine it from the file contents as |
specified there). Otherwise, determine it from the file contents as |
1185 |
usual for visiting a file." |
usual for visiting a file." |
1186 |
(interactive "zCoding system for visited file (default, nil): \nP") |
(interactive "zCoding system for visited file (default nil): \nP") |
1187 |
(check-coding-system coding-system) |
(check-coding-system coding-system) |
1188 |
(if (and coding-system buffer-file-coding-system (null force)) |
(if (and coding-system buffer-file-coding-system (null force)) |
1189 |
(setq coding-system |
(setq coding-system |
1195 |
"Set coding system for decoding and encoding file names to CODING-SYSTEM. |
"Set coding system for decoding and encoding file names to CODING-SYSTEM. |
1196 |
It actually just set the variable `file-name-coding-system' (which |
It actually just set the variable `file-name-coding-system' (which |
1197 |
see) to CODING-SYSTEM." |
see) to CODING-SYSTEM." |
1198 |
(interactive "zCoding system for file names (default, nil): ") |
(interactive "zCoding system for file names (default nil): ") |
1199 |
(check-coding-system coding-system) |
(check-coding-system coding-system) |
1200 |
(if (and coding-system |
(if (and coding-system |
1201 |
(coding-system-get coding-system 'ascii-incompatible)) |
(coding-system-get coding-system 'ascii-incompatible)) |
1219 |
default-terminal-coding-system) |
default-terminal-coding-system) |
1220 |
default-terminal-coding-system))) |
default-terminal-coding-system))) |
1221 |
(read-coding-system |
(read-coding-system |
1222 |
(format "Coding system for terminal display (default, %s): " |
(format "Coding system for terminal display (default %s): " |
1223 |
default) |
default) |
1224 |
default)))) |
default)))) |
1225 |
(if (and (not coding-system) |
(if (and (not coding-system) |
1248 |
default-keyboard-coding-system) |
default-keyboard-coding-system) |
1249 |
default-keyboard-coding-system))) |
default-keyboard-coding-system))) |
1250 |
(read-coding-system |
(read-coding-system |
1251 |
(format "Coding system for keyboard input (default, %s): " |
(format "Coding system for keyboard input (default %s): " |
1252 |
default) |
default) |
1253 |
default)))) |
default)))) |
1254 |
(if (and (not coding-system) |
(if (and (not coding-system) |
1321 |
(interactive |
(interactive |
1322 |
(list (read-coding-system |
(list (read-coding-system |
1323 |
(if last-next-selection-coding-system |
(if last-next-selection-coding-system |
1324 |
(format "Coding system for the next X selection (default, %S): " |
(format "Coding system for the next X selection (default %S): " |
1325 |
last-next-selection-coding-system) |
last-next-selection-coding-system) |
1326 |
"Coding system for the next X selection: ") |
"Coding system for the next X selection: ") |
1327 |
last-next-selection-coding-system))) |
last-next-selection-coding-system))) |