Mercurial > emacs

comparison src/coding.c @ 90263:80fb4c061e99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(code_conversion_restore): GCPRO arg.
author Kenichi Handa <handa@m17n.org>
date Tue, 17 Jan 2006 02:38:38 +0000
parents 7beb78bc1f8e
children f1df126ec7de
comparison
equal deleted inserted replaced
90262:f79a24752390 90263:80fb4c061e99
6594 static Lisp_Object 6594 static Lisp_Object
6595 code_conversion_restore (arg) 6595 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 6599 struct gcpro gcpro1;
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))
6603 { 6605 {
6604 if (EQ (workbuf, Vcode_conversion_reused_workbuf)) 6606 if (EQ (workbuf, Vcode_conversion_reused_workbuf))
6605 reused_workbuf_in_use = 0; 6607 reused_workbuf_in_use = 0;
6606 else if (! NILP (Fbuffer_live_p (workbuf))) 6608 else if (! NILP (Fbuffer_live_p (workbuf)))
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
6613 Lisp_Object 6616 Lisp_Object
6614 code_conversion_save (with_work_buf, multibyte) 6617 code_conversion_save (with_work_buf, multibyte)