Bind <backspace> and <delete> via function-key-map.

Don't bind <delete> otherwise.

2 files changed, 11 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f093634a9dd..b12cb9dd285 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,6 +7,12 @@
 
 2001-01-16  Gerd Moellmann  <gerd@gnu.org>
 
+        * bindings.el: Bind <backspace> and <delete> via function-key-map.
+        Don't bind <delete> otherwise.
+
+        * simple.el (delete-key-deletes-forward-mode): Bind <backspace>
+        and <delete> via function-key-map.
+
         * textmodes/flyspell.el (mail-mode-flyspell-verify): Check in
         Subject line only if point is after the `Subject:'.
 
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 6b7bb02e9b7..b7127298e65 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -1,6 +1,6 @@
 ;;; bindings.el --- define standard key bindings and some variables.
 
-;; Copyright (C) 1985,86,87,92,93,94,95,96,99,2000
+;; Copyright (C) 1985,86,87,92,93,94,95,96,99,2000, 2001
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -619,7 +619,8 @@ language you are using."
 (define-key global-map [menu] 'execute-extended-command)
 (define-key global-map [find] 'search-forward)
 
-(define-key global-map [delete] 'backward-delete-char)
+;; Don't do this.  We define <delete> in function-key-map instead.
+;(define-key global-map [delete] 'backward-delete-char)
 
 ;; natural bindings for terminal keycaps --- defined in X keysym order
 (define-key global-map [home]           'beginning-of-line)
@@ -731,6 +732,8 @@ language you are using."
 (define-key function-key-map [kp-begin] [begin])
 (define-key function-key-map [kp-insert] [insert])
 (define-key function-key-map [kp-delete] [delete])
+(define-key function-key-map [backspace] [?\C-?])
+(define-key function-key-map [delete] [?\C-?])
 
 (define-key global-map [mouse-movement] 'ignore)