(create-prefix-command "C-C")
(create-prefix-command "C-^")
(define-macro "directory-list" "A-X argument
A-X push
dir
")
(bind-to-key "directory-list" "C-^d")
(bind-to-key "open-line" "C-^o")
(define-macro "write-region" "A-X kill-region
A-X yank
A-X another-window
A-X yank
A-X argument
1A-X prompt
File-name: 
A-X write-file
C-Y
A-X previous-window
A-X one-window
A-X delete-buffer
window
")
(bind-to-key "write-region" "C-^w")
(bind-to-key "exit" "C-^")
(bind-to-key "set-mark" "C-^ ")
(define-macro "mark-beginning" "A-X set-mark
A-X goto-beginning
A-X exchange-point-and-mark
")
(define-macro "mark-end" "A-X set-mark
A-X goto-end
A-X exchange-point-and-mark
")
(bind-to-key "mark-beginning" "C-^<")
(bind-to-key "mark-end" "C-^>")
(bind-to-key "stop-process" "C-\")
(bind-to-key "help" "C-_")
(bind-to-key "help" "C-?")
(define-macro "scroll-next-window" "C-XnC-VC-Xp")
(bind-to-key "scroll-next-window" "C-A-V")
(bind-to-key "delete-buffer" "C-Xk")
(define-macro "split-and-find" "A-X split-window
A-X redisplay
A-X find-file
")
(define-macro "Newline" "C-J")
(bind-to-key "beginning-of-window" "C-Ch")
(bind-to-key "Newline" "C-M")
(bind-to-key "redisplay" "C-L")
(bind-to-key "push" "A-!")
(bind-to-key "replace-string" "C-%")
(bind-to-key "query-replace" "A-r")
(bind-to-key "set-mark" "C- ")
(bind-to-key "exit-level" "C-]")
(bind-to-key "end-of-line" "C-E")
(bind-to-key "stop-process" "C-A-C")
(bind-to-key "describe-key" "A-/")
(define-macro "mark-word" "A-X forward-word
A-X set-mark
A-X backward-word
")
(bind-to-key "mark-word" "A-@")
(bind-to-key "fill-region" "A-g")
(bind-to-key "exit" "C-A-Z")
(bind-to-key "exit" "C-CC-C")
(define-macro "kill-paragraph" "A-X mark-paragraph
A-X kill-region
")
(bind-to-key "kill-paragraph" "C-CC-K")
(bind-to-key "find-file" "C-CC-F")
(bind-to-key "center-window" "C-CC-L")
(define-macro "transpose-sentence" "A-X forward-sentence
A-X backward-sentence
A-X kill-sentence
A-X backward-sentence
A-X yank
 ")
(bind-to-key "transpose-sentence" "C-CC-T")
(bind-to-key "push" "C-CC-Z")
(bind-to-key "one-window" "C-C1")
(define-macro "backward-to-previous-word" "A-X forward-word
A-X argument
2A-X backward-word
A-X forward-word
")
(define-macro "forward-to-next-word" "A-X backward-word
A-X argument
2A-X forward-word
A-X backward-word
")
(bind-to-key "forward-to-next-word" "C-Cf")
(bind-to-key "backward-to-previous-word" "C-Cb")
(bind-to-key "to-indentation" "C-A-J")
(bind-to-key "to-indentation" "C-A-M")
(define-macro "move-over-rparen" "A-X incremental-search
)C-[")
(bind-to-key "move-over-rparen" "A-)")
(define-macro "delete-indentation" "A-X beginning-of-line
A-X set-mark
A-X to-indentation
A-X kill-region
")
(bind-to-key "delete-indentation" "A-^")
(define-macro "mark-page" "A-X end-of-window
A-X set-mark
A-X beginning-of-window
")
(bind-to-key "mark-page" "C-XC-P")
(bind-to-key "visit-file" "C-XC-R")
(define-macro "mark-whole-buffer" "A-x goto-end
A-x set-mark
A-x goto-beginning
")
(bind-to-key "mark-whole-buffer" "C-Xh")
(bind-to-key "previous-page" "C-X[")
(bind-to-key "next-page" "C-X]")
(define-macro "backward-kill-sentence" "A-x set-mark
A-x backward-sentence
A-x kill-region
")
(bind-to-key "backward-kill-sentence" "C-XC-H")
(bind-to-key "backward-kill-sentence" "C-XN-.")
(define-macro "another-window" "A-x split-window
A-x select-buffer
window
")
(bind-to-key "another-window" "C-X2")
(define-macro "insert-file" "C-U8A-x set-kill-buffers
A-x prompt
Insert file: 
A-x another-window
A-x visit-file
C-Y
A-x goto-beginning
A-x set-mark
A-x goto-end
A-x copy-region
A-x previous-window
A-x set-mark
A-x yank
A-x exchange-point-and-mark
A-x one-window
A-x delete-buffer
A-y
")
(bind-to-key "insert-file" "C-Ci")
(define-macro "transpose-paragraphs" "A-X mark-paragraph
A-X kill-region
A-X backward-paragraph
A-Y

")
(bind-to-key "transpose-paragraphs" "C-Ct")
(define-macro "backward-kill-paragraph" "A-X set-mark
A-X backward-paragraph
A-X kill-region
")
(bind-to-key "backward-kill-paragraph" "C-CC-h")
(bind-to-key "backward-kill-paragraph" "C-CN-.")
(bind-to-key "directory-list" "C-XC-D")
(define-macro "tab" "	")
(bind-to-key "tab" "C-X	")
(define-macro "mark-sentence" "A-X set-mark
A-X forward-sentence
A-X exchange-point-and-mark
")
(bind-to-key "mark-sentence" "C-X@")
(bind-to-key "dired" "C-Xd")
(define-macro "mark-whole-buffer" "A-X goto-end
A-X set-mark
A-X goto-beginning
")
(bind-to-key "mark-whole-buffer" "C-Xh")
(bind-to-key "save-all-buffers" "C-Xs")