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

Diff of /emacs/src/macterm.c

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

revision 1.8 by akochoi, Tue Jun 18 05:33:25 2002 UTC revision 1.9 by akochoi, Mon Jul 1 20:02:33 2002 UTC
# Line 12123  do_ae_open_documents(AppleEvent *message Line 12123  do_ae_open_documents(AppleEvent *message
12123          int i;          int i;
12124                    
12125          /* AE file list is one based so just use that for indexing here.  */          /* AE file list is one based so just use that for indexing here.  */
12126          for (i = 1; (err == noErr) && (i <= num_files_to_open); i++) {          for (i = 1; (err == noErr) && (i <= num_files_to_open); i++)
12127            FSSpec fs;            {
12128            Str255 path_name, unix_path_name;              FSSpec fs;
12129                Str255 path_name, unix_path_name;
12130            err = AEGetNthPtr(&the_desc, i, typeFSS, &keyword, &actual_type,  #ifdef MAC_OSX
12131                              (Ptr) &fs, sizeof (fs), &actual_size);              FSRef fref;
12132            if (err != noErr) break;  #endif
12133    
12134            if (path_from_vol_dir_name (path_name, 255, fs.vRefNum, fs.parID,              err = AEGetNthPtr(&the_desc, i, typeFSS, &keyword, &actual_type,
12135                                        fs.name) &&                                (Ptr) &fs, sizeof (fs), &actual_size);
12136                mac_to_posix_pathname (path_name, unix_path_name, 255))              if (err != noErr) break;
12137              drag_and_drop_file_list = Fcons (build_string (unix_path_name),  
12138                                               drag_and_drop_file_list);  #ifdef MAC_OSX
12139          }              err = FSpMakeFSRef (&fs, &fref);
12140                if (err != noErr) break;
12141    
12142                if (FSRefMakePath (&fref, unix_path_name, 255) == noErr)
12143    #else
12144                if (path_from_vol_dir_name (path_name, 255, fs.vRefNum, fs.parID,
12145                                            fs.name) &&
12146                    mac_to_posix_pathname (path_name, unix_path_name, 255))
12147    #endif
12148                  drag_and_drop_file_list = Fcons (build_string (unix_path_name),
12149                                                   drag_and_drop_file_list);
12150              }
12151        }        }
12152    }    }
12153    
# Line 13142  mac_initialize () Line 13153  mac_initialize ()
13153  #endif  #endif
13154    
13155    mac_initialize_display_info ();    mac_initialize_display_info ();
13156    
13157    #if TARGET_API_MAC_CARBON
13158      init_required_apple_events ();
13159    
13160      DisableMenuCommand (NULL, kHICommandQuit);
13161    #endif
13162  }  }
13163    
13164    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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