diff options
| author | Dmitry Antipov <dmantipov@yandex.ru> | 2014-09-11 17:21:19 +0400 |
|---|---|---|
| committer | Dmitry Antipov <dmantipov@yandex.ru> | 2014-09-11 17:21:19 +0400 |
| commit | 1dd1218653be3425e7f53ea1cfcb0d14addfaa05 (patch) | |
| tree | a91548f460ecb1aa05ac79dacbb3054853cb9e25 /src/charset.c | |
| parent | 20d362538021e154095f4b64f1b3505d3912fffd (diff) | |
| download | emacs-1dd1218653be3425e7f53ea1cfcb0d14addfaa05.tar.gz | |
Remove redundant GCPROs around Ffuncall and Fapply calls. This
is safe because Ffuncall protects all of its arguments by itself.
* charset.c (map_charset_for_dump): Remove redundant GCPRO.
* eval.c (Fapply, apply1, call0, call1, call2, call3, call4, call5)
(call6, call7): Likewise. Use compound literals where applicable.
(run_hook_with_args_2): Use compound literal.
Diffstat (limited to 'src/charset.c')
| -rw-r--r-- | src/charset.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/charset.c b/src/charset.c index 501075621cd..f987ab67ce9 100644 --- a/src/charset.c +++ b/src/charset.c @@ -667,12 +667,8 @@ map_charset_for_dump (void (*c_function) (Lisp_Object, Lisp_Object), { int from_idx = CODE_POINT_TO_INDEX (temp_charset_work->current, from); int to_idx = CODE_POINT_TO_INDEX (temp_charset_work->current, to); - Lisp_Object range; + Lisp_Object range = Fcons (Qnil, Qnil); int c, stop; - struct gcpro gcpro1; - - range = Fcons (Qnil, Qnil); - GCPRO1 (range); c = temp_charset_work->min_char; stop = (temp_charset_work->max_char < 0x20000 @@ -715,7 +711,6 @@ map_charset_for_dump (void (*c_function) (Lisp_Object, Lisp_Object), } c++; } - UNGCPRO; } void |