mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
Don't bind <delete> otherwise.
This commit is contained in:
Gerd Moellmann 2001-01-16 20:27:08 +00:00
parent ec9f475427
commit 9d4850e50c
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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:'.

7
lisp/bindings.el
View File

@ -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)