Thanks! That works fine for me! Gil
On Mon, Jul 21, 2008 at 4:53 PM, Carsten Bormann <[EMAIL PROTECTED]> wrote: > On Jul 21 2008, at 22:44, Gilbert Harman wrote: > >> Is there something that corresponds to do-applescript in Emacs.app? > > I'm using this. > > (unless (fboundp 'do-applescript) ; Carbon Emacs has a fast one > (defun do-applescript (str) > (with-temp-buffer > (insert "\"") ; fake string decoration > (call-process "/usr/bin/osascript" nil t nil "-e" str) > (when (bolp) > (backward-delete-char 1)) ; get rid of trailing newline > (insert "\"") ; fake string decoration > (buffer-string)))) > > With that forking going on, might be too slow for your purposes, though. > > Gruesse, Carsten > > ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ _______________________________________________ Emacs-app-dev- mailing list Emacs-app-dev-@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/emacs-app-dev-
