diff options
| author | Chong Yidong | 2010-10-19 11:43:27 -0400 |
|---|---|---|
| committer | Chong Yidong | 2010-10-19 11:43:27 -0400 |
| commit | b8a47412d30e73a12c1919d0109f9272096e9ce6 (patch) | |
| tree | 19176307be6aa97e800de77ec195da34514adc19 /lisp/bindings.el | |
| parent | ca3fa30248b923c17c021c0fcdb945271d14e8c2 (diff) | |
| download | emacs-b8a47412d30e73a12c1919d0109f9272096e9ce6.tar.gz emacs-b8a47412d30e73a12c1919d0109f9272096e9ce6.zip | |
Decouple C-d and delete, so that the former does not delete the region.
* lisp/bindings.el (global-map): Bind C-d to delete-char and deletechar
to delete-forward-char.
* lisp/simple.el (normal-erase-is-backspace-mode): Remap delete to
deletechar, and hence delete-forward-char.
* src/cmds.c (Fdelete_char): Doc fix.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index d19db2c779e..9c802e53a56 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -824,7 +824,7 @@ if `inhibit-field-text-motion' is non-nil." | |||
| 824 | (define-key global-map [?\C-\M--] 'negative-argument) | 824 | (define-key global-map [?\C-\M--] 'negative-argument) |
| 825 | 825 | ||
| 826 | (define-key global-map "\177" 'delete-backward-char) | 826 | (define-key global-map "\177" 'delete-backward-char) |
| 827 | (define-key global-map "\C-d" 'delete-forward-char) | 827 | (define-key global-map "\C-d" 'delete-char) |
| 828 | 828 | ||
| 829 | (define-key global-map "\C-k" 'kill-line) | 829 | (define-key global-map "\C-k" 'kill-line) |
| 830 | (define-key global-map "\C-w" 'kill-region) | 830 | (define-key global-map "\C-w" 'kill-region) |
| @@ -933,7 +933,7 @@ if `inhibit-field-text-motion' is non-nil." | |||
| 933 | ;; (define-key global-map [clearline] 'function-key-error) | 933 | ;; (define-key global-map [clearline] 'function-key-error) |
| 934 | (define-key global-map [insertline] 'open-line) | 934 | (define-key global-map [insertline] 'open-line) |
| 935 | (define-key global-map [deleteline] 'kill-line) | 935 | (define-key global-map [deleteline] 'kill-line) |
| 936 | (define-key global-map [deletechar] 'delete-char) | 936 | (define-key global-map [deletechar] 'delete-forward-char) |
| 937 | ;; (define-key global-map [backtab] 'function-key-error) | 937 | ;; (define-key global-map [backtab] 'function-key-error) |
| 938 | ;; (define-key global-map [f1] 'function-key-error) | 938 | ;; (define-key global-map [f1] 'function-key-error) |
| 939 | ;; (define-key global-map [f2] 'function-key-error) | 939 | ;; (define-key global-map [f2] 'function-key-error) |