mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

Decouple C-d and delete, so that the former does not delete the region.

Browse Source 
* 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.
This commit is contained in:
Chong Yidong 2010-10-19 11:43:27 -04:00
parent ca3fa30248
commit b8a47412d3
5 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2010-10-19 Chong Yidong <cyd@stupidchicken.com>
* bindings.el (global-map): Bind C-d to delete-char and deletechar
to delete-forward-char.
* simple.el (normal-erase-is-backspace-mode): Remap delete to
deletechar, and hence delete-forward-char.
2010-10-19 Stefan Monnier <monnier@iro.umontreal.ca>
* repeat.el (repeat): Use read-key (bug#6256).

4
lisp/bindings.el
View File

@ -824,7 +824,7 @@ if `inhibit-field-text-motion' is non-nil."
(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-d" 'delete-char)
(define-key global-map "\C-k" 'kill-line)
(define-key global-map "\C-w" 'kill-region)
@ -933,7 +933,7 @@ if `inhibit-field-text-motion' is non-nil."
;; (define-key global-map [clearline] 'function-key-error)
(define-key global-map [insertline] 'open-line)
(define-key global-map [deleteline] 'kill-line)
(define-key global-map [deletechar] 'delete-char)
(define-key global-map [deletechar] 'delete-forward-char)
;; (define-key global-map [backtab] 'function-key-error)
;; (define-key global-map [f1] 'function-key-error)
;; (define-key global-map [f2] 'function-key-error)

2
lisp/simple.el
View File

@ -6628,7 +6628,7 @@ See also `normal-erase-is-backspace'."
(if enabled
(progn
(define-key local-function-key-map [delete] [?\C-d])
(define-key local-function-key-map [delete] [deletechar])
(define-key local-function-key-map [kp-delete] [?\C-d])
(define-key local-function-key-map [backspace] [?\C-?])
(dolist (b bindings)

4
src/ChangeLog
View File

@ -1,3 +1,7 @@
2010-10-19 Chong Yidong <cyd@stupidchicken.com>
* cmds.c (Fdelete_char): Doc fix.
2010-10-19 Ken Brown <kbrown@cornell.edu>
* s/cygwin.h (SIGNALS_VIA_CHARACTERS): New define (bug#7225).

2
src/cmds.c
View File

@ -230,7 +230,7 @@ Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
Interactively, N is the prefix arg, and KILLFLAG is set if
N was explicitly specified.
The command `delete-forward' is preferable for interactive use. */)
The command `delete-forward-char' is preferable for interactive use. */)
(Lisp_Object n, Lisp_Object killflag)
{
EMACS_INT pos;