;;      Òáóëìáäëá ëìá÷éáôõòù äìñ d211.  Óìåçëá ëïóéí ðïä  ÒË
;;                      é Chameleoná    Ðòåææéëóù óï óôòåìïë õ÷åäåîù
;;                                      îá F5 é Ctrl-Shift-F5
;;              òõó/ìáô - F15(d211)     F17(cham)
;;*******************************************************************
(put 'narrow-to-page 'disabled nil)
(edt-emulation-on)

(autoload 'dir-mode "dir")

(setq auto-mode-alist
      (append
       '(("\\.dir$" . dir-mode))
       auto-mode-alist))
;;****************************************************************
;(defun to-beginnig-of-next-line () (prog
;                                   (next-line)
;                                   (beginning-of-line)))
;;****************************************************************
;;=========== Ðåòåëìàþáôåìø òõóó/ìáô,   òåöéí ÚÁÍÅÎÙ ===================
  (define-key global-map "\036p" 'toggle-english-russian-charset)   ; F15
  (define-key global-map "\036\013" 'toggle-english-russian-charset)   ; F17 for cham
; á üôõ óôòïþëõ îáäï ÷ôùëáôø ÷ óìïê òïäîïê ~/.emacs   :
; îï ïîá é ôáí ðåòåóôáìá ðïíïçáôø !!!
 (setq overwrite-mode t)       ; ÷ëìàþéôø òåöéí úáíåîù
;;--------- Õ×ÏÄÉÍ ÐÒÅÆÆÉËÓÙ ÓÏ ÓÔÒÅÌÏË, óôòåìëé, ìéóôáîéå -----------
  (define-key global-map "\036u" 'Control-X-prefix)    ; F5  Úáíåîéôø ðòåææéëó óôòåìëé ÷ðòá÷ï
  (define-key global-map "\036e" 'ctrl-x-4-prefix)     ; f5  Úáíåîéôø ðòåææéëó óôòåìëé ÷ðòá÷ï
  (global-set-key "\C-x" 'forward-char)               ; "÷ðåòåä"
  (global-set-key "\C-w" 'previous-line)              ; "÷÷åòè"
  (global-set-key "\C-y" 'backward-char)              ; "îáúáä"
; (global-set-key "\C-z" 'backward-char)              ; "÷îéú"
  (define-key global-map "\036[" 'scroll-up)          ;      c4  Îá óôòáîéãõ ÷îéú
  (define-key global-map "\036Z" 'scroll-down)        ;      c3  Îá óôòáîéãõ ÷÷åòè
  (define-key global-map "\036\C-w" 'beginning-of-buffer) ;  Shift-÷÷åòè
  (define-key global-map "\036\C-z" 'end-of-buffer)       ;  Shift-÷îéú
;;--------- Ðåòå÷ïä óôòïëé ------------------
  (global-set-key "\C-j" 'next-line)                  ; Îá îï÷õà óôòïþëõ
;;--------- Õäáìéôø óéí÷ïì, úáòõâéôø ëïîåã óôòïëé -----------------
  (global-set-key "\C-l" 'delete-char)                ; "ErasePage" õäáìéôø óéí÷ïì
  (global-set-key "\C-d" 'kill-line)                  ;  óòõâéôø ëïîåã óôòïëé
;;------ Ëïóéí ðïä ÒË ----------------------------------------------
  (global-set-key "\C-o" 'end-of-line)                ; ^O ÷ ëïîåã óôòïëé
  (global-set-key "\C-e" 'overwrite-mode)             ; ^E ÷óôá÷ëá/úáíåîá
;;------------------------------------------------------------------
  (define-key global-map "\036\044" 'undo)            ;      ^f4 Ïôëáôëá
  (define-key global-map "\036`" 'yank)               ;      f15 ×óðïíîéôø
  (define-key global-map "\036q" 'global-set-key)     ;      F1  Îáúîáþéôø îá ëìá÷éûõ æõîëãéà
  (define-key global-map "\036m" 'newline)            ;      f13 Òáúòåúáôø óôòïþëõ
  (define-key global-map "\036." 'query-replace)      ;     ^f14 Ðïéóë é úáíåîá
  (define-key global-map "\036!" 'find-file)          ;     ^f1  ×ïêôé ÷ æáêì ðï úáðòïóõ