Function: event-apply-shift-modifier

Add the Shift modifier to the following event.
For example, type C-x @ S & to enter Shift-&.