mac-emacs-users

[Mac-emacs-users] do-applescript

[<dm...@dm...>]

I'm using current CVS emacs built on 10.1.5 with the current (beta ?)
development kit.  I've applied the patch to fix boxed/bold/italic
chars.

Is there any guidance on using the "do-applescript" function ?

I've tried passing a string which is an applescript script, the name
of a file which contains a script, ...  These all generate errors.

I changed the call to "error" so that it no longer complains about %ld
as a format string, but now I just see large negative numbers.

Any help would be appreciated.

Re: [Mac-emacs-users] do-applescript

[Andrew C. <ak...@sh...>]

> I'm using current CVS emacs built on 10.1.5 with the current (beta ?)
> development kit.  I've applied the patch to fix boxed/bold/italic
> chars.
> 
> Is there any guidance on using the "do-applescript" function ?
> 
> I've tried passing a string which is an applescript script, the name
> of a file which contains a script, ...  These all generate errors.
> 
> I changed the call to "error" so that it no longer complains about %ld
> as a format string, but now I just see large negative numbers.
> 
> Any help would be appreciated.

Please take a look at this message in the mailing list archive:

  http://sourceforge.net/mailarchive/forum.php?thread_id=257726&forum_id=5271

I don't think the patch described in it has been tested and included
into the CVS code yet.

You can probably also use the Lisp function call-process with the
osascript command.

Andrew.

[Mac-emacs-users] Re: do-applescript

[<dm...@dm...>]

* ak...@sh... [2002-06-11 21:10:15]
> [...I couldn't get "do-applescript" to work...]
> Please take a look at this message in the mailing list archive:
>   http://sourceforge.net/mailarchive/forum.php?thread_id=257726&forum_id=5271
> I don't think the patch described in it has been tested and included
> into the CVS code yet.

Thanks for the pointer.  Using the patch below (which is based on
that in the thread you indicated), do-applescript now works for me
just fine.

Could this be committed to CVS ?

> You can probably also use the Lisp function call-process with the
> osascript command.

This also worked, though I preferred to use the internal function.

Index: mac.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/mac.c,v
retrieving revision 1.3
diff -u -r1.3 mac.c
--- mac.c	6 May 2002 06:48:57 -0000	1.3
+++ mac.c	13 Jun 2002 06:48:21 -0000
@@ -2443,6 +2443,9 @@
 
   *result = 0;
 
+  if (!as_scripting_component)
+    initialize_applescript();
+
   error = AECreateDesc (typeChar, script, strlen(script), &script_desc);
   if (error)
     return error;
@@ -2499,10 +2502,10 @@
         }
       HUnlock (result_desc.dataHandle);
 #endif /* not TARGET_API_MAC_CARBON */
+      AEDisposeDesc (&result_desc);    
     }
 
   AEDisposeDesc (&script_desc);
-  AEDisposeDesc (&result_desc);    
 
   return osaerror;
 }
@@ -2527,7 +2530,7 @@
   if (status)
     {
       if (!result)
-        error ("AppleScript error %ld", status);
+        error ("AppleScript error %d", status);
       else
         {
           /* Unfortunately only OSADoScript in do_applescript knows how

Re: [Mac-emacs-users] Re: do-applescript

[Andrew C. <ak...@sh...>]

> Thanks for the pointer.  Using the patch below (which is based on
> that in the thread you indicated), do-applescript now works for me
> just fine.
> 
> Could this be committed to CVS ?

Thank you for the patch.  This has now been checked in.