diff options
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/coding.c b/src/coding.c index c283b5a4369..d5b9e3875ec 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -6596,7 +6596,9 @@ code_conversion_restore (arg) | |||
| 6596 | Lisp_Object arg; | 6596 | Lisp_Object arg; |
| 6597 | { | 6597 | { |
| 6598 | Lisp_Object current, workbuf; | 6598 | Lisp_Object current, workbuf; |
| 6599 | struct gcpro gcpro1; | ||
| 6599 | 6600 | ||
| 6601 | GCPRO1 (arg); | ||
| 6600 | current = XCAR (arg); | 6602 | current = XCAR (arg); |
| 6601 | workbuf = XCDR (arg); | 6603 | workbuf = XCDR (arg); |
| 6602 | if (! NILP (workbuf)) | 6604 | if (! NILP (workbuf)) |
| @@ -6607,6 +6609,7 @@ code_conversion_restore (arg) | |||
| 6607 | Fkill_buffer (workbuf); | 6609 | Fkill_buffer (workbuf); |
| 6608 | } | 6610 | } |
| 6609 | set_buffer_internal (XBUFFER (current)); | 6611 | set_buffer_internal (XBUFFER (current)); |
| 6612 | UNGCPRO; | ||
| 6610 | return Qnil; | 6613 | return Qnil; |
| 6611 | } | 6614 | } |
| 6612 | 6615 | ||