--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/utils/delbackspace.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,92 @@
+;;; delbackspace.el --- rebind backspace and delete to be correct
+
+;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1996 Ben Wing.
+;;
+;; Author: Tibor Polgar??
+;; Maintainer: Ben Wing <wing@666.com>
+;; Keywords: terminals
+;;
+
+;;; Synched up with: Not in FSF.
+;;; #### should port FSF pc-bindings.el and nuke this.
+
+;; this is a hack that will have to do until function-key-map is implemented
+(defconst delbackspace-backspace
+  (if (not (eq 'tty (device-type (selected-device))))
+      'backspace
+    "\C-h"))
+
+(global-unset-key delbackspace-backspace)
+(local-unset-key delbackspace-backspace)
+(global-unset-key [(control delete)])
+(global-unset-key [(meta delete)])
+(global-unset-key [(meta shift delete)])
+(global-unset-key [(control backspace)])
+(global-unset-key [(meta backspace)])
+(global-unset-key [(meta shift backspace)])
+
+(if (eq 'tty (device-type (selected-device)))
+    (progn
+      (setq help-char '(meta h))
+      (define-key global-map "\M-h" 'help-command)))
+
+(define-key key-translation-map 'delete 'delbackspace-compute-delete-value)
+(define-key global-map 'intercepted_delete 'delete-char)
+
+(defun delbackspace-compute-delete-value (prompt)
+  (let ((orig-binding (key-binding 'delete)))
+    (if (memq orig-binding '(delete-backward-char
+			     backward-delete-char
+			     backward-delete-char-untabify
+			     c-electric-delete
+			     c++-electric-delete
+			     cperl-electric-backspace))
+	[intercepted_delete]
+      [delete])))
+
+(define-key key-translation-map delbackspace-backspace [delete])
+
+;; (ctrl) backspace to beginning of line
+(global-set-key [(control backspace)] 'backward-kill-line)
+
+;; (meta) backspace word before cursor
+(define-key key-translation-map [(meta backspace)]
+  [intercepted_meta_backspace])
+(define-key global-map 'intercepted_meta_backspace 'backward-kill-word)
+
+;; (alt) backspace sentence before cursor; backspace sexp before cursor
+;; in language modes
+(define-key key-translation-map [(alt backspace)]
+  [intercepted_alt_backspace])
+(define-key global-map 'intercepted_alt_backspace 'backward-kill-sentence)
+(mapcar #'(lambda (map)
+	    (define-key map [(alt backspace)] 'backward-kill-sexp))
+	(list
+	 c-mode-map c++-mode-map objc-mode-map java-mode-map
+	 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
+
+;; (meta shift) backspace paragraph before cursor
+(global-set-key [(meta shift backspace)] 'backward-kill-paragraph)
+
+;; (alt) delete rest of line  (erase EOF)
+(global-set-key [(control delete)] 'kill-line)
+
+;; (meta) delete word before cursor
+(define-key key-translation-map [(meta delete)]
+  [intercepted_meta_delete])
+(define-key global-map 'intercepted_meta_delete 'kill-word)
+
+;; (alt) delete sentence forward; delete sexp forward
+;; in language modes
+(define-key key-translation-map [(alt delete)]
+  [intercepted_alt_delete])
+(define-key global-map 'intercepted_alt_delete 'kill-sentence)
+(mapcar #'(lambda (map)
+	    (define-key map [(alt delete)] 'kill-sexp))
+	(list
+	 c-mode-map c++-mode-map objc-mode-map java-mode-map
+	 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
+
+;; (meta shift) delete next paragraph
+(global-set-key [(meta shift delete)] 'kill-paragraph)