Mercurial > hg > xemacs-beta
comparison lisp/prim/keydefs.el @ 74:54cc21c15cbb r20-0b32
Import from CVS: tag r20-0b32
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:04:33 +0200 |
| parents | 131b0175ea99 |
| children | 0d2f883870bc |
comparison
equal
deleted
inserted
replaced
| 73:e2d7a37b7c8d | 74:54cc21c15cbb |
|---|---|
| 20 | 20 |
| 21 ;; All the global bindings should be here so that one can reload things | 21 ;; All the global bindings should be here so that one can reload things |
| 22 ;; like files.el without trashing one's personal bindings. | 22 ;; like files.el without trashing one's personal bindings. |
| 23 | 23 |
| 24 ;;; Synched up with: Not synched with FSF. | 24 ;;; Synched up with: Not synched with FSF. |
| 25 | |
| 26 ;;; Commentary: | |
| 27 | |
| 28 ;;; Code: | |
| 25 | 29 |
| 26 ;; created by C code | 30 ;; created by C code |
| 27 (defvar global-map (current-global-map) "\ | 31 (defvar global-map (current-global-map) "\ |
| 28 Default global keymap mapping XEmacs keyboard input into commands. | 32 Default global keymap mapping XEmacs keyboard input into commands. |
| 29 The value is a keymap which is usually (but not necessarily) XEmacs's | 33 The value is a keymap which is usually (but not necessarily) XEmacs's |
| 514 ;; 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 |
| 515 ;; 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 |
| 516 ;; 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. |
| 517 | 521 |
| 518 ;; potential R6isms | 522 ;; potential R6isms |
| 519 (define-key global-map 'kp_left 'backward-char) | 523 (define-key global-map 'kp-left 'backward-char) |
| 520 (define-key global-map 'kp_up 'previous-line) | 524 (define-key global-map 'kp-up 'previous-line) |
| 521 (define-key global-map 'kp_right 'forward-char) | 525 (define-key global-map 'kp-right 'forward-char) |
| 522 (define-key global-map 'kp_down 'next-line) | 526 (define-key global-map 'kp-down 'next-line) |
| 523 | 527 |
| 524 | 528 |
| 525 ;; movement by larger blocks | 529 ;; movement by larger blocks |
| 526 (define-key global-map '(control left) 'backward-word) | 530 (define-key global-map '(control left) 'backward-word) |
| 527 (define-key global-map '(control up) #'(lambda () | 531 (define-key global-map '(control up) #'(lambda () |
| 540 | 544 |
| 541 ;; movement by pages | 545 ;; movement by pages |
| 542 (define-key global-map '(control prior) 'scroll-right) | 546 (define-key global-map '(control prior) 'scroll-right) |
| 543 (define-key global-map '(control next) 'scroll-left) | 547 (define-key global-map '(control next) 'scroll-left) |
| 544 ;; potential R6isms | 548 ;; potential R6isms |
| 545 (define-key global-map 'kp_prior 'scroll-down) | 549 (define-key global-map 'kp-prior 'scroll-down) |
| 546 (define-key global-map 'kp_next 'scroll-up) | 550 (define-key global-map 'kp-next 'scroll-up) |
| 547 (define-key global-map '(control kp_prior) 'scroll-right) | 551 (define-key global-map '(control kp-prior) 'scroll-right) |
| 548 (define-key global-map '(control kp_next) 'scroll-left) | 552 (define-key global-map '(control kp-next) 'scroll-left) |
| 549 | 553 |
| 550 | 554 |
| 551 ;; movement to the limits | 555 ;; movement to the limits |
| 552 (define-key global-map '(control home) 'beginning-of-buffer) | 556 (define-key global-map '(control home) 'beginning-of-buffer) |
| 553 (define-key global-map '(control end) 'end-of-buffer) | 557 (define-key global-map '(control end) 'end-of-buffer) |
| 554 (define-key global-map 'begin 'beginning-of-line) | 558 (define-key global-map 'begin 'beginning-of-line) |
| 555 (define-key global-map '(control begin) 'beginning-of-buffer) | 559 (define-key global-map '(control begin) 'beginning-of-buffer) |
| 556 ;; potential R6isms | 560 ;; potential R6isms |
| 557 (define-key global-map 'kp_home 'beginning-of-line) | 561 (define-key global-map 'kp-home 'beginning-of-line) |
| 558 (define-key global-map '(control kp_home) 'beginning-of-buffer) | 562 (define-key global-map '(control kp-home) 'beginning-of-buffer) |
| 559 (define-key global-map 'kp_end 'end-of-line) | 563 (define-key global-map 'kp-end 'end-of-line) |
| 560 (define-key global-map '(control kp_end) 'end-of-buffer) | 564 (define-key global-map '(control kp-end) 'end-of-buffer) |
| 561 | 565 |
| 562 ;; movement between windows | 566 ;; movement between windows |
| 563 (define-key global-map '(control tab) 'other-window) | 567 (define-key global-map '(control tab) 'other-window) |
| 564 (define-key global-map '(control shift tab) 'backward-other-window) | 568 (define-key global-map '(control shift tab) 'backward-other-window) |
| 565 | 569 |
| 567 (define-key global-map '(meta next) 'scroll-other-window) | 571 (define-key global-map '(meta next) 'scroll-other-window) |
| 568 (define-key global-map '(meta prior) 'scroll-other-window-down) | 572 (define-key global-map '(meta prior) 'scroll-other-window-down) |
| 569 (define-key global-map '(meta home) 'beginning-of-buffer-other-window) | 573 (define-key global-map '(meta home) 'beginning-of-buffer-other-window) |
| 570 (define-key global-map '(meta end) 'end-of-buffer-other-window) | 574 (define-key global-map '(meta end) 'end-of-buffer-other-window) |
| 571 ;; potential R6isms | 575 ;; potential R6isms |
| 572 (define-key global-map '(meta kp_next) 'scroll-other-window) | 576 (define-key global-map '(meta kp-next) 'scroll-other-window) |
| 573 (define-key global-map '(meta kp_prior) 'scroll-other-window-down) | 577 (define-key global-map '(meta kp-prior) 'scroll-other-window-down) |
| 574 (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) |
| 575 (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) |
| 576 | 580 |
| 577 ;; potential R6isms | 581 ;; potential R6isms |
| 578 (define-key global-map 'redo 'repeat-complex-command) | 582 (define-key global-map 'redo 'repeat-complex-command) |
| 579 (define-key global-map 'kp_insert 'overwrite-mode) | 583 (define-key global-map 'kp-insert 'overwrite-mode) |
| 580 (define-key global-map 'kp_delete 'backward-delete-char-untabify) | 584 (define-key global-map 'kp-delete 'backward-delete-char-untabify) |
| 581 | 585 |
| 582 (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 |
| 583 (define-key global-map 'kp_tab [tab]) | 587 (define-key global-map 'kp-tab [tab]) |
| 584 | 588 |
| 585 (define-key global-map 'undo 'undo) | 589 (define-key global-map 'undo 'undo) |
| 586 (define-key global-map 'help 'help-for-help) | 590 (define-key global-map 'help 'help-for-help) |
| 587 | 591 |
| 588 (define-key global-map 'kp_space 'self-insert-command) | 592 (define-key global-map 'kp-space 'self-insert-command) |
| 589 (define-key global-map 'kp_equal 'self-insert-command) | 593 (define-key global-map 'kp-equal 'self-insert-command) |
| 590 (define-key global-map 'kp_multiply 'self-insert-command) | 594 (define-key global-map 'kp-multiply 'self-insert-command) |
| 591 (define-key global-map 'kp_add 'self-insert-command) | 595 (define-key global-map 'kp-add 'self-insert-command) |
| 592 (define-key global-map 'kp_separator 'self-insert-command) | 596 (define-key global-map 'kp-separator 'self-insert-command) |
| 593 (define-key global-map 'kp_subtract 'self-insert-command) | 597 (define-key global-map 'kp-subtract 'self-insert-command) |
| 594 (define-key global-map 'kp_decimal 'self-insert-command) | 598 (define-key global-map 'kp-decimal 'self-insert-command) |
| 595 (define-key global-map 'kp_divide 'self-insert-command) | 599 (define-key global-map 'kp-divide 'self-insert-command) |
| 596 | 600 |
| 597 (define-key global-map 'kp_0 'self-insert-command) | 601 (define-key global-map 'kp-0 'self-insert-command) |
| 598 (define-key global-map 'kp_1 'self-insert-command) | 602 (define-key global-map 'kp-1 'self-insert-command) |
| 599 (define-key global-map 'kp_2 'self-insert-command) | 603 (define-key global-map 'kp-2 'self-insert-command) |
| 600 (define-key global-map 'kp_3 'self-insert-command) | 604 (define-key global-map 'kp-3 'self-insert-command) |
| 601 (define-key global-map 'kp_4 'self-insert-command) | 605 (define-key global-map 'kp-4 'self-insert-command) |
| 602 (define-key global-map 'kp_5 'self-insert-command) | 606 (define-key global-map 'kp-5 'self-insert-command) |
| 603 (define-key global-map 'kp_6 'self-insert-command) | 607 (define-key global-map 'kp-6 'self-insert-command) |
| 604 (define-key global-map 'kp_7 'self-insert-command) | 608 (define-key global-map 'kp-7 'self-insert-command) |
| 605 (define-key global-map 'kp_8 'self-insert-command) | 609 (define-key global-map 'kp-8 'self-insert-command) |
| 606 (define-key global-map 'kp_9 'self-insert-command) | 610 (define-key global-map 'kp-9 'self-insert-command) |
| 607 | 611 |
| 608 (define-key global-map 'select 'function-key-error) | 612 (define-key global-map 'select 'function-key-error) |
| 609 (define-key global-map 'print 'function-key-error) | 613 (define-key global-map 'print 'function-key-error) |
| 610 (define-key global-map 'execute 'execute-extended-command) | 614 (define-key global-map 'execute 'execute-extended-command) |
| 611 (define-key global-map 'clearline 'function-key-error) | 615 (define-key global-map 'clearline 'function-key-error) |
| 612 (define-key global-map 'insertline 'open-line) | 616 (define-key global-map 'insertline 'open-line) |
| 613 (define-key global-map 'deleteline 'kill-line) | 617 (define-key global-map 'deleteline 'kill-line) |
| 614 (define-key global-map 'insertchar 'function-key-error) | 618 (define-key global-map 'insertchar 'function-key-error) |
| 615 (define-key global-map 'deletechar 'delete-char) | 619 (define-key global-map 'deletechar 'delete-char) |
| 620 | |
| 621 ;;; keydefs.el ends here |