[Emacs-diffs] Changes to emacs/src/macterm.c

[Steven Tamm]

Index: emacs/src/macterm.c
diff -c emacs/src/macterm.c:1.87 emacs/src/macterm.c:1.88
*** emacs/src/macterm.c:1.87    Wed Dec 29 17:25:02 2004
--- emacs/src/macterm.c Thu Dec 30 02:04:30 2004
***************
*** 7928,7933 ****
--- 7928,7944 ----
  /* Called when we receive an AppleEvent with an ID of
     "kAEOpenDocuments".  This routine gets the direct parameter,
     extracts the FSSpecs in it, and puts their names on a list.  */
+ #pragma options align=mac68k
+ typedef struct SelectionRange {
+   short unused1; // 0 (not used)
+   short lineNum; // line to select (<0 to specify range)
+   long startRange; // start of selection range (if line < 0)
+   long endRange; // end of selection range (if line < 0)
+   long unused2; // 0 (not used)
+   long theDate; // modification date/time
+ } SelectionRange;
+ #pragma options align=reset
+ 
  static pascal OSErr
  do_ae_open_documents(AppleEvent *message, AppleEvent *reply, long refcon)
  {
***************
*** 7936,7946 ****
--- 7947,7965 ----
    AEKeyword keyword;
    DescType actual_type;
    Size actual_size;
+   SelectionRange position;
  
    err = AEGetParamDesc (message, keyDirectObject, typeAEList, &the_desc);
    if (err != noErr)
      goto descriptor_error_exit;
  
+   err = AEGetParamPtr (message, keyAEPosition, typeChar, &actual_type, 
&position, sizeof(SelectionRange), &actual_size);
+   if (err == noErr)
+     drag_and_drop_file_list = Fcons (list3 (make_number (position.lineNum + 
1),
+                                           make_number (position.startRange + 
1),
+                                           make_number (position.endRange + 
1)),
+                                    drag_and_drop_file_list);
+ 
    /* Check to see that we got all of the required parameters from the
       event descriptor.  For an 'odoc' event this should just be the
       file list.  */