From: Andreas Schwab <schwab@suse.de>
Date: Mon, 12 Apr 2004 12:13:03 +0000 (+0000)
Subject: (Fmake_indirect_buffer): Check that NAME is a string.
X-Git-Tag: ttn-vms-21-2-B4~6880
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab53e0655927e83997ba6d52e4b28844fe4b679d;p=emacs.git

(Fmake_indirect_buffer): Check that NAME is a string.
---

diff --git a/src/buffer.c b/src/buffer.c
index d62e186fda8..403baa817d3 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -532,6 +532,7 @@ CLONE nil means the indirect buffer's state is reset to default values.  */)
   Lisp_Object buf;
   struct buffer *b;
 
+  CHECK_STRING (name);
   buf = Fget_buffer (name);
   if (!NILP (buf))
     error ("Buffer name `%s' is in use", SDATA (name));