Re: emacs and cp1251

[Artem Chuprina <ran@ran.pp.ru>]

Alex Vizor -> debian-russian@lists.debian.org  @ Thu, 17 Nov 2005 03:33:38 +0200:

 AV> Народ помогите настроить emacs21 с cp1251.
 AV> Всё что смог дать гугл не помогло (хотя может я не достаточно искал) русские
 AV> iso8859-5 (я так понимаю terminus подойдут).
 AV> конфиг можно считать пустой. С koi8-r и utf8 в своё время всё нормально
 AV> работало.
 AV> Если кто знает как это сделать или есть 100% работающий пример киньте сюда
 AV> буду очень признателен.

(codepage-setup 1251)
(define-coding-system-alias 'windows-1251 'cp1251)
(define-coding-system-alias 'microsoft-cp1251 'cp1251)
(when (eq system-type 'windows-nt)
  (set-language-environment 'Cyrillic-ALT)
  (prefer-coding-system 'cp1251)
  (set-keyboard-coding-system 'cp1251))
(defun Ran:prefer-1251 ()
  (interactive)
  (prefer-coding-system 'cp1251)
  (setenv "LANG" "ru_RU.CP1251"))
(global-set-key [?\C-c ?k ?w] 'Ran:prefer-1251)
(let ((lang (getenv "LANG")))
  (when (and lang (string= lang "ru_RU.CP1251"))
	(Ran:prefer-1251)))
(and (boundp 'non-standard-icccm-encodings-alist)
	 (setq non-standard-icccm-encodings-alist
		   (cons '("microsoft-cp1251" . cp1251) non-standard-icccm-encodings-alist)))

-- 
Artem Chuprina
RFC2822: <ran{}ran.pp.ru> Jabber: ran@jabber.ran.pp.ru

Пользователь юникса перестаёт быть пользователем юникса если после его
пользования пользованный юникс перестаёт быть юниксом. (с)