Commit 4a9c6865 authored by Juri Linkov's avatar Juri Linkov
Browse files

* lisp/simple.el <Keypad support>: Remove key bindings duplicated with bindings.el.

Fixes: debbugs:14397
parent ce030451
......@@ -5,6 +5,11 @@
(python-pdbtrack-set-tracked-buffer): Fix logic for remote
files. Thanks to Russell Sim. (Bug#15378)
2013-12-13 Juri Linkov <juri@jurta.org>
* simple.el <Keypad support>: Remove key bindings duplicated
with bindings.el. (Bug#14397)
2013-12-13 Juri Linkov <juri@jurta.org>
* comint.el (comint-mode-map): Replace `delete-char' with
......
......@@ -1069,7 +1069,7 @@ if `inhibit-field-text-motion' is non-nil."
(kp-enter enter) (kp-decimal ?.)
(kp-0 ?0) (kp-1 ?1) (kp-2 ?2) (kp-3 ?3) (kp-4 ?4)
(kp-5 ?5) (kp-6 ?6) (kp-7 ?7) (kp-8 ?8) (kp-9 ?9)
(kp-add +) (kp-subtract -) (kp-multiply *) (kp-divide /))))
(kp-add ?+) (kp-subtract ?-) (kp-multiply ?*) (kp-divide ?/))))
(dolist (pair keys)
(dolist (mod modifiers)
(define-key function-key-map
......
......@@ -7128,17 +7128,11 @@ PREFIX is the string that represents this modifier in an event type symbol."
(normal (nth 1 keypad-normal)))
(put keypad 'ascii-character normal)
(define-key function-key-map (vector keypad) (vector normal))))
'((kp-0 ?0) (kp-1 ?1) (kp-2 ?2) (kp-3 ?3) (kp-4 ?4)
(kp-5 ?5) (kp-6 ?6) (kp-7 ?7) (kp-8 ?8) (kp-9 ?9)
(kp-space ?\s)
;; See also kp-keys bound in bindings.el.
'((kp-space ?\s)
(kp-tab ?\t)
(kp-enter ?\r)
(kp-multiply ?*)
(kp-add ?+)
(kp-separator ?,)
(kp-subtract ?-)
(kp-decimal ?.)
(kp-divide ?/)
(kp-equal ?=)
;; Do the same for various keys that are represented as symbols under
;; GUIs but naturally correspond to characters.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment