bug#14397: 24.3; <C-kp-1> and <M-kp-1> undefined

[Nicolas Richard]

>From emacs -Q, if I press control and the key 1 on the keypad, I see
"<C-kp-1> is undefined" in the echo area. I expected that to start an
digit-argument, just as hitting C-1 does.

Same thing is true with Meta instead of Control.

Why I use the keypad : on my belgian/french azerty keyboards, I need to
hold shift in order to produce numbers from the second line of the
keyboard ; I usually prefer to move my hand to the keypad.

The following snippet helped me solve this problem :
(dotimes (i 10)                         ; for all keys
  (dolist (prefix (list "M" "C"))       ; for both modifiers
    (global-set-key
     (read (format "[%s-kp-%s]" prefix i))
     'digit-argument)
    (put 
     (read (format "%s-kp-%s" prefix i))
     'ascii-character
     (+ ?0 i))))

(Binding [C-kp-1] to 'digit-argument isn't enough and produces an error.
The property ascii-character is looked up by digit-argument.)

Unfortunately the above code won't make M-kp-1 work in my terminal
session, but I guess that's not an emacs problem.

In GNU Emacs 24.3.1 (i686-pc-linux-gnu, X toolkit, Xaw scroll bars)
 of 2013-04-16 on LDLC-portable
Windowing system distributor `The X.Org Foundation', version 11.0.11103000
System Description:     Ubuntu 12.04.2 LTS

Configured using:
 `configure '--with-x-toolkit=lucid''

Important settings:
  value of $LANG: fr_BE.UTF-8
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Org

Minor modes in effect:
  diff-auto-refine-mode: t
  org-indent-mode: t
  TeX-PDF-mode: t
  shell-dirtrack-mode: t
  show-paren-mode: t
  recentf-mode: t
  display-time-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  auto-fill-function: org-auto-fill-function
  visual-line-mode: t
  transient-mark-mode: t

Recent input:
M-f M-f M-f M-f M-f C-b C-SPC C-b \ D C-d SPC C-f C-f 
C-f C-d \ D SPC C-x C-s C-M-s d C-n C-n C-s C-s C-s 
C-n C-p C-p M-< C-s d x C-s C-s C-s C-n C-p C-p C-p 
C-a C-n M-< M-% : = <return> \ c o l o n e q q <return> 
y , y y $ $ C-g C-g C-/ C-/ C-/ SPC M-< M-% <return> 
y y e SPC <kp-4> <backspace> <return> , y y , y y y 
y y y y y y y y y C-n C-n C-x C-s C-s I n SPC b o t 
h C-s C-n C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-M-SPC C-x 
C-x C-f C-c C-e <return> <backspace> C-M-b M-D <return> 
C-n M-^ C-c C-q C-e C-x C-s C-n C-n C-h P s m a <tab> 
<tab> p <tab> <tab> <return> C-x o q C-n C-p C-l C-x 
C-s C-n C-p C-n C-n C-p C-n C-n C-n C-n C-n C-n <down> 
<up> C-a C-k C-d C-x C-s C-p C-p C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-p C-p C-p 
C-x C-s C-n C-n C-n C-p C-p C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-c a a <down> <down> <down> <down> <down> 
<down> <down> <down> <up> <down> <down> <down> <up> 
<up> <up> <tab> C-x C-l C o m m i <return> <down> <down> 
<tab> <down> <down> <up> <tab> C-c C-a f E <down> <up> 
<up> <down> g C-c C-g C-g M-< w g <down> <down> <down> 
<down> E q C-x b C-g C-u C-x C-z C-g M-x r e p o r 
t SPC e m <tab> <tab> <return>

Recent messages:
Mark set
/home/youngfrog/mesnotes/ulb/CE/data/e8/b3baed-f908-4615-a1a6-d48263143944/
Cleaning up the recentf list...done (0 removed)
Invalid face reference: nil [4 times]
Cleaning up the recentf list...done (0 removed)
Invalid face reference: nil [24 times]
QuitInvalid face reference: nil
Invalid face reference: nil [3 times]
QuitInvalid face reference: nil
Invalid face reference: nil [11 times]

Load-path shadows:
/mnt/gentoo-home/youngfrog/sourcetrees/sage-mode-from-hg/emacs/.dir-locals 
hides ~/sourcetrees/magit/.dir-locals
~/sourcetrees/org-mode/lisp/ob-matlab hides 
/usr/local/share/emacs/24.3/lisp/org/ob-matlab
~/sourcetrees/org-mode/lisp/ob-sh hides 
/usr/local/share/emacs/24.3/lisp/org/ob-sh
~/sourcetrees/org-mode/lisp/org-archive hides 
/usr/local/share/emacs/24.3/lisp/org/org-archive
~/sourcetrees/org-mode/lisp/ob-dot hides 
/usr/local/share/emacs/24.3/lisp/org/ob-dot
~/sourcetrees/org-mode/lisp/org-version hides 
/usr/local/share/emacs/24.3/lisp/org/org-version
~/sourcetrees/org-mode/lisp/org-capture hides 
/usr/local/share/emacs/24.3/lisp/org/org-capture
~/sourcetrees/org-mode/lisp/ob-ruby hides 
/usr/local/share/emacs/24.3/lisp/org/ob-ruby
~/sourcetrees/org-mode/lisp/org-ctags hides 
/usr/local/share/emacs/24.3/lisp/org/org-ctags
~/sourcetrees/org-mode/lisp/org-footnote hides 
/usr/local/share/emacs/24.3/lisp/org/org-footnote
~/sourcetrees/org-mode/lisp/org-crypt hides 
/usr/local/share/emacs/24.3/lisp/org/org-crypt
~/sourcetrees/org-mode/lisp/ob-awk hides 
/usr/local/share/emacs/24.3/lisp/org/ob-awk
~/sourcetrees/org-mode/contrib/lisp/org-vm hides 
/usr/local/share/emacs/24.3/lisp/org/org-vm
~/sourcetrees/org-mode/lisp/ob-calc hides 
/usr/local/share/emacs/24.3/lisp/org/ob-calc
~/sourcetrees/org-mode/lisp/ob-picolisp hides 
/usr/local/share/emacs/24.3/lisp/org/ob-picolisp
~/sourcetrees/org-mode/lisp/ob-sass hides 
/usr/local/share/emacs/24.3/lisp/org/ob-sass
~/sourcetrees/org-mode/lisp/ob-ref hides 
/usr/local/share/emacs/24.3/lisp/org/ob-ref
~/sourcetrees/org-mode/lisp/ob-lilypond hides 
/usr/local/share/emacs/24.3/lisp/org/ob-lilypond
~/sourcetrees/org-mode/lisp/org-docview hides 
/usr/local/share/emacs/24.3/lisp/org/org-docview
~/sourcetrees/org-mode/lisp/org-rmail hides 
/usr/local/share/emacs/24.3/lisp/org/org-rmail
~/sourcetrees/org-mode/lisp/ob-keys hides 
/usr/local/share/emacs/24.3/lisp/org/ob-keys
~/sourcetrees/org-mode/lisp/ob-shen hides 
/usr/local/share/emacs/24.3/lisp/org/ob-shen
~/sourcetrees/org-mode/lisp/ob-octave hides 
/usr/local/share/emacs/24.3/lisp/org/ob-octave
~/sourcetrees/org-mode/lisp/org-info hides 
/usr/local/share/emacs/24.3/lisp/org/org-info
~/sourcetrees/org-mode/lisp/org-feed hides 
/usr/local/share/emacs/24.3/lisp/org/org-feed
~/sourcetrees/org-mode/lisp/ob-C hides /usr/local/share/emacs/24.3/lisp/org/ob-C
~/sourcetrees/org-mode/lisp/org-eshell hides 
/usr/local/share/emacs/24.3/lisp/org/org-eshell
~/sourcetrees/org-mode/lisp/org-list hides 
/usr/local/share/emacs/24.3/lisp/org/org-list
~/sourcetrees/org-mode/lisp/org-protocol hides 
/usr/local/share/emacs/24.3/lisp/org/org-protocol
~/sourcetrees/org-mode/lisp/ob-emacs-lisp hides 
/usr/local/share/emacs/24.3/lisp/org/ob-emacs-lisp
~/sourcetrees/org-mode/lisp/org-compat hides 
/usr/local/share/emacs/24.3/lisp/org/org-compat
~/sourcetrees/org-mode/lisp/ob-lisp hides 
/usr/local/share/emacs/24.3/lisp/org/ob-lisp
~/sourcetrees/org-mode/lisp/org-macs hides 
/usr/local/share/emacs/24.3/lisp/org/org-macs
~/sourcetrees/org-mode/lisp/ob-ditaa hides 
/usr/local/share/emacs/24.3/lisp/org/ob-ditaa
~/sourcetrees/org-mode/lisp/ob-mscgen hides 
/usr/local/share/emacs/24.3/lisp/org/ob-mscgen
~/sourcetrees/org-mode/lisp/ob hides /usr/local/share/emacs/24.3/lisp/org/ob
~/sourcetrees/org-mode/lisp/org-indent hides 
/usr/local/share/emacs/24.3/lisp/org/org-indent
~/sourcetrees/org-mode/lisp/ob-gnuplot hides 
/usr/local/share/emacs/24.3/lisp/org/ob-gnuplot
~/sourcetrees/org-mode/lisp/ob-maxima hides 
/usr/local/share/emacs/24.3/lisp/org/ob-maxima
~/sourcetrees/org-mode/lisp/ob-scheme hides 
/usr/local/share/emacs/24.3/lisp/org/ob-scheme
~/sourcetrees/org-mode/contrib/lisp/org-wl hides 
/usr/local/share/emacs/24.3/lisp/org/org-wl
~/sourcetrees/org-mode/lisp/ob-table hides 
/usr/local/share/emacs/24.3/lisp/org/ob-table
~/sourcetrees/org-mode/lisp/org-inlinetask hides 
/usr/local/share/emacs/24.3/lisp/org/org-inlinetask
~/sourcetrees/org-mode/lisp/org-id hides 
/usr/local/share/emacs/24.3/lisp/org/org-id
~/sourcetrees/org-mode/contrib/lisp/org-mac-message hides 
/usr/local/share/emacs/24.3/lisp/org/org-mac-message
~/sourcetrees/org-mode/lisp/ob-java hides 
/usr/local/share/emacs/24.3/lisp/org/ob-java
~/sourcetrees/org-mode/lisp/org-clock hides 
/usr/local/share/emacs/24.3/lisp/org/org-clock
~/sourcetrees/org-mode/lisp/ob-screen hides 
/usr/local/share/emacs/24.3/lisp/org/ob-screen
~/sourcetrees/org-mode/lisp/org-faces hides 
/usr/local/share/emacs/24.3/lisp/org/org-faces
~/sourcetrees/org-mode/lisp/ob-sql hides 
/usr/local/share/emacs/24.3/lisp/org/ob-sql
~/sourcetrees/org-mode/lisp/org-mhe hides 
/usr/local/share/emacs/24.3/lisp/org/org-mhe
~/sourcetrees/org-mode/lisp/ob-tangle hides 
/usr/local/share/emacs/24.3/lisp/org/ob-tangle
~/sourcetrees/org-mode/lisp/org-irc hides 
/usr/local/share/emacs/24.3/lisp/org/org-irc
~/sourcetrees/org-mode/lisp/ob-ocaml hides 
/usr/local/share/emacs/24.3/lisp/org/ob-ocaml
~/sourcetrees/org-mode/lisp/org-loaddefs hides 
/usr/local/share/emacs/24.3/lisp/org/org-loaddefs
~/sourcetrees/org-mode/lisp/org-colview hides 
/usr/local/share/emacs/24.3/lisp/org/org-colview
~/sourcetrees/org-mode/lisp/org-w3m hides 
/usr/local/share/emacs/24.3/lisp/org/org-w3m
~/sourcetrees/org-mode/lisp/org-plot hides 
/usr/local/share/emacs/24.3/lisp/org/org-plot
~/sourcetrees/org-mode/lisp/ob-R hides /usr/local/share/emacs/24.3/lisp/org/ob-R
~/sourcetrees/org-mode/lisp/org-install hides 
/usr/local/share/emacs/24.3/lisp/org/org-install
~/sourcetrees/org-mode/lisp/org-attach hides 
/usr/local/share/emacs/24.3/lisp/org/org-attach
~/sourcetrees/org-mode/lisp/org-mobile hides 
/usr/local/share/emacs/24.3/lisp/org/org-mobile
~/sourcetrees/org-mode/lisp/org-datetree hides 
/usr/local/share/emacs/24.3/lisp/org/org-datetree
~/sourcetrees/org-mode/lisp/org-mouse hides 
/usr/local/share/emacs/24.3/lisp/org/org-mouse
~/sourcetrees/org-mode/lisp/ob-org hides 
/usr/local/share/emacs/24.3/lisp/org/ob-org
~/sourcetrees/org-mode/lisp/org-bibtex hides 
/usr/local/share/emacs/24.3/lisp/org/org-bibtex
~/sourcetrees/org-mode/lisp/org-gnus hides 
/usr/local/share/emacs/24.3/lisp/org/org-gnus
~/sourcetrees/org-mode/lisp/ob-plantuml hides 
/usr/local/share/emacs/24.3/lisp/org/ob-plantuml
~/sourcetrees/org-mode/lisp/ob-css hides 
/usr/local/share/emacs/24.3/lisp/org/ob-css
~/sourcetrees/org-mode/contrib/lisp/org-mew hides 
/usr/local/share/emacs/24.3/lisp/org/org-mew
~/sourcetrees/org-mode/lisp/ob-perl hides 
/usr/local/share/emacs/24.3/lisp/org/ob-perl
~/sourcetrees/org-mode/lisp/ob-comint hides 
/usr/local/share/emacs/24.3/lisp/org/ob-comint
~/sourcetrees/org-mode/lisp/ob-python hides 
/usr/local/share/emacs/24.3/lisp/org/ob-python
~/sourcetrees/org-mode/lisp/ob-asymptote hides 
/usr/local/share/emacs/24.3/lisp/org/ob-asymptote
~/sourcetrees/org-mode/lisp/ob-io hides 
/usr/local/share/emacs/24.3/lisp/org/ob-io
~/sourcetrees/org-mode/lisp/ob-scala hides 
/usr/local/share/emacs/24.3/lisp/org/ob-scala
~/sourcetrees/org-mode/lisp/ob-fortran hides 
/usr/local/share/emacs/24.3/lisp/org/ob-fortran
~/sourcetrees/org-mode/lisp/org-src hides 
/usr/local/share/emacs/24.3/lisp/org/org-src
~/sourcetrees/org-mode/lisp/org-table hides 
/usr/local/share/emacs/24.3/lisp/org/org-table
~/sourcetrees/org-mode/lisp/org-agenda hides 
/usr/local/share/emacs/24.3/lisp/org/org-agenda
~/sourcetrees/org-mode/lisp/org hides /usr/local/share/emacs/24.3/lisp/org/org
~/sourcetrees/org-mode/lisp/org-pcomplete hides 
/usr/local/share/emacs/24.3/lisp/org/org-pcomplete
~/sourcetrees/org-mode/lisp/org-bbdb hides 
/usr/local/share/emacs/24.3/lisp/org/org-bbdb
~/sourcetrees/org-mode/lisp/ob-clojure hides 
/usr/local/share/emacs/24.3/lisp/org/ob-clojure
~/sourcetrees/org-mode/lisp/ob-eval hides 
/usr/local/share/emacs/24.3/lisp/org/ob-eval
~/sourcetrees/org-mode/lisp/ob-js hides 
/usr/local/share/emacs/24.3/lisp/org/ob-js
~/sourcetrees/org-mode/lisp/org-timer hides 
/usr/local/share/emacs/24.3/lisp/org/org-timer
~/sourcetrees/org-mode/lisp/org-element hides 
/usr/local/share/emacs/24.3/lisp/org/org-element
~/sourcetrees/org-mode/lisp/ob-ledger hides 
/usr/local/share/emacs/24.3/lisp/org/ob-ledger
~/sourcetrees/org-mode/lisp/ob-haskell hides 
/usr/local/share/emacs/24.3/lisp/org/ob-haskell
~/sourcetrees/org-mode/lisp/ob-latex hides 
/usr/local/share/emacs/24.3/lisp/org/ob-latex
~/sourcetrees/org-mode/lisp/ob-sqlite hides 
/usr/local/share/emacs/24.3/lisp/org/ob-sqlite
~/sourcetrees/org-mode/lisp/ob-lob hides 
/usr/local/share/emacs/24.3/lisp/org/ob-lob
~/sourcetrees/org-mode/lisp/ob-exp hides 
/usr/local/share/emacs/24.3/lisp/org/ob-exp
~/sourcetrees/org-mode/lisp/org-habit hides 
/usr/local/share/emacs/24.3/lisp/org/org-habit
~/sourcetrees/org-mode/lisp/org-entities hides 
/usr/local/share/emacs/24.3/lisp/org/org-entities
/mnt/gentoo-home/youngfrog/sourcetrees/sage-mode-from-hg/emacs/.dir-locals 
hides /usr/local/share/emacs/24.3/lisp/gnus/.dir-locals

Features:
(shadow sort mail-extr emacsbug sendmail org-attach org-id diary-lib
diary-loaddefs cal-iso network-stream starttls url-http tls url-gw
url-cache url-auth url url-proxy url-privacy url-expand url-methods
url-history url-cookie url-domsuf url-util lisp-mnt finder-inf texmathp
diff magit-bisect magit-key-mode magit diff-mode log-edit pcvs-util
add-log bookmark quail pp edebug debug org-datetree image-file
org-element tabify dabbrev telnet browse-url sgml-mode view woman man
org-table org-indent disp-table org-rmail org-mhe org-irc org-info
org-gnus org-docview org-bibtex bibtex org-bbdb org-w3m misearch
multi-isearch vc-git reftex-dcr reftex-auc reftex reftex-vars preview
prv-emacs font-latex latex tex-style sage-auctex org-latex
org-export-latex org-beamer org-exp org-exp-blocks footnote tex-buf tex
dbus xml crm paredit multiple-cursors mc-separate-operations
rectangular-region-mode mc-mark-more thingatpt mc-cycle-cursors
mc-edit-lines multiple-cursors-core rect adaptive-wrap-autoloads
bbdb-autoloads multiple-cursors-autoloads paredit-autoloads
workgroups-autoloads ob-sage ob-maxima .loaddefs el-get help-mode
autoload package sage rx sage-load preview-latex tex-site auto-loads
pcase ob-sh shell windmove latexenc paren doc-view jka-compr image-mode
ido uniquify recentf tree-widget org-contacts org-capture org-agenda
gnus-art mm-uu mml2015 epg-config mm-view mml-smime smime dig mailcap
find-lisp dired org-inlinetask org warnings derived org-macro
org-footnote org-pcomplete pcomplete org-list org-faces org-entities
noutline outline org-version ob-emacs-lisp ob ob-tangle org-src
easy-mmode ob-ref ob-lob ob-table ob-keys ob-exp ob-comint comint
ansi-color ring ob-core ob-eval org-compat org-macs org-loaddefs
find-func cal-menu calendar cal-loaddefs gnus-sum nnoo gnus-group
gnus-undo nnmail mail-source gnus-start gnus-spec gnus-int gnus-range
message format-spec rfc822 mml mml-sec mm-decode mm-bodies mm-encode
mail-parse rfc2231 rfc2047 rfc2045 ietf-drums mailabbrev gmm-utils
mailheader gnus-win gnus gnus-ems nnheader mail-utils wid-edit cl-macs
gv advice help-fns advice-preload time ffap url-parse auth-source eieio
byte-opt bytecomp byte-compile cconv gnus-util time-date mm-util
mail-prsvr password-cache url-vars edmacro kmacro cl cl-lib
two-mode-mode info easymenu 50magit server tooltip ediff-hook vc-hooks
lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image regexp-opt
fringe tabulated-list newcomment lisp-mode register page menu-bar
rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax
facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak
czech european ethiopic indian cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces
cus-face macroexp files text-properties overlay sha1 md5 base64 format
env code-pages mule custom widget hashtable-print-readable backquote
make-network-process dynamic-setting system-font-setting
font-render-setting x-toolkit x multi-tty emacs)