[sisyphus] emacs in CP1251

[Alexander Bokovoy]

On Wed, Feb 06, 2002 at 05:58:25PM +0300, Vyt wrote:
> On Wed, 6 Feb 2002 16:28:31 +0200
> Alexander Bokovoy <a.bokovoy на sam-solutions.net> wrote:
> 
> <skipped>
> 
> > > Работает нормально. Сейчас придется еще дописать про INS на
> > > keypad для CTRL+INS, SHIFT+INS и все будет ok.
> > Посмотрите в архив этой рассылки, я в январе посылал письмо с настройками
> > для CP1251. Было оно, кажется, в дискуссии о flyspell.
> 
> Я помню про него, перерыл grepmail'ом оба архива - не нашел,
> пропустил, наверно.
> 
> Кстати, неплохо бы все-таки это в Master оформить "из коробки".
Я для этого его и посылал.

 (codepage-setup 1251)                                                                                      
  (define-coding-system-alias 'windows-1251 'cp1251)                                                         

(set-language-info-alist
 "Cyrillic-CP1251" `((charset cyrillic-iso8859-5)
		   (coding-system cp1251)
		   (coding-priority cp1251)
		   (input-method . "cyrillic-jcuken")
		   (features cyril-util)
		   (unibyte-display . cp1251)
		   (sample-text . "Russian (,L на caaZXY(B)	,L7T`PRabRcYbU(B!")
		   (documentation . "Support for Cyrillic CP1251."))
 '("Cyrillic"))

; Shift-arrows a la windows...
(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(case-fold-search t)
 '(current-language-environment "Cyrillic-CP1251")
 '(default-input-method "cyrillic-jcuken")
 '(global-font-lock-mode t nil (font-lock))
 '(pc-select-meta-moves-sexps t)
 '(pc-select-selection-keys-only t)
 '(pc-selection-mode t nil (pc-select))
 '(save-place t)
 '(show-paren-mode t nil (paren))
 '(transient-mark-mode t)
 '(unibyte-display-via-language-environment t))

(set-language-environment "Cyrillic-CP1251")
(set-terminal-coding-system 'cp1251)
(set-keyboard-coding-system 'cp1251)

-- 
/ Alexander Bokovoy
Software architect and analyst             // SaM-Solutions Ltd.
---
Just because I turn down a contract on a guy doesn't mean he isn't going
to get hit.
		-- Joey