Mercurial > hg > xemacs-beta
comparison lisp/keydefs.el @ 408:501cfd01ee6d r21-2-34
Import from CVS: tag r21-2-34
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:18:11 +0200 |
| parents | 2f8bb876ab1d |
| children | 697ef44129c6 |
comparison
equal
deleted
inserted
replaced
| 407:ed6218a7d4d3 | 408:501cfd01ee6d |
|---|---|
| 383 | 383 |
| 384 ;; Default binding of "Backspace" is no longer the same as delete. | 384 ;; Default binding of "Backspace" is no longer the same as delete. |
| 385 ;; Default binding of "Control-h" is help. | 385 ;; Default binding of "Control-h" is help. |
| 386 (define-key global-map 'backspace 'delete-backward-char) | 386 (define-key global-map 'backspace 'delete-backward-char) |
| 387 (define-key global-map '(meta backspace) 'backward-kill-word) | 387 (define-key global-map '(meta backspace) 'backward-kill-word) |
| 388 (define-key global-map [(control x) backspace] 'backward-kill-sentence) | |
| 388 | 389 |
| 389 (define-key global-map "\M-\C-z" 'activate-region) | 390 (define-key global-map "\M-\C-z" 'activate-region) |
| 390 | 391 |
| 391 ;; FSFmacs macros.c | 392 ;; FSFmacs macros.c |
| 392 | 393 |
| 547 (define-key global-map '(control kp-right) 'forward-word) | 548 (define-key global-map '(control kp-right) 'forward-word) |
| 548 (define-key global-map '(control kp-up) 'backward-block-of-lines) | 549 (define-key global-map '(control kp-up) 'backward-block-of-lines) |
| 549 (define-key global-map '(control kp-down) 'forward-block-of-lines) | 550 (define-key global-map '(control kp-down) 'forward-block-of-lines) |
| 550 | 551 |
| 551 ;; context-sensitive movement | 552 ;; context-sensitive movement |
| 552 ;; (meta control left/right) should be reserved for bindings that | |
| 553 ;; switch between buffers/web pages/etc. | |
| 554 (define-key global-map '(meta left) 'backward-sexp) | 553 (define-key global-map '(meta left) 'backward-sexp) |
| 555 (define-key global-map '(meta right) 'forward-sexp) | 554 (define-key global-map '(meta right) 'forward-sexp) |
| 556 (define-key global-map '(meta up) 'backward-sentence) | 555 (define-key global-map '(meta up) 'backward-paragraph) |
| 557 (define-key global-map '(meta down) 'forward-sentence) | 556 (define-key global-map '(meta down) 'forward-paragraph) |
| 558 (define-key global-map '(meta control up) 'backward-paragraph) | 557 (define-key global-map '(meta control left) 'backward-sentence) |
| 559 (define-key global-map '(meta control down) 'forward-paragraph) | 558 (define-key global-map '(meta control right) 'forward-sentence) |
| 559 (define-key global-map '(meta control up) 'scroll-down-one) | |
| 560 (define-key global-map '(meta control down) 'scroll-up-one) | |
| 560 (define-key global-map '(meta control home) 'beginning-of-defun) | 561 (define-key global-map '(meta control home) 'beginning-of-defun) |
| 561 (define-key global-map '(meta control end) 'end-of-defun) | 562 (define-key global-map '(meta control end) 'end-of-defun) |
| 562 (define-key global-map '(meta control prior) 'backward-page) | 563 (define-key global-map '(meta control prior) 'backward-page) |
| 563 (define-key global-map '(meta control next) 'forward-page) | 564 (define-key global-map '(meta control next) 'forward-page) |
| 564 (define-key global-map '(meta kp-left) 'backward-sexp) | 565 (define-key global-map '(meta kp-left) 'backward-sexp) |
| 565 (define-key global-map '(meta kp-right) 'forward-sexp) | 566 (define-key global-map '(meta kp-right) 'forward-sexp) |
| 566 (define-key global-map '(meta kp-up) 'backward-sentence) | 567 (define-key global-map '(meta kp-up) 'backward-paragraph) |
| 567 (define-key global-map '(meta kp-down) 'forward-sentence) | 568 (define-key global-map '(meta kp-down) 'forward-paragraph) |
| 568 (define-key global-map '(meta control kp-up) 'backward-paragraph) | 569 (define-key global-map '(meta control kp-left) 'backward-sentence) |
| 569 (define-key global-map '(meta control kp-down) 'forward-paragraph) | 570 (define-key global-map '(meta control kp-right) 'forward-sentence) |
| 571 (define-key global-map '(meta control kp-up) 'scroll-down-one) | |
| 572 (define-key global-map '(meta control kp-down) 'scroll-up-one) | |
| 570 (define-key global-map '(meta control kp-home) 'beginning-of-defun) | 573 (define-key global-map '(meta control kp-home) 'beginning-of-defun) |
| 571 (define-key global-map '(meta control kp-end) 'end-of-defun) | 574 (define-key global-map '(meta control kp-end) 'end-of-defun) |
| 572 (define-key global-map '(meta control kp-prior) 'backward-page) | 575 (define-key global-map '(meta control kp-prior) 'backward-page) |
| 573 (define-key global-map '(meta control kp-next) 'forward-page) | 576 (define-key global-map '(meta control kp-next) 'forward-page) |
| 574 | 577 |