Re: read-key-sequence(-vector) on Shift left/right gives [left]/[right], not [S-left]/[S-right] ?

[Katsumi Yamaoka]

>>>>> In <mailman.1740.1094515688.1998.help-gnu-emacs@gnu.org>
>>>>>   Drew Adams wrote:

> How can I read the key sequence and obtain the modifier?

`M-x apropos RET modifier RET' will help. ;-)

(defun foo ()
  (interactive)
  (let ((event (read-event)))
    (message "modifiers: %s; key: %s"
             (mapconcat 'symbol-name (event-modifiers event) ", ")
             (event-basic-type event))))