Mercurial > emacs
comparison lisp/bindings.el @ 109062:d8144fe7f3f8
* bindings.el (global-map): Bind delete and DEL, the former to
delete-forward-char.
* mouse.el (mouse-region-delete-keys): Deleted.
(mouse-show-mark): Simplify.
* simple.el (delete-active-region): New option.
(delete-backward-char): Implement in Lisp.
(delete-forward-char): New command.
* src/cmds.c (Fdelete_backward_char): Move into Lisp.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 27 Jun 2010 21:01:11 -0400 |
| parents | 8aaae2681a62 |
| children | df8e0cd18128 |
comparison
equal
deleted
inserted
replaced
| 109061:c05c5a981dd9 | 109062:d8144fe7f3f8 |
|---|---|
| 819 (let ((i ?0)) | 819 (let ((i ?0)) |
| 820 (while (<= i ?9) | 820 (while (<= i ?9) |
| 821 (define-key esc-map (read (format "[?\\C-%c]" i)) 'digit-argument) | 821 (define-key esc-map (read (format "[?\\C-%c]" i)) 'digit-argument) |
| 822 (setq i (1+ i)))) | 822 (setq i (1+ i)))) |
| 823 (define-key global-map [?\C-\M--] 'negative-argument) | 823 (define-key global-map [?\C-\M--] 'negative-argument) |
| 824 | |
| 825 (define-key global-map "\177" 'delete-backward-char) | |
| 826 (define-key global-map "\C-d" 'delete-forward-char) | |
| 824 | 827 |
| 825 (define-key global-map "\C-k" 'kill-line) | 828 (define-key global-map "\C-k" 'kill-line) |
| 826 (define-key global-map "\C-w" 'kill-region) | 829 (define-key global-map "\C-w" 'kill-region) |
| 827 (define-key esc-map "w" 'kill-ring-save) | 830 (define-key esc-map "w" 'kill-ring-save) |
| 828 (define-key esc-map "\C-w" 'append-next-kill) | 831 (define-key esc-map "\C-w" 'append-next-kill) |