From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 1 Feb 1999 11:17:41 +0000 (+0000)
Subject: (Fset_buffer_multibyte): Error if buffer is multibyte.
X-Git-Tag: emacs-20.4~709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e553d5e6c90f945f1dd611995df3a908ffe7a8c;p=emacs.git

(Fset_buffer_multibyte): Error if buffer is multibyte.
---

diff --git a/src/buffer.c b/src/buffer.c
index 9d5fb51c258..0cd234303f6 100644
--- 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;