diff options
| author | Gerd Moellmann | 2001-01-31 15:05:25 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-01-31 15:05:25 +0000 |
| commit | be4f1e412ab158ba93ff2f3d514159bb812231a2 (patch) | |
| tree | d09064fbee4abec28c1bbd74a8f24297c68efeae | |
| parent | 822e6123ab813077dccd2f130350521bcdf749d1 (diff) | |
| download | emacs-be4f1e412ab158ba93ff2f3d514159bb812231a2.tar.gz emacs-be4f1e412ab158ba93ff2f3d514159bb812231a2.zip | |
(delete-key-deletes-forward-mode): Treat `kp-delete'
like `delete'.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 092dfad5f16..9078e6aa21e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -4067,8 +4067,10 @@ For more details, see `delete-key-deletes-forward'." | |||
| 4067 | (if delete-key-deletes-forward | 4067 | (if delete-key-deletes-forward |
| 4068 | (progn | 4068 | (progn |
| 4069 | (define-key function-key-map [delete] [?\C-d]) | 4069 | (define-key function-key-map [delete] [?\C-d]) |
| 4070 | (define-key function-key-map [kp-delete] [?\C-d]) | ||
| 4070 | (define-key function-key-map [backspace] [?\C-?])) | 4071 | (define-key function-key-map [backspace] [?\C-?])) |
| 4071 | (define-key function-key-map [delete] [?\C-?]) | 4072 | (define-key function-key-map [delete] [?\C-?]) |
| 4073 | (define-key function-key-map [kp-delete] [?\C-?]) | ||
| 4072 | (define-key function-key-map [backspace] [?\C-?])) | 4074 | (define-key function-key-map [backspace] [?\C-?])) |
| 4073 | 4075 | ||
| 4074 | (dolist (binding bindings) | 4076 | (dolist (binding bindings) |