221 (prefer-coding-system 'koi8-r-dos) |
221 (prefer-coding-system 'koi8-r-dos) |
222 (prefer-coding-system 'utf-16-le) |
222 (prefer-coding-system 'utf-16-le) |
223 (prefer-coding-system 'cp866-dos) |
223 (prefer-coding-system 'cp866-dos) |
224 |
224 |
225 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit) |
225 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit) |
226 (if (equal window-system 'w32) ; also (string-equal system-type "windows-nt") |
226 (cond |
227 (progn |
227 ((equal window-system 'w32) ; also (string-equal system-type "windows-nt") |
228 (set-selection-coding-system 'cp1251) |
|
229 (prefer-coding-system 'utf-8-unix) |
|
230 (prefer-coding-system 'cp1251-dos) |
|
231 (modify-coding-system-alist 'file "\\.[ch]$" 'cp1251) |
|
232 (modify-coding-system-alist 'file "[Mm]akefile.*$" 'cp1251) |
|
233 ) |
|
234 (progn |
228 (progn |
235 (set-selection-coding-system 'utf-8-unix) |
229 (set-selection-coding-system 'cp1251) |
|
230 (prefer-coding-system 'utf-8-unix) |
|
231 (prefer-coding-system 'cp1251-dos) |
|
232 )) |
|
233 ((equal window-system 'x) |
|
234 (progn |
236 (prefer-coding-system 'cp1251-dos) |
235 (prefer-coding-system 'cp1251-dos) |
237 (prefer-coding-system 'utf-8-unix) |
236 (prefer-coding-system 'utf-8-unix) |
238 (modify-coding-system-alist 'file "\\.[ch]$" 'cp1251-unix) |
237 (setq selection-coding-system 'ctext-with-extensions) |
239 (modify-coding-system-alist 'file "[Mm]akefile.*$" 'cp1251-unix) |
238 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
240 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
239 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
241 ) |
240 )) |
|
241 (t |
|
242 (progn |
|
243 ;; (set-selection-coding-system 'utf-8-unix) |
|
244 (prefer-coding-system 'cp1251-dos) |
|
245 (prefer-coding-system 'utf-8-unix) |
|
246 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
|
247 )) |
242 ) |
248 ) |
243 |
249 |
244 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
250 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
245 |
251 |
246 ;; To open from command line file, which names has extended opcode |
252 ;; To open from command line file, which names has extended opcode |