# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1206033676 0
# Node ID 7316c5c792f49cf76897471a2acd9ef6f1a93a81
# Parent  695900050c0b3821f6d697e1181a8d44653a4b31
(Fcall_interactively) [case 'B']: Use other-buffer
as default.

diff -r 695900050c0b -r 7316c5c792f4 src/ChangeLog
--- a/src/ChangeLog	Thu Mar 20 15:51:45 2008 +0000
+++ b/src/ChangeLog	Thu Mar 20 17:21:16 2008 +0000
@@ -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.
diff -r 695900050c0b -r 7316c5c792f4 src/callint.c
--- a/src/callint.c	Thu Mar 20 15:51:45 2008 +0000
+++ b/src/callint.c	Thu Mar 20 17:21:16 2008 +0000
@@ -516,20 +516,20 @@
 	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;