751 |
(define-key global-map [home] 'beginning-of-line) |
(define-key global-map [home] 'beginning-of-line) |
752 |
(define-key global-map [C-home] 'beginning-of-buffer) |
(define-key global-map [C-home] 'beginning-of-buffer) |
753 |
(define-key global-map [M-home] 'beginning-of-buffer-other-window) |
(define-key global-map [M-home] 'beginning-of-buffer-other-window) |
754 |
|
(define-key esc-map [home] 'beginning-of-buffer-other-window) |
755 |
(define-key global-map [left] 'backward-char) |
(define-key global-map [left] 'backward-char) |
756 |
(define-key global-map [up] 'previous-line) |
(define-key global-map [up] 'previous-line) |
757 |
(define-key global-map [right] 'forward-char) |
(define-key global-map [right] 'forward-char) |
764 |
(put 'scroll-left 'disabled t) |
(put 'scroll-left 'disabled t) |
765 |
(define-key global-map [C-next] 'scroll-left) |
(define-key global-map [C-next] 'scroll-left) |
766 |
(define-key global-map [M-next] 'scroll-other-window) |
(define-key global-map [M-next] 'scroll-other-window) |
767 |
|
(define-key esc-map [next] 'scroll-other-window) |
768 |
(define-key global-map [M-prior] 'scroll-other-window-down) |
(define-key global-map [M-prior] 'scroll-other-window-down) |
769 |
|
(define-key esc-map [prior] 'scroll-other-window-down) |
770 |
(define-key esc-map [?\C-\S-v] 'scroll-other-window-down) |
(define-key esc-map [?\C-\S-v] 'scroll-other-window-down) |
771 |
(define-key global-map [end] 'end-of-line) |
(define-key global-map [end] 'end-of-line) |
772 |
(define-key global-map [C-end] 'end-of-buffer) |
(define-key global-map [C-end] 'end-of-buffer) |
773 |
(define-key global-map [M-end] 'end-of-buffer-other-window) |
(define-key global-map [M-end] 'end-of-buffer-other-window) |
774 |
|
(define-key esc-map [end] 'end-of-buffer-other-window) |
775 |
(define-key global-map [begin] 'beginning-of-buffer) |
(define-key global-map [begin] 'beginning-of-buffer) |
776 |
(define-key global-map [M-begin] 'beginning-of-buffer-other-window) |
(define-key global-map [M-begin] 'beginning-of-buffer-other-window) |
777 |
|
(define-key esc-map [begin] 'beginning-of-buffer-other-window) |
778 |
;; (define-key global-map [select] 'function-key-error) |
;; (define-key global-map [select] 'function-key-error) |
779 |
;; (define-key global-map [print] 'function-key-error) |
;; (define-key global-map [print] 'function-key-error) |
780 |
(define-key global-map [execute] 'execute-extended-command) |
(define-key global-map [execute] 'execute-extended-command) |
938 |
(define-key global-map "\C-c" 'mode-specific-command-prefix) |
(define-key global-map "\C-c" 'mode-specific-command-prefix) |
939 |
|
|
940 |
(global-set-key [M-right] 'forward-word) |
(global-set-key [M-right] 'forward-word) |
941 |
|
(define-key esc-map [right] 'forward-word) |
942 |
(global-set-key [M-left] 'backward-word) |
(global-set-key [M-left] 'backward-word) |
943 |
|
(define-key esc-map [left] 'backward-word) |
944 |
;; ilya@math.ohio-state.edu says these bindings are standard on PC editors. |
;; ilya@math.ohio-state.edu says these bindings are standard on PC editors. |
945 |
(global-set-key [C-right] 'forward-word) |
(global-set-key [C-right] 'forward-word) |
946 |
(global-set-key [C-left] 'backward-word) |
(global-set-key [C-left] 'backward-word) |
950 |
;; This is "move to the clipboard", or as close as we come. |
;; This is "move to the clipboard", or as close as we come. |
951 |
(global-set-key [S-delete] 'kill-region) |
(global-set-key [S-delete] 'kill-region) |
952 |
|
|
953 |
(global-set-key [C-M-left] 'backward-sexp) |
(global-set-key [C-M-left] 'backward-sexp) |
954 |
(global-set-key [C-M-right] 'forward-sexp) |
(define-key esc-map [C-left] 'backward-sexp) |
955 |
(global-set-key [C-M-up] 'backward-up-list) |
(global-set-key [C-M-right] 'forward-sexp) |
956 |
(global-set-key [C-M-down] 'down-list) |
(define-key esc-map [C-right] 'forward-sexp) |
957 |
(global-set-key [C-M-home] 'beginning-of-defun) |
(global-set-key [C-M-up] 'backward-up-list) |
958 |
(global-set-key [C-M-end] 'end-of-defun) |
(define-key esc-map [C-up] 'backward-up-list) |
959 |
|
(global-set-key [C-M-down] 'down-list) |
960 |
|
(define-key esc-map [C-down] 'down-list) |
961 |
|
(global-set-key [C-M-home] 'beginning-of-defun) |
962 |
|
(define-key esc-map [C-home] 'beginning-of-defun) |
963 |
|
(global-set-key [C-M-end] 'end-of-defun) |
964 |
|
(define-key esc-map [C-end] 'end-of-defun) |
965 |
|
|
966 |
(define-key esc-map "\C-f" 'forward-sexp) |
(define-key esc-map "\C-f" 'forward-sexp) |
967 |
(define-key esc-map "\C-b" 'backward-sexp) |
(define-key esc-map "\C-b" 'backward-sexp) |