mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 01:41:01 -08:00
Code Issues Projects Releases Wiki Activity

(Fcall_interactively) [case 'B']: Use other-buffer

Browse source 
as default.
This commit is contained in:
Andreas Schwab 2008-03-20 17:21:16 +00:00
parent 9f7ddd67c0
commit acab783e7f
2 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2008-03-20 Andreas Schwab <schwab@suse.de>
* callint.c (Fcall_interactively) [case 'B']: Use other-buffer
as default.
2008-03-19 Jason Rumney <jasonr@gnu.org>
* w32fns.c (hourglass_timer, hourglass_hwnd): New variables.

14
src/callint.c
View file

@ -516,20 +516,20 @@ invoke it. If KEYS is omitted or nil, the return value of
case 'B': /* Name of buffer, possibly nonexistent */
{
Lisp_Object tema, temb, temc;
int skip_current = 1;
if (*tem == 'b' && !EQ (selected_window, minibuf_window))
skip_current = 0;
/* Get a list of buffer names (except the current buffer and
internal buffers), and use this list for default values. */
/* Get a list of buffer names (except internal buffers), and
use this list for default values. Put either current
buffer or other-buffer in front. */
tema = Qnil;
temc = Fcurrent_buffer ();
if (*tem == 'B' || EQ (selected_window, minibuf_window))
temc = Fother_buffer (temc, Qnil, Qnil);
tema = Fcons (XBUFFER (temc)->name, tema);
teml = Fbuffer_list (selected_frame);
for (; CONSP (teml); teml = XCDR (teml))
{
temb = XCAR (teml);
if (skip_current && EQ (temb, temc))
if (EQ (temb, temc))
continue;
if (NILP (temb))
continue;