(Fset_buffer_multibyte): Error if buffer is multibyte.

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

diff --git a/src/buffer.c b/src/buffer.c
index 9d5fb51..0cd2343 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1735,6 +1735,9 @@ but the contents viewed as characters do change.")
 {
   Lisp_Object tail, markers;
 
+  if (current_buffer->base_buffer)
+    error ("Cannot do `set-buffer-multibyte' on an indirect buffer");
+
   /* Do nothing if nothing actually changes.  */
   if (NILP (flag) == NILP (current_buffer->enable_multibyte_characters))
     return flag;