procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Finsert_buffer_substring): Proper error for non-ex buffer.

Browse source 
(Fcompare_buffer_substrings): Likewise.
This commit is contained in:
Richard M. Stallman 1993-02-11 23:21:01 +00:00
parent e9cf2084dd
commit 3fff2dfa0c
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/editfns.c
View file

@ -763,9 +763,12 @@ They default to the beginning and the end of BUFFER.")
{ {
register int beg, end, temp, len, opoint, start; register int beg, end, temp, len, opoint, start;
register struct buffer *bp; register struct buffer *bp;
Lisp_Object buffer;
buf = Fget_buffer (buf); buffer = Fget_buffer (buf);
bp = XBUFFER (buf); if (NILP (buffer))
nsberror (buf);
bp = XBUFFER (buffer);
if (NILP (b)) if (NILP (b))
beg = BUF_BEGV (bp); beg = BUF_BEGV (bp);
@ -842,8 +845,11 @@ determines whether case is significant or ignored.")
bp1 = current_buffer; bp1 = current_buffer;
else else
{ {
buffer1 = Fget_buffer (buffer1); Lisp_Object buf1;
bp1 = XBUFFER (buffer1); buf1 = Fget_buffer (buffer1);
if (NILP (buf1))
nsberror (buffer1);
bp1 = XBUFFER (buf1);
} }
if (NILP (start1)) if (NILP (start1))
@ -875,7 +881,10 @@ determines whether case is significant or ignored.")
bp2 = current_buffer; bp2 = current_buffer;
else else
{ {
buffer2 = Fget_buffer (buffer2); Lisp_Object buf2;
buf2 = Fget_buffer (buffer2);
if (NILP (buf2))
nsberror (buffer2);
bp2 = XBUFFER (buffer2); bp2 = XBUFFER (buffer2);
} }