Mercurial > emacs
comparison lisp/bindings.el @ 51101:821f85e23a1f
* simple.el (kill-whole-line): New function.
* bindings.el (global-map): Bind it.
| author | Kai Großjohann <kgrossjo@eu.uu.net> |
|---|---|
| date | Mon, 19 May 2003 15:47:14 +0000 |
| parents | e5f72e7c4f4c |
| children | bae989c94b95 |
comparison
equal
deleted
inserted
replaced
| 51100:79e27b3ef7ef | 51101:821f85e23a1f |
|---|---|
| 741 | 741 |
| 742 ;; Don't do this. We define <delete> in function-key-map instead. | 742 ;; Don't do this. We define <delete> in function-key-map instead. |
| 743 ;(define-key global-map [delete] 'backward-delete-char) | 743 ;(define-key global-map [delete] 'backward-delete-char) |
| 744 | 744 |
| 745 ;; natural bindings for terminal keycaps --- defined in X keysym order | 745 ;; natural bindings for terminal keycaps --- defined in X keysym order |
| 746 (define-key global-map [S-backspace] 'kill-whole-line) | |
| 746 (define-key global-map [home] 'beginning-of-line) | 747 (define-key global-map [home] 'beginning-of-line) |
| 747 (define-key global-map [C-home] 'beginning-of-buffer) | 748 (define-key global-map [C-home] 'beginning-of-buffer) |
| 748 (define-key global-map [M-home] 'beginning-of-buffer-other-window) | 749 (define-key global-map [M-home] 'beginning-of-buffer-other-window) |
| 749 (define-key global-map [left] 'backward-char) | 750 (define-key global-map [left] 'backward-char) |
| 750 (define-key global-map [up] 'previous-line) | 751 (define-key global-map [up] 'previous-line) |