Mercurial > emacs

changeset 6637:49120b664bba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list_buffers_1): Set buffer contents, then mode.
author Karl Heuer <kwzh@gnu.org>
date Sat, 02 Apr 1994 04:08:50 +0000
parents 4cdde975154f
children 61e40a447c92
files src/buffer.c
diffstat 1 files changed, 4 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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;
 }