# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 765259730 0
# Node ID 49120b664bba592b8e39ba5e2fcead1ba7854bb8
# Parent  4cdde975154f5036e74cc8a69744318f40223790
(list_buffers_1): Set buffer contents, then mode.

diff -r 4cdde975154f -r 49120b664bba src/buffer.c
--- a/src/buffer.c	Sat Apr 02 02:58:07 1994 +0000
+++ b/src/buffer.c	Sat Apr 02 04:08:50 1994 +0000
@@ -1085,7 +1085,7 @@
     args_out_of_range (*b, *e);
 }
 
-Lisp_Object
+static Lisp_Object
 list_buffers_1 (files)
      Lisp_Object files;
 {
@@ -1104,11 +1104,6 @@
   XFASTINT (minspace) = 1;
 
   Fset_buffer (Vstandard_output);
-
-  tail = intern ("Buffer-menu-mode");
-  if (!EQ (tail, current_buffer->major_mode)
-      && (tem = Ffboundp (tail), !NILP (tem)))
-    call0 (tail);
   Fbuffer_disable_undo (Vstandard_output);
   current_buffer->read_only = Qnil;
 
@@ -1162,7 +1157,9 @@
       write_string ("\n", -1);
     }
 
-  current_buffer->read_only = Qt;
+  tail = intern ("Buffer-menu-mode");
+  if ((tem = Ffboundp (tail), !NILP (tem)))
+    call0 (tail);
   set_buffer_internal (old);
   return desired_point;
 }