(code_conversion_restore): GCPRO arg.

948bdcf3 · Kenichi Handa · 877173ab · 948bdcf3
Commit 948bdcf3 authored Jan 17, 2006 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

src/coding.c src/coding.c +3 -0

No files found.
--- a/src/coding.c
+++ b/src/coding.c
@@ -6596,7 +6596,9 @@ code_conversion_restore (arg)
     Lisp_Object arg;
 {
  Lisp_Object current, workbuf;
+  struct gcpro gcpro1;

+  GCPRO1 (arg);
  current = XCAR (arg);
  workbuf = XCDR (arg);
  if (! NILP (workbuf))
@@ -6607,6 +6609,7 @@ code_conversion_restore (arg)
 	Fkill_buffer (workbuf);
    }
  set_buffer_internal (XBUFFER (current));
+  UNGCPRO;
  return Qnil;
 }