From ec9f475427b9039837cb9ac7ad6faff59de86a86 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 16 Jan 2001 20:25:23 +0000 Subject: [PATCH] (delete-key-deletes-forward-mode): Bind and via function-key-map. --- lisp/simple.el | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index ca700fc7185..9053b565276 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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 @@ For more details, see `delete-key-deletes-forward'." (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)) -- 2.39.5