diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2014-05-26 13:16:47 +0200 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2014-05-26 13:16:47 +0200 |
| commit | 6cf4e5d6f677c1a03076b16d6c265c7b0d9711d6 (patch) | |
| tree | 5a8c874b4b65c22b39c2127e65de69a0037b605a /src/nsfns.m | |
| parent | cae9b33defcdd3700f787bd94d5f47f69a3377f6 (diff) | |
| download | emacs-6cf4e5d6f677c1a03076b16d6c265c7b0d9711d6.tar.gz | |
* nsfns.m (ns_do_applescript): Surround executeAndReturnError
with calls to ns_init_events, ns_finish_events.
* nsterm.h (ns_init_events, ns_finish_events): Declare.
* nsterm.m (ns_init_events, ns_finish_events): New functions.
(ns_read_socket, ns_select): Call ns_init_events, ns_finish_events.
Fixes: debbugs:17424
Diffstat (limited to 'src/nsfns.m')
| -rw-r--r-- | src/nsfns.m | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/nsfns.m b/src/nsfns.m index 4c3f7f34c07..0f2c2e693f7 100644 --- a/src/nsfns.m +++ b/src/nsfns.m @@ -2094,9 +2094,10 @@ ns_do_applescript (Lisp_Object script, Lisp_Object *result) [[NSAppleScript alloc] initWithSource: [NSString stringWithUTF8String: SSDATA (script)]]; + ns_init_events (); returnDescriptor = [scriptObject executeAndReturnError: &errorDict]; [scriptObject release]; - + ns_finish_events (); *result = Qnil; if (returnDescriptor != NULL) |