Adding modifiers to event

[Juanma Barranquero]

I want to add modifiers to a keyboard event.

Is there any easier way than this?

(defun add-modifiers (event &rest modifiers)
 (let ((e (event-basic-type event))
       (m (event-modifiers event)))
   (if (null e)
       (error "Unrecognized event %S" event)
     (dolist (modifier modifiers)
       (pushnew modifier m :test #'eq))
     (event-convert-list (append m (list e))))))

            Juanma