Re: Calc bug
On 11 Apr 2001, Steve Youngs wrote:
|--==> "DED" == Daniel E Doherty
<ded03(a)swbell.net> writes:
DED> Under Xemacs, the numeric keypad does not work in calc.
DED> Any change of getting that changed?
I think there are quite a few keymap problems with calc under
XEmacs.
I don't have the time to look into it, but perhaps somebody here would
like to have a go at XEmacserizing Calc's keymap?
A calculater mode that doesn't support the keypad is really strange I
think, but until someone fixes it you can always fill your .emacs/init.el:
(I copied this from Robin Socha...)
; making the numpad work by Glynn Clements
(define-key key-translation-map [kp-0] [?0])
(define-key key-translation-map [kp-1] [?1])
(define-key key-translation-map [kp-2] [?2])
(define-key key-translation-map [kp-3] [?3])
(define-key key-translation-map [kp-4] [?4])
(define-key key-translation-map [kp-5] [?5])
(define-key key-translation-map [kp-6] [?6])
(define-key key-translation-map [kp-7] [?7])
(define-key key-translation-map [kp-8] [?8])
(define-key key-translation-map [kp-9] [?9])
(define-key key-translation-map [kp-decimal] [?.])
(define-key key-translation-map [kp-divide] [?/])
(define-key key-translation-map [kp-multiply] [?*])
(define-key key-translation-map [kp-add] [?+])
(define-key key-translation-map [kp-subtract] [?-])
(define-key key-translation-map [kp-enter] [?\r])
(define-key key-translation-map [kp-left] [left])
(define-key key-translation-map [kp-right] [right])
(define-key key-translation-map [kp-up] [up])
(define-key key-translation-map [kp-down] [down])
(define-key key-translation-map [kp-prior] [prior])
(define-key key-translation-map [kp-next] [next])
(define-key key-translation-map [kp-home] [home])
(define-key key-translation-map [kp-end] [end])
(define-key key-translation-map [kp-insert] [insert])
(define-key key-translation-map [kp-delet] [delete])
(define-key key-translation-map [kp-0] [?0])
(define-key key-translation-map [kp-1] [?1])
(define-key key-translation-map [kp-2] [?2])
(define-key key-translation-map [kp-3] [?3])
(define-key key-translation-map [kp-4] [?4])
(define-key key-translation-map [kp-5] [?5])
(define-key key-translation-map [kp-6] [?6])
(define-key key-translation-map [kp-7] [?7])
(define-key key-translation-map [kp-8] [?8])
(define-key key-translation-map [kp-9] [?9])
(define-key key-translation-map [kp-decimal] [?.])
(define-key key-translation-map [kp-divide] [?/])
(define-key key-translation-map [kp-multiply] [?*])
(define-key key-translation-map [kp-add] [?+])
(define-key key-translation-map [kp-subtract] [?-])
(define-key key-translation-map [kp-enter] [?\r])
(define-key key-translation-map [kp-left] [left])
(define-key key-translation-map [kp-right] [right])
(define-key key-translation-map [kp-up] [up])
(define-key key-translation-map [kp-down] [down])
(define-key key-translation-map [kp-prior] [prior])
(define-key key-translation-map [kp-next] [next])
(define-key key-translation-map [kp-home] [home])
(define-key key-translation-map [kp-end] [end])
(define-key key-translation-map [kp-insert] [insert])
(define-key key-translation-map [kp-delet] [delete])
-- René