
(global-set-key "{" (quote backward-paragraph))

(global-set-key "}" (quote forward-paragraph))

(global-set-key "3" (quote split-window-horizontally))

(global-set-key "" (quote isearch-backward-regexp))

(global-set-key "6}" (quote enlarge-window-horizontally))

(global-set-key "6{" (quote shrink-window-horizontally))

(global-set-key "Xq" (quote top-level))

(global-set-key "Xq" (quote top-level))

(global-set-key "$" (quote ispell-word))

(global-unset-key "")

(global-unset-key "n")

(global-unset-key "r")

(global-unset-key "a")

(global-set-key "" (quote repeat-complex-command))

(global-set-key "nn" (quote narrow-to-region))

(global-set-key "np" (quote narrow-to-page))

(global-set-key "nw" (quote widen))

(global-set-key "rr" (quote copy-rectangle-to-register))

(global-set-key "rk" (quote kill-rectangle))

(global-set-key "ry" (quote yank-rectangle))

(global-set-key "ro" (quote open-rectangle))

(global-set-key "rt" (quote string-rectangle))

(global-set-key "rc" (quote clear-rectangle))

(global-set-key "rs" (quote copy-to-register))

(global-set-key "rx" (quote copy-to-register))

(global-set-key "ri" (quote insert-register))

(global-set-key "rg" (quote insert-register))

(global-set-key "r " (quote point-to-register))

(global-set-key "rj" (quote register-to-point))

(global-set-key "r " (quote point-to-register))

(global-set-key "r " (quote point-to-register))

(global-set-key "ag" (quote add-global-abbrev))

(global-set-key "al" (quote add-mode-abbrev))

(global-set-key "a+" (quote add-mode-abbrev))

(global-set-key "a" (quote add-mode-abbrev))

(global-set-key "aig" (quote inverse-add-global-abbrev))

(global-set-key "a-" (quote inverse-add-global-abbrev))

(global-set-key "ail" (quote inverse-add-mode-abbrev))

(global-set-key "ae" (quote expand-abbrev))

(global-set-key "a " (quote expand-abbrev))

(load "rect")

(defun string-rectangle (start end string) "\
Insert STRING on each line of the region-rectangle, shifting text right.
The left edge of the rectangle specifies the column for insertion.
This command does not delete or overwrite any existing text.

Called from a program, takes three args; START, END and STRING." (interactive "r
sString rectangle: ") (byte-code "ÂˆÃÄ	Â$ˆb‡" [start end nil operate-on-rectangle string-rectangle-line] 5))

(defun string-rectangle-line (startpos begextra endextra) (byte-code "Æi	
#bˆiÇÈ!ˆiZ\\‰)ˆÉ`ÊÈ\"ˆ`\"ˆc)‡" [column begextra endextra startpos ocol string + skip-chars-forward " 	" delete-region skip-chars-backward] 7))