/[emacs]/emacs/src/mac.c
ViewVC logotype

Diff of /emacs/src/mac.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by mituharu, Thu Mar 17 08:02:24 2005 UTC revision 1.31 by mituharu, Wed Apr 6 02:23:37 2005 UTC
# Line 364  cfnumber_to_lisp (number) Line 364  cfnumber_to_lisp (number)
364    
365    
366  /* CFDate to a list of three integers as in a return value of  /* CFDate to a list of three integers as in a return value of
367     `current-time'xo.  */     `current-time'.  */
368    
369  Lisp_Object  Lisp_Object
370  cfdate_to_lisp (date)  cfdate_to_lisp (date)
371       CFDateRef date;       CFDateRef date;
372  {  {
373    static CFGregorianDate epoch_gdate = {1970, 1, 1, 0, 0, 0.0};    static const CFGregorianDate epoch_gdate = {1970, 1, 1, 0, 0, 0.0};
374    static CFAbsoluteTime epoch = 0.0, sec;    static CFAbsoluteTime epoch = 0.0, sec;
375    int high, low;    int high, low;
376    
# Line 668  parse_resource_name (p) Line 668  parse_resource_name (p)
668      return Qnil;      return Qnil;
669    
670    result = Fcons (component, result);    result = Fcons (component, result);
671    while (binding = parse_binding (p))    while ((binding = parse_binding (p)) != '\0')
672      {      {
673        if (binding == '*')        if (binding == '*')
674          result = Fcons (LOOSE_BINDING, result);          result = Fcons (LOOSE_BINDING, result);
# Line 3662  corresponding Lisp object as follows: Line 3662  corresponding Lisp object as follows:
3662    CFDate             List of three integers         date    CFDate             List of three integers         date
3663                         (cf. `current-time')                         (cf. `current-time')
3664    CFData             Unibyte string                 data    CFData             Unibyte string                 data
3665    CFArray            Array                          array    CFArray            Vector                         array
3666    CFDictionary       Alist or hash table            dictionary    CFDictionary       Alist or hash table            dictionary
3667                         (depending on HASH-BOUND)                         (depending on HASH-BOUND)
3668    
# Line 4174  syms_of_mac () Line 4174  syms_of_mac ()
4174    staticpro (&QCLIPBOARD);    staticpro (&QCLIPBOARD);
4175    
4176  #if TARGET_API_MAC_CARBON  #if TARGET_API_MAC_CARBON
4177    Qstring = intern ("string");    Qstring  = intern ("string");         staticpro (&Qstring);
4178    staticpro (&Qstring);    Qnumber  = intern ("number");         staticpro (&Qnumber);
4179      Qboolean = intern ("boolean");        staticpro (&Qboolean);
4180    Qnumber = intern ("number");    Qdate    = intern ("date");           staticpro (&Qdate);
4181    staticpro (&Qnumber);    Qdata    = intern ("data");           staticpro (&Qdata);
4182      Qarray   = intern ("array");          staticpro (&Qarray);
4183    Qboolean = intern ("boolean");    Qdictionary = intern ("dictionary");  staticpro (&Qdictionary);
   staticpro (&Qboolean);  
   
   Qdate = intern ("date");  
   staticpro (&Qdate);  
   
   Qdata = intern ("data");  
   staticpro (&Qdata);  
   
   Qarray = intern ("array");  
   staticpro (&Qarray);  
   
   Qdictionary = intern ("dictionary");  
   staticpro (&Qdictionary);  
4184    
4185    Qxml = intern ("xml");    Qxml = intern ("xml");
4186    staticpro (&Qxml);    staticpro (&Qxml);

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26