diff options
| author | Eric S. Raymond | 1993-04-23 02:21:02 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 1993-04-23 02:21:02 +0000 |
| commit | 2fcf8a07b30209bd2dd49fafade65f744e75e219 (patch) | |
| tree | 34e73121f48496be79d5fc6cf0bebfdc9af5ec11 | |
| parent | b501435020ddd3d928a85162167c8b088b7ea450 (diff) | |
| download | emacs-2fcf8a07b30209bd2dd49fafade65f744e75e219.tar.gz emacs-2fcf8a07b30209bd2dd49fafade65f744e75e219.zip | |
(global-map): Remove function key bindings that duplicate stuff in
loaddefs.el.
| -rw-r--r-- | lisp/term/x-win.el | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 2e518476294..a531f159b28 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -425,20 +425,11 @@ This returns ARGS with the arguments that have been processed removed." | |||
| 425 | 425 | ||
| 426 | ;;;; Function keys | 426 | ;;;; Function keys |
| 427 | 427 | ||
| 428 | ;;; Give some common function keys reasonable definitions. | ||
| 429 | (define-key global-map [home] 'beginning-of-line) | ||
| 430 | (define-key global-map [left] 'backward-char) | ||
| 431 | (define-key global-map [up] 'previous-line) | ||
| 432 | (define-key global-map [right] 'forward-char) | ||
| 433 | (define-key global-map [down] 'next-line) | ||
| 434 | (define-key global-map [prior] 'scroll-down) | ||
| 435 | (define-key global-map [next] 'scroll-up) | ||
| 436 | ;; We use a different symbol to prevent | 428 | ;; We use a different symbol to prevent |
| 437 | ;; doc strings from listing M-next as the preferred way to do this. | 429 | ;; doc strings from listing M-next as the preferred way to do this. |
| 438 | (fset 'advertised-scroll-other-window 'scroll-other-window) | 430 | (fset 'advertised-scroll-other-window 'scroll-other-window) |
| 439 | (define-key global-map [M-next] 'scroll-other-window) | 431 | (define-key global-map [M-next] 'scroll-other-window) |
| 440 | (define-key global-map [begin] 'beginning-of-buffer) | 432 | (define-key global-map [begin] 'beginning-of-buffer) |
| 441 | (define-key global-map [end] 'end-of-buffer) | ||
| 442 | 433 | ||
| 443 | (define-key global-map "\C-z" 'iconify-frame) | 434 | (define-key global-map "\C-z" 'iconify-frame) |
| 444 | 435 | ||