Mercurial > emacs
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 |