# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 917867861 0
# Node ID 6ea9058180ec70203c9300ec007494ba3e17a4d1
# Parent  e6c0e87123a7ccf3c722933492a5833486d3a075
(Fset_buffer_multibyte): Error if buffer is multibyte.

diff -r e6c0e87123a7 -r 6ea9058180ec src/buffer.c
--- a/src/buffer.c	Mon Feb 01 10:38:08 1999 +0000
+++ b/src/buffer.c	Mon Feb 01 11:17:41 1999 +0000
@@ -1735,6 +1735,9 @@
 {
   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;