From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 2 Apr 1994 04:08:50 +0000 (+0000)
Subject: (list_buffers_1): Set buffer contents, then mode.
X-Git-Tag: emacs-19.34~9215
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f31d21b2ce3bf2be9b9b63a8c215e74d08a9ff0;p=emacs.git

(list_buffers_1): Set buffer contents, then mode.
---

diff --git a/src/buffer.c b/src/buffer.c
index ed8c3518644..36d0e042d5f 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1085,7 +1085,7 @@ validate_region (b, e)
     args_out_of_range (*b, *e);
 }
 
-Lisp_Object
+static Lisp_Object
 list_buffers_1 (files)
      Lisp_Object files;
 {
@@ -1104,11 +1104,6 @@ list_buffers_1 (files)
   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 @@ list_buffers_1 (files)
       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;
 }