(Fmake_indirect_buffer): Check that NAME is a string.

[bpt/emacs.git] / src / buffer.c

diff --git a/src/buffer.c b/src/buffer.c
index d62e186..403baa8 100644 (file)
--- 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));