From 9d4850e50cf9809dcdd5601899191e99992f8a81 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 16 Jan 2001 20:27:08 +0000 Subject: [PATCH] Bind and via function-key-map. Don't bind otherwise. --- lisp/ChangeLog | 6 ++++++ lisp/bindings.el | 7 +++++-- 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 + * bindings.el: Bind and via function-key-map. + Don't bind otherwise. + + * simple.el (delete-key-deletes-forward-mode): Bind + and 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 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) -- 2.39.2