mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(list_buffers_1): Set buffer contents, then mode.

Browse Source
This commit is contained in:
Karl Heuer 1994-04-02 04:08:50 +00:00
parent f726257eb4
commit 9f31d21b2c
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/buffer.c
View File

@ -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;
}