comparison src/print.c @ 223:2c611d1463a6 r20-4b10

Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 262b8bb4a523
children 52952cbfc5b5
comparison
equal deleted inserted replaced
222:aae4c8b01452 223:2c611d1463a6
415 #endif 415 #endif
416 416
417 Fset_buffer (Fget_buffer_create (build_string (bufname))); 417 Fset_buffer (Fget_buffer_create (build_string (bufname)));
418 418
419 current_buffer->read_only = Qnil; 419 current_buffer->read_only = Qnil;
420 Ferase_buffer (Fcurrent_buffer ()); 420 Ferase_buffer (Qnil);
421 421
422 XSETBUFFER (buf, current_buffer); 422 XSETBUFFER (buf, current_buffer);
423 specbind (Qstandard_output, buf); 423 specbind (Qstandard_output, buf);
424 424
425 set_buffer_internal (old); 425 set_buffer_internal (old);