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-
