Mercurial > emacs
changeset 35346:382fba2f10a6
(delete-key-deletes-forward-mode): Bind <backspace>
and <delete> via function-key-map.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 16 Jan 2001 20:25:23 +0000 |
| parents | 4c6a463f9575 |
| children | 696e854064c5 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 13 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Jan 16 17:27:20 2001 +0000 +++ b/lisp/simple.el Tue Jan 16 20:25:23 2001 +0000 @@ -1,6 +1,6 @@ ;;; simple.el --- basic editing commands for Emacs -;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 99, 2000 +;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 99, 2000, 2001 ;; Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -4044,14 +4044,20 @@ (cond ((or (memq window-system '(x w32 mac pc)) (memq system-type '(ms-dos windows-nt))) (let ((bindings - `(([delete] [backspace] delete-char delete-backward-char) - ([C-delete] [C-backspace] kill-word backward-kill-word) + `(([C-delete] [C-backspace] kill-word backward-kill-word) ([M-delete] [M-backspace] kill-word backward-kill-word) ([C-M-delete] [C-M-backspace] kill-sexp backward-kill-sexp) - (,esc-map [C-delete] [C-backspace] kill-sexp - backward-kill-sexp) - (,isearch-mode-map [backspace] [delete] isearch-delete-char - isearch-other-control-char)))) + (,esc-map + [C-delete] [C-backspace] + kill-sexp backward-kill-sexp)))) + + (if delete-key-deletes-forward + (progn + (define-key function-key-map [delete] [?\C-d]) + (define-key function-key-map [backspace] [?\C-?])) + (define-key function-key-map [delete] [?\C-?]) + (define-key function-key-map [backspace] [?\C-?])) + (dolist (binding bindings) (let ((map global-map)) (when (keymapp (car binding))