Mercurial > emacs

diff lisp/bindings.el @ 109062:d8144fe7f3f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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
line wrap: on
line diff
--- a/lisp/bindings.el	Sun Jun 27 14:28:51 2010 -0700
+++ b/lisp/bindings.el	Sun Jun 27 21:01:11 2010 -0400
@@ -822,6 +822,9 @@
     (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)