* lisp/subr.el (read-char-choice): Use read-key. Suggested by Stefan.