diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-06-27 21:01:11 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-06-27 21:01:11 -0400 |
| commit | b92296739624ac4928d7ed90155b4ee91625fea4 (patch) | |
| tree | 987fb8c53b7d247c228c6910e2315b5183233dee /lisp/bindings.el | |
| parent | bbc803b0bc876ed1f548cdbfc20fd819a430f0ac (diff) | |
| download | emacs-b92296739624ac4928d7ed90155b4ee91625fea4.tar.gz | |
* 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.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index f9d3e75cf6e..4eab37edf46 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -822,6 +822,9 @@ if `inhibit-field-text-motion' is non-nil." (setq i (1+ i)))) (define-key global-map [?\C-\M--] 'negative-argument) +(define-key global-map "\177" 'delete-backward-char) +(define-key global-map "\C-d" 'delete-forward-char) + (define-key global-map "\C-k" 'kill-line) (define-key global-map "\C-w" 'kill-region) (define-key esc-map "w" 'kill-ring-save) |