comparison src/editfns.c @ 16134:7558d82368f9

(Finsert_buffer_substring): Check for deleted buffer. (Fcompare_buffer_substrings): Likewise.
author Karl Heuer <kwzh@gnu.org>
date Thu, 05 Sep 1996 20:33:58 +0000
parents d4fd600475dc
children 79e6c47054c5
comparison
equal deleted inserted replaced
16133:36566aa94b49 16134:7558d82368f9
1362 1362
1363 buffer = Fget_buffer (buf); 1363 buffer = Fget_buffer (buf);
1364 if (NILP (buffer)) 1364 if (NILP (buffer))
1365 nsberror (buf); 1365 nsberror (buf);
1366 bp = XBUFFER (buffer); 1366 bp = XBUFFER (buffer);
1367 if (NILP (bp->name))
1368 error ("Selecting deleted buffer");
1367 1369
1368 if (NILP (start)) 1370 if (NILP (start))
1369 b = BUF_BEGV (bp); 1371 b = BUF_BEGV (bp);
1370 else 1372 else
1371 { 1373 {
1422 Lisp_Object buf1; 1424 Lisp_Object buf1;
1423 buf1 = Fget_buffer (buffer1); 1425 buf1 = Fget_buffer (buffer1);
1424 if (NILP (buf1)) 1426 if (NILP (buf1))
1425 nsberror (buffer1); 1427 nsberror (buffer1);
1426 bp1 = XBUFFER (buf1); 1428 bp1 = XBUFFER (buf1);
1429 if (NILP (bp1->name))
1430 error ("Selecting deleted buffer");
1427 } 1431 }
1428 1432
1429 if (NILP (start1)) 1433 if (NILP (start1))
1430 begp1 = BUF_BEGV (bp1); 1434 begp1 = BUF_BEGV (bp1);
1431 else 1435 else
1458 Lisp_Object buf2; 1462 Lisp_Object buf2;
1459 buf2 = Fget_buffer (buffer2); 1463 buf2 = Fget_buffer (buffer2);
1460 if (NILP (buf2)) 1464 if (NILP (buf2))
1461 nsberror (buffer2); 1465 nsberror (buffer2);
1462 bp2 = XBUFFER (buf2); 1466 bp2 = XBUFFER (buf2);
1467 if (NILP (bp2->name))
1468 error ("Selecting deleted buffer");
1463 } 1469 }
1464 1470
1465 if (NILP (start2)) 1471 if (NILP (start2))
1466 begp2 = BUF_BEGV (bp2); 1472 begp2 = BUF_BEGV (bp2);
1467 else 1473 else