From 2e6266ac5774e0edc9b8b24456dc81e3f8805465 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Mon, 16 Oct 2006 08:58:39 +0000 Subject: [PATCH] (Fmac_get_preference, Fmac_code_convert_string): Add GCPROs. --- src/mac.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/mac.c b/src/mac.c index be6953a0d55..d127422ccde 100644 --- a/src/mac.c +++ b/src/mac.c @@ -4611,6 +4611,7 @@ otherwise. */) CFStringRef app_id, key_str; CFPropertyListRef app_plist = NULL, plist; Lisp_Object result = Qnil, tmp; + struct gcpro gcpro1, gcpro2; if (STRINGP (key)) key = Fcons (key, Qnil); @@ -4627,6 +4628,8 @@ otherwise. */) if (!NILP (hash_bound)) CHECK_NUMBER (hash_bound); + GCPRO2 (key, format); + BLOCK_INPUT; app_id = kCFPreferencesCurrentApplication; @@ -4681,6 +4684,8 @@ otherwise. */) UNBLOCK_INPUT; + UNGCPRO; + return result; } @@ -4846,6 +4851,7 @@ On successful conversion, return the result string, else return nil. */) Lisp_Object string, source, target, normalization_form; { Lisp_Object result = Qnil; + struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; CFStringEncoding src_encoding, tgt_encoding; CFStringRef str = NULL; @@ -4856,6 +4862,8 @@ On successful conversion, return the result string, else return nil. */) CHECK_SYMBOL (target); CHECK_SYMBOL (normalization_form); + GCPRO4 (string, source, target, normalization_form); + BLOCK_INPUT; src_encoding = get_cfstring_encoding_from_lisp (source); @@ -4896,6 +4904,8 @@ On successful conversion, return the result string, else return nil. */) UNBLOCK_INPUT; + UNGCPRO; + return result; } -- 2.11.4.GIT