| 8750 | | { |
|---|
| 8751 | | struct input_event buf; |
|---|
| 8752 | | Lisp_Object frame; |
|---|
| 8753 | | int reason; |
|---|
| 8754 | | |
|---|
| 8755 | | MW32_INIT_EMACS_EVENT (buf); |
|---|
| 8756 | | buf.kind = mw32_mci_event; |
|---|
| 8757 | | XSETFRAME (frame, f); |
|---|
| 8758 | | buf.frame_or_window = frame; |
|---|
| 8759 | | switch (msg.wParam) |
|---|
| 8760 | | { |
|---|
| 8761 | | case MCI_NOTIFY_ABORTED: |
|---|
| 8762 | | reason = MW32_MCI_NOTIFY_ABORTED; |
|---|
| 8763 | | break; |
|---|
| 8764 | | case MCI_NOTIFY_FAILURE: |
|---|
| 8765 | | reason = MW32_MCI_NOTIFY_FAILURE; |
|---|
| 8766 | | break; |
|---|
| 8767 | | case MCI_NOTIFY_SUCCESSFUL: |
|---|
| 8768 | | reason = MW32_MCI_NOTIFY_SUCCESSFUL; |
|---|
| 8769 | | break; |
|---|
| 8770 | | case MCI_NOTIFY_SUPERSEDED: |
|---|
| 8771 | | reason = MW32_MCI_NOTIFY_SUPERSEDED; |
|---|
| 8772 | | break; |
|---|
| 8773 | | default: |
|---|
| 8774 | | abort (); |
|---|
| 8775 | | } |
|---|
| 8776 | | buf.code = (int) reason; |
|---|
| 8777 | | buf.arg = make_number (msg.lParam); |
|---|
| 8778 | | buf.timestamp = msg.time; |
|---|
| 8779 | | kbd_buffer_store_event (&buf); |
|---|
| 8780 | | } |
|---|
| | 8750 | bufp->kind = mw32_mci_event; |
|---|
| | 8751 | XSETFRAME (bufp->frame_or_window, f); |
|---|
| | 8752 | switch (msg.wParam) |
|---|
| | 8753 | { |
|---|
| | 8754 | case MCI_NOTIFY_ABORTED: |
|---|
| | 8755 | bufp->code = MW32_MCI_NOTIFY_ABORTED; |
|---|
| | 8756 | break; |
|---|
| | 8757 | case MCI_NOTIFY_FAILURE: |
|---|
| | 8758 | bufp->code = MW32_MCI_NOTIFY_FAILURE; |
|---|
| | 8759 | break; |
|---|
| | 8760 | case MCI_NOTIFY_SUCCESSFUL: |
|---|
| | 8761 | bufp->code = MW32_MCI_NOTIFY_SUCCESSFUL; |
|---|
| | 8762 | break; |
|---|
| | 8763 | case MCI_NOTIFY_SUPERSEDED: |
|---|
| | 8764 | bufp->code = MW32_MCI_NOTIFY_SUPERSEDED; |
|---|
| | 8765 | break; |
|---|
| | 8766 | default: |
|---|
| | 8767 | abort (); |
|---|
| | 8768 | } |
|---|
| | 8769 | bufp->arg = make_number (msg.lParam); |
|---|
| | 8770 | bufp->timestamp = msg.time; |
|---|
| | 8771 | bufp++; |
|---|
| | 8772 | count++; |
|---|
| | 8773 | numchars--; |
|---|
