Mercurial > hg > xemacs-beta
comparison lisp/prim/keydefs.el @ 52:461c7ba8286a r19-16-pre1
Import from CVS: tag r19-16-pre1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:57:19 +0200 |
| parents | 441bb1e64a06 |
| children | 131b0175ea99 |
comparison
equal
deleted
inserted
replaced
| 51:69ce12f60f55 | 52:461c7ba8286a |
|---|---|
| 518 ;; fixes that. If it turns out that the semantics of these keys should | 518 ;; fixes that. If it turns out that the semantics of these keys should |
| 519 ;; differ from server to server, this should be moved into server-specific | 519 ;; differ from server to server, this should be moved into server-specific |
| 520 ;; files, but these appear to be the standard Motif and PC bindings. | 520 ;; files, but these appear to be the standard Motif and PC bindings. |
| 521 | 521 |
| 522 ;; potential R6isms | 522 ;; potential R6isms |
| 523 (define-key global-map 'kp_left 'backward-char) | 523 (define-key global-map 'kp-left 'backward-char) |
| 524 (define-key global-map 'kp_up 'previous-line) | 524 (define-key global-map 'kp-up 'previous-line) |
| 525 (define-key global-map 'kp_right 'forward-char) | 525 (define-key global-map 'kp-right 'forward-char) |
| 526 (define-key global-map 'kp_down 'next-line) | 526 (define-key global-map 'kp-down 'next-line) |
| 527 | 527 |
| 528 | 528 |
| 529 ;; movement by larger blocks | 529 ;; movement by larger blocks |
| 530 (define-key global-map '(control left) 'backward-word) | 530 (define-key global-map '(control left) 'backward-word) |
| 531 (define-key global-map '(control up) #'(lambda () | 531 (define-key global-map '(control up) #'(lambda () |
| 544 | 544 |
| 545 ;; movement by pages | 545 ;; movement by pages |
| 546 (define-key global-map '(control prior) 'scroll-right) | 546 (define-key global-map '(control prior) 'scroll-right) |
| 547 (define-key global-map '(control next) 'scroll-left) | 547 (define-key global-map '(control next) 'scroll-left) |
| 548 ;; potential R6isms | 548 ;; potential R6isms |
| 549 (define-key global-map 'kp_prior 'scroll-down) | 549 (define-key global-map 'kp-prior 'scroll-down) |
| 550 (define-key global-map 'kp_next 'scroll-up) | 550 (define-key global-map 'kp-next 'scroll-up) |
| 551 (define-key global-map '(control kp_prior) 'scroll-right) | 551 (define-key global-map '(control kp-prior) 'scroll-right) |
| 552 (define-key global-map '(control kp_next) 'scroll-left) | 552 (define-key global-map '(control kp-next) 'scroll-left) |
| 553 | 553 |
| 554 | 554 |
| 555 ;; movement to the limits | 555 ;; movement to the limits |
| 556 (define-key global-map '(control home) 'beginning-of-buffer) | 556 (define-key global-map '(control home) 'beginning-of-buffer) |
| 557 (define-key global-map '(control end) 'end-of-buffer) | 557 (define-key global-map '(control end) 'end-of-buffer) |
| 558 (define-key global-map 'begin 'beginning-of-line) | 558 (define-key global-map 'begin 'beginning-of-line) |
| 559 (define-key global-map '(control begin) 'beginning-of-buffer) | 559 (define-key global-map '(control begin) 'beginning-of-buffer) |
| 560 ;; potential R6isms | 560 ;; potential R6isms |
| 561 (define-key global-map 'kp_home 'beginning-of-line) | 561 (define-key global-map 'kp-home 'beginning-of-line) |
| 562 (define-key global-map '(control kp_home) 'beginning-of-buffer) | 562 (define-key global-map '(control kp-home) 'beginning-of-buffer) |
| 563 (define-key global-map 'kp_end 'end-of-line) | 563 (define-key global-map 'kp-end 'end-of-line) |
| 564 (define-key global-map '(control kp_end) 'end-of-buffer) | 564 (define-key global-map '(control kp-end) 'end-of-buffer) |
| 565 | 565 |
| 566 ;; movement between windows | 566 ;; movement between windows |
| 567 (define-key global-map '(control tab) 'other-window) | 567 (define-key global-map '(control tab) 'other-window) |
| 568 (define-key global-map '(control shift tab) 'backward-other-window) | 568 (define-key global-map '(control shift tab) 'backward-other-window) |
| 569 | 569 |
| 571 (define-key global-map '(meta next) 'scroll-other-window) | 571 (define-key global-map '(meta next) 'scroll-other-window) |
| 572 (define-key global-map '(meta prior) 'scroll-other-window-down) | 572 (define-key global-map '(meta prior) 'scroll-other-window-down) |
| 573 (define-key global-map '(meta home) 'beginning-of-buffer-other-window) | 573 (define-key global-map '(meta home) 'beginning-of-buffer-other-window) |
| 574 (define-key global-map '(meta end) 'end-of-buffer-other-window) | 574 (define-key global-map '(meta end) 'end-of-buffer-other-window) |
| 575 ;; potential R6isms | 575 ;; potential R6isms |
| 576 (define-key global-map '(meta kp_next) 'scroll-other-window) | 576 (define-key global-map '(meta kp-next) 'scroll-other-window) |
| 577 (define-key global-map '(meta kp_prior) 'scroll-other-window-down) | 577 (define-key global-map '(meta kp-prior) 'scroll-other-window-down) |
| 578 (define-key global-map '(meta kp_home) 'beginning-of-buffer-other-window) | 578 (define-key global-map '(meta kp-home) 'beginning-of-buffer-other-window) |
| 579 (define-key global-map '(meta kp_end) 'end-of-buffer-other-window) | 579 (define-key global-map '(meta kp-end) 'end-of-buffer-other-window) |
| 580 | 580 |
| 581 ;; potential R6isms | 581 ;; potential R6isms |
| 582 (define-key global-map 'redo 'repeat-complex-command) | 582 (define-key global-map 'redo 'repeat-complex-command) |
| 583 (define-key global-map 'kp_insert 'overwrite-mode) | 583 (define-key global-map 'kp-insert 'overwrite-mode) |
| 584 (define-key global-map 'kp_delete 'backward-delete-char-untabify) | 584 (define-key global-map 'kp-delete 'backward-delete-char-untabify) |
| 585 | 585 |
| 586 (define-key global-map 'kp_enter [return]) ; do whatever RET does now | 586 (define-key global-map 'kp-enter [return]) ; do whatever RET does now |
| 587 (define-key global-map 'kp_tab [tab]) | 587 (define-key global-map 'kp-tab [tab]) |
| 588 | 588 |
| 589 (define-key global-map 'undo 'undo) | 589 (define-key global-map 'undo 'undo) |
| 590 (define-key global-map 'help 'help-for-help) | 590 (define-key global-map 'help 'help-for-help) |
| 591 | 591 |
| 592 (define-key global-map 'kp_space 'self-insert-command) | 592 (define-key global-map 'kp-space 'self-insert-command) |
| 593 (define-key global-map 'kp_equal 'self-insert-command) | 593 (define-key global-map 'kp-equal 'self-insert-command) |
| 594 (define-key global-map 'kp_multiply 'self-insert-command) | 594 (define-key global-map 'kp-multiply 'self-insert-command) |
| 595 (define-key global-map 'kp_add 'self-insert-command) | 595 (define-key global-map 'kp-add 'self-insert-command) |
| 596 (define-key global-map 'kp_separator 'self-insert-command) | 596 (define-key global-map 'kp-separator 'self-insert-command) |
| 597 (define-key global-map 'kp_subtract 'self-insert-command) | 597 (define-key global-map 'kp-subtract 'self-insert-command) |
| 598 (define-key global-map 'kp_decimal 'self-insert-command) | 598 (define-key global-map 'kp-decimal 'self-insert-command) |
| 599 (define-key global-map 'kp_divide 'self-insert-command) | 599 (define-key global-map 'kp-divide 'self-insert-command) |
| 600 | 600 |
| 601 (define-key global-map 'kp_0 'self-insert-command) | 601 (define-key global-map 'kp-0 'self-insert-command) |
| 602 (define-key global-map 'kp_1 'self-insert-command) | 602 (define-key global-map 'kp-1 'self-insert-command) |
| 603 (define-key global-map 'kp_2 'self-insert-command) | 603 (define-key global-map 'kp-2 'self-insert-command) |
| 604 (define-key global-map 'kp_3 'self-insert-command) | 604 (define-key global-map 'kp-3 'self-insert-command) |
| 605 (define-key global-map 'kp_4 'self-insert-command) | 605 (define-key global-map 'kp-4 'self-insert-command) |
| 606 (define-key global-map 'kp_5 'self-insert-command) | 606 (define-key global-map 'kp-5 'self-insert-command) |
| 607 (define-key global-map 'kp_6 'self-insert-command) | 607 (define-key global-map 'kp-6 'self-insert-command) |
| 608 (define-key global-map 'kp_7 'self-insert-command) | 608 (define-key global-map 'kp-7 'self-insert-command) |
| 609 (define-key global-map 'kp_8 'self-insert-command) | 609 (define-key global-map 'kp-8 'self-insert-command) |
| 610 (define-key global-map 'kp_9 'self-insert-command) | 610 (define-key global-map 'kp-9 'self-insert-command) |
| 611 | 611 |
| 612 (define-key global-map 'select 'function-key-error) | 612 (define-key global-map 'select 'function-key-error) |
| 613 (define-key global-map 'print 'function-key-error) | 613 (define-key global-map 'print 'function-key-error) |
| 614 (define-key global-map 'execute 'execute-extended-command) | 614 (define-key global-map 'execute 'execute-extended-command) |
| 615 (define-key global-map 'clearline 'function-key-error) | 615 (define-key global-map 'clearline 'function-key-error) |