Mercurial > emacs
comparison lisp/bindings.el @ 111048:3c2bab829253
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.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 19 Oct 2010 11:43:27 -0400 |
| parents | 280c8ae2476d |
| children | bd12e9f7bf79 |
comparison
equal
deleted
inserted
replaced
| 111047:1e7d8f405703 | 111048:3c2bab829253 |
|---|---|
| 822 (define-key esc-map (read (format "[?\\C-%c]" i)) 'digit-argument) | 822 (define-key esc-map (read (format "[?\\C-%c]" i)) 'digit-argument) |
| 823 (setq i (1+ i)))) | 823 (setq i (1+ i)))) |
| 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) |
| 831 (define-key esc-map "w" 'kill-ring-save) | 831 (define-key esc-map "w" 'kill-ring-save) |
| 832 (define-key esc-map "\C-w" 'append-next-kill) | 832 (define-key esc-map "\C-w" 'append-next-kill) |
| 931 ;; treated specially in the event loop. | 931 ;; treated specially in the event loop. |
| 932 ;; (define-key global-map [stop] 'keyboard-quit) ; Sun | 932 ;; (define-key global-map [stop] 'keyboard-quit) ; Sun |
| 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) |
| 940 ;; (define-key global-map [f3] 'function-key-error) | 940 ;; (define-key global-map [f3] 'function-key-error) |
| 941 ;; (define-key global-map [f4] 'function-key-error) | 941 ;; (define-key global-map [f4] 'function-key-error) |