diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-08-01 15:27:36 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-08-01 15:27:36 +0000 |
| commit | 9761cd3ae6e1ab91b3bbf35c6349c54a6bd8a06d (patch) | |
| tree | 904a33677ac606ecf4b73405e9e0b00b09a62bb0 /lisp/bindings.el | |
| parent | 7ca0c5bc001d288709288b7ca01099bf9911852d (diff) | |
| download | emacs-9761cd3ae6e1ab91b3bbf35c6349c54a6bd8a06d.tar.gz | |
Bind shifted and control-shifted kp-* keys to the
corresponding non-kp keys. Suggested by Stephen Gildea <gildea@alum.mit.edu>.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index c6cbfe767e0..1073c0cc6c3 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -737,6 +737,38 @@ language you are using." (define-key function-key-map [backspace] [?\C-?]) (define-key function-key-map [delete] [?\C-?]) (define-key function-key-map [kp-delete] [?\C-?]) +(define-key function-key-map [S-kp-end] [S-end]) +(define-key function-key-map [S-kp-down] [S-down]) +(define-key function-key-map [S-kp-next] [S-next]) +(define-key function-key-map [S-kp-left] [S-left]) +(define-key function-key-map [S-kp-right] [S-right]) +(define-key function-key-map [S-kp-home] [S-home]) +(define-key function-key-map [S-kp-up] [S-up]) +(define-key function-key-map [S-kp-prior] [S-prior]) +(define-key function-key-map [C-S-kp-end] [C-S-end]) +(define-key function-key-map [C-S-kp-down] [C-S-down]) +(define-key function-key-map [C-S-kp-next] [C-S-next]) +(define-key function-key-map [C-S-kp-left] [C-S-left]) +(define-key function-key-map [C-S-kp-right] [C-S-right]) +(define-key function-key-map [C-S-kp-home] [C-S-home]) +(define-key function-key-map [C-S-kp-up] [C-S-up]) +(define-key function-key-map [C-S-kp-prior] [C-S-prior]) +(define-key function-key-map [S-kp-1] [S-end]) +(define-key function-key-map [S-kp-2] [S-down]) +(define-key function-key-map [S-kp-3] [S-next]) +(define-key function-key-map [S-kp-4] [S-left]) +(define-key function-key-map [S-kp-6] [S-right]) +(define-key function-key-map [S-kp-7] [S-home]) +(define-key function-key-map [S-kp-8] [S-up]) +(define-key function-key-map [S-kp-9] [S-prior]) +(define-key function-key-map [C-S-kp-1] [C-S-end]) +(define-key function-key-map [C-S-kp-2] [C-S-down]) +(define-key function-key-map [C-S-kp-3] [C-S-next]) +(define-key function-key-map [C-S-kp-4] [C-S-left]) +(define-key function-key-map [C-S-kp-6] [C-S-right]) +(define-key function-key-map [C-S-kp-7] [C-S-home]) +(define-key function-key-map [C-S-kp-8] [C-S-up]) +(define-key function-key-map [C-S-kp-9] [C-S-prior]) (define-key global-map [mouse-movement] 'ignore) |