(Fset_buffer_multibyte): Do nothing if nothing actually

changes.

diff --git a/src/buffer.c b/src/buffer.c
index 69010af7cd05ea5c02245388925c8bb2c63e92bf..1733fd5e88205834eacfa25b7ca7ec88a275c3b5 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1716,6 +1716,10 @@ but the contents viewed as characters do change.")
 {
   Lisp_Object tail, markers;
 
+  /* Do nothing if nothing actually changes.  */
+  if (NILP (flag) == NILP (current_buffer->enable_multibyte_characters))
+    return flag;
+
   /* It would be better to update the list,
      but this is good enough for now.  */
   if (! EQ (current_buffer->undo_list, Qt))