comparison src/fileio.c @ 86:364816949b59 r20-0b93

Import from CVS: tag r20-0b93
author cvs
date Mon, 13 Aug 2007 09:09:02 +0200
parents 6a378aca36af
children 4be1180a9e89
comparison
equal deleted inserted replaced
85:c661705957e0 86:364816949b59
3391 if (NILP (handler) && STRINGP (visit)) 3391 if (NILP (handler) && STRINGP (visit))
3392 handler = Ffind_file_name_handler (visit, Qwrite_region); 3392 handler = Ffind_file_name_handler (visit, Qwrite_region);
3393 3393
3394 if (!NILP (handler)) 3394 if (!NILP (handler))
3395 { 3395 {
3396 Lisp_Object val = call7 (handler, Qwrite_region, start, end, 3396 Lisp_Object val = call8 (handler, Qwrite_region, start, end,
3397 filename, append, visit, codesys); 3397 filename, append, visit, lockname, codesys);
3398 if (visiting) 3398 if (visiting)
3399 { 3399 {
3400 BUF_SAVE_MODIFF (current_buffer) = BUF_MODIFF (current_buffer); 3400 BUF_SAVE_MODIFF (current_buffer) = BUF_MODIFF (current_buffer);
3401 current_buffer->save_length = 3401 current_buffer->save_length =
3402 make_int (BUF_SIZE (current_buffer)); 3402 make_int (BUF_SIZE (current_buffer));