home *** CD-ROM | disk | FTP | other *** search
-
- (provide (quote em-keys))
-
- (defvar ext-map nil "\
- Keymap used for extended scan codes.")
-
- (setq ext-map (make-keymap))
-
- (defvar em-map nil "\
- Keymap used for em's key definitions which are prefixed by F9.")
-
- (setq em-map (make-sparse-keymap))
-
- (define-key ext-map " " (quote em-dup-line))
-
- (define-key ext-map "!" (quote find-file))
-
- (define-key ext-map "\"" (quote goto-line))
-
- (define-key ext-map "." (quote em-copy-region))
-
- (define-key ext-map "&" (quote em-copy-line-as-kill))
-
- (define-key ext-map "2" (quote em-match-paren))
-
- (define-key ext-map "" (quote open-rectangle))
-
- (define-key ext-map "" (quote em-kill-word))
-
- (define-key ext-map "" (quote undo))
-
- (define-key ext-map "<" (quote em-switch-to-nth-buffer))
-
- (define-key ext-map "=" (quote em-search-forward))
-
- (define-key ext-map ">" (quote em-search-backward))
-
- (define-key ext-map "?" (quote em-fill-paragraph))
-
- (define-key ext-map "@" (quote other-window))
-
- (define-key ext-map "A" (quote undefined))
-
- (define-key ext-map "B" (quote undefined))
-
- (define-key ext-map "C" em-map)
-
- (define-key ext-map "D" (quote undefined))
-
- (define-key ext-map "E" (quote undefined))
-
- (define-key ext-map "F" (quote undefined))
-
- (define-key ext-map "G" (quote beginning-of-line))
-
- (define-key ext-map "H" (quote previous-line))
-
- (define-key ext-map "I" (quote scroll-down))
-
- (define-key ext-map "J" (quote undefined))
-
- (define-key ext-map "K" (quote backward-char))
-
- (define-key ext-map "L" (quote goto-line))
-
- (define-key ext-map "M" (quote forward-char))
-
- (define-key ext-map "N" (quote undefined))
-
- (define-key ext-map "O" (quote end-of-line))
-
- (define-key ext-map "P" (quote next-line))
-
- (define-key ext-map "Q" (quote scroll-up))
-
- (define-key ext-map "R" (quote overwrite-mode))
-
- (define-key ext-map "S" (quote delete-char))
-
- (define-key ext-map "T" (quote describe-key))
-
- (define-key ext-map "U" (quote em-buffer-list))
-
- (define-key ext-map "V" (quote next-error))
-
- (define-key ext-map "W" (quote undefined))
-
- (define-key ext-map "X" (quote undefined))
-
- (define-key ext-map "Y" (quote undefined))
-
- (define-key ext-map "Z" (quote undefined))
-
- (define-key ext-map "_" (quote em-find-file-at-point))
-
- (define-key ext-map "s" (quote em-backward-to-word))
-
- (define-key ext-map "t" (quote em-forward-to-word))
-
- (define-key ext-map "u" (quote kill-line))
-
- (define-key ext-map "v" (quote em-end-of-buffer))
-
- (define-key ext-map "w" (quote em-kill-left-line))
-
- (define-key ext-map "Ç" (quote undefined))
-
- (define-key ext-map "ä" (quote em-beginning-of-buffer))
-
- (define-key ext-map "à" (quote call-last-kbd-macro))
-
- (define-key ext-map "å" (quote set-mark-command))
-
- (define-key ext-map "ç" (quote expand-abbrev))
-
- (define-key ext-map "ì" (quote em-scroll-line-down))
-
- (define-key ext-map "Ä" (quote undefined))
-
- (define-key ext-map "Å" (quote undefined))
-
- (define-key ext-map "É" (quote undefined))
-
- (define-key ext-map "æ" (quote em-scroll-line-up))
-
- (define-key ext-map "Æ" (quote undefined))
-
- (define-key ext-map "Ö" (quote undefined))
-
- (define-key ext-map "¢" (quote scroll-right))
-
- (define-key ext-map "¥" (quote scroll-left))
-
- (define-key ext-map "í" (quote scroll-other-window))
-
- (define-key ext-map "Ñ" (quote undefined))
-
- (define-key em-map "c" (quote compile))
-
- (define-key em-map "i" (quote em-reinitialize))
-
- (define-key em-map "j" (quote just-one-space))
-
- (define-key em-map "v" (quote em-buffer-file-name))
-
- (global-set-key " " (quote set-mark-command))
-
- (global-set-key " " ext-map)
-
- (define-key ctl-x-map " " (make-sparse-keymap))
-
- (define-key ctl-x-4-map " " (make-sparse-keymap))
-
- (define-key esc-map " " (make-sparse-keymap))
-
- (define-key mode-specific-map " " (make-sparse-keymap))
-
- (define-key help-map " " (make-sparse-keymap))
-
- (define-key em-map " " (make-sparse-keymap))
-
- (defun em-forward-to-word (arg) "\
- Move forward until encountering the beginning of a word.
- With argument, do this that many times." (interactive "p") (byte-code "└ê├─└┴
- $å