From 3fff2dfa0c5af85ef4fc02216d3224243391ffd6 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 11 Feb 1993 23:21:01 +0000
Subject: [PATCH] (Finsert_buffer_substring): Proper error for non-ex buffer.
 (Fcompare_buffer_substrings): Likewise.

---
 src/editfns.c | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

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