From 9f31d21b2ce3bf2be9b9b63a8c215e74d08a9ff0 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 2 Apr 1994 04:08:50 +0000 Subject: [PATCH] (list_buffers_1): Set buffer contents, then mode. --- src/buffer.c | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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; }