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

Don't bind <delete> otherwise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f093634a9dd238467a1dad0571b4dd9ec4d2d597..b12cb9dd285df4a18dc9dfcd4bda1b4feb028008 100644 (file)
--- 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 6b7bb02e9b7e3b0e4672d9e8c804f5abb3709876..b7127298e652c51ed4edc878b6aa0315b70feca5 100644 (file)
--- 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)