diff src/callint.c @ 93109:7316c5c792f4

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

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