
(load "amiga-mouse")

(load "amiga-menu")

(global-set-key "A" (quote previous-line))

(global-set-key "B" (quote next-line))

(global-set-key "D" (quote backward-char))

(global-set-key "C" (quote forward-char))

(global-set-key "?~" (quote info))

(global-set-key "T" (quote scroll-down))

(global-set-key "S" (quote scroll-up))

(global-set-key " @" (quote forward-word))

(global-set-key " A" (quote backward-word))

(global-set-key "Б" (quote beginning-of-buffer))

(global-set-key "В" (quote end-of-buffer))

(global-set-key "Д" (quote beginning-of-line))

(global-set-key "Г" (quote end-of-line))

(global-set-key " А" (quote forward-sexp))

(global-set-key " Б" (quote backward-sexp))

(defun scroll-down-1 nil "\
Move up one line on screen" (interactive) (byte-code "А€БВ!‡" [nil scroll-down 1] 2))

(defun scroll-up-1 nil "\
Move down one line on screen" (interactive) (byte-code "А€БВ!‡" [nil scroll-up 1] 2))

(global-set-key "Ф" (quote scroll-down-1))

(global-set-key "У" (quote scroll-up-1))

(global-set-key "X" (quote amiga-arexx-process))

(setq amiga-arexx-processing nil)

(defun amiga-arexx-process nil (interactive) (byte-code "Е€?…+ Б‰€ЕЖ ‰…& ЗЕИЙКЏ€Л\"*€‚ )€Е‰‡" [amiga-arexx-processing t arexxcmd rc result nil amiga-arexx-get-command 0 err (byte-code "Г	!@ДЕ!!‰)‡" [expr arexxcmd result read-from-string prin1-to-string eval] 5) ((error (byte-code "Г‰€Д
!‰‡" [rc result err 20 prin1-to-string] 3))) amiga-arexx-reply] 5))

(defun amiga-arexx-wait-for-commands nil "\
Waits for all pending ARexx commands to complete.
Also processes any pending ARexx requests during this interval." (byte-code "А €Б ВV… Г €А €‚ ‡" [amiga-arexx-process amiga-arexx-pending-commands 0 amiga-arexx-wait] 6))

(defun amiga-arexx-do-command (str as-file) "\
Sends ARexx command str (like amiga-arexx-send-command) but waits
for all pending commands to complete (including this one)." (interactive "sARexx command: 
P") (byte-code "В€Г	\"€Д ‡" [str as-file nil amiga-arexx-send-command amiga-arexx-wait-for-commands] 3))

(setq amiga-arexx-initialized t)

(setq completion-ignore-case t)

(setq version-control (quote never))