Changeset 3021

Show
Ignore:
Timestamp:
2003年02月26日 21時28分39秒 (6 years ago)
Author:
miyoshi
Message:

* mw32mci.c (Qmw32_mci_notify): New lisp object.

* keyboard.c (make_lispy_event): Modify the lisp object correspond to
mw32_mci_event.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • work/cvs2svn/src/ChangeLog.Meadow

    r3019 r3021  
    1212        (syms_of_mw32mci): Ditto. 
    1313        (init_mw32mci): Ditto. 
     14        (Qmw32_mci_notify): New lisp object.     
    1415 
    1516        * makefile.meadow.w32-in (FULL_LINK_FLAGS): Append mw32mci.c. 
    …… 
    1920        Update dependancies. 
    2021 
    21         * keyboard.c (make_lispy_event): Convert mw32_mci_event to a list 
     22        * keyboard.c (make_lispy_event): Convert mw32_mci_event to a lisp 
    2223        object. 
     24        (make_lispy_event): Modify the lisp object correspond to 
     25        mw32_mci_event. 
    2326 
    2427        * emacs.c (main): Add initialization of mw32mci. 

  • work/cvs2svn/src/keyboard.c

    r3017 r3021  
    54635463        Lisp_Object event_type, device_id, arg; 
    54645464 
     5465        event_type = Qmw32_mci_notify; 
    54655466        switch (event->code) 
    54665467          { 
    54675468          case MW32_MCI_NOTIFY_ABORTED: 
    5468             event_type = Qmw32_mci_notify_aborted; 
    5469             arg = Qnil; 
     5469            arg = Qmw32_mci_notify_aborted; 
    54705470            break; 
    54715471          case MW32_MCI_NOTIFY_FAILURE: 
    5472             event_type = Qmw32_mci_notify_failure; 
    5473             arg = Qnil; 
     5472            arg = Qmw32_mci_notify_failure; 
    54745473            break; 
    54755474          case MW32_MCI_NOTIFY_SUCCESSFUL: 
    5476             event_type = Qmw32_mci_notify_successful; 
    5477             arg = Qnil; 
     5475            arg = Qmw32_mci_notify_successful; 
    54785476            break; 
    54795477          case MW32_MCI_NOTIFY_SUPERSEDED: 
    5480             event_type = Qmw32_mci_notify_superseded; 
    5481             arg = Qnil; 
     5478            arg = Qmw32_mci_notify_superseded; 
    54825479            break; 
    54835480          default: 

  • work/cvs2svn/src/mw32mci.c

    r3017 r3021  
    3030 
    3131Lisp_Object Qmw32_mci; 
     32Lisp_Object Qmw32_mci_notify; 
    3233Lisp_Object Qmw32_mci_notify_aborted; 
    3334Lisp_Object Qmw32_mci_notify_failure; 
    …… 
    105106  Qmw32_mci = intern ("mw32-mci"); 
    106107  staticpro (&Qmw32_mci); 
     108  Qmw32_mci_notify = intern ("mw32-mci-notify"); 
     109  staticpro (&Qmw32_mci_notify); 
    107110  Qmw32_mci_notify_aborted = intern ("mw32-mci-notify-aborted"); 
    108111  staticpro (&Qmw32_mci_notify_aborted); 

  • work/cvs2svn/src/mw32mci.h

    r3017 r3021  
    3434 
    3535extern Lisp_Object Qmw32_mci; 
     36extern Lisp_Object Qmw32_mci_notify; 
    3637extern Lisp_Object Qmw32_mci_notify_aborted; 
    3738extern Lisp_Object Qmw32_mci_notify_failure;