# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1205689552 0
# Node ID 6fb99dfc30cad78c937326289f0f4ccf4854beef
# Parent  b49a0435989672b0232ffc51bda803e97a2553e1
(Fcall_interactively): For interactive code letters
'b' and 'B' put the buffer list into the list of default "future"
values of the minibuffer.

diff -r b49a04359896 -r 6fb99dfc30ca src/callint.c
--- a/src/callint.c	Sun Mar 16 17:45:11 2008 +0000
+++ b/src/callint.c	Sun Mar 16 17:45:52 2008 +0000
@@ -513,16 +513,35 @@
 	  break;
 
 	case 'b':   		/* Name of existing buffer */
-	  args[i] = Fcurrent_buffer ();
-	  if (EQ (selected_window, minibuf_window))
-	    args[i] = Fother_buffer (args[i], Qnil, Qnil);
-	  args[i] = Fread_buffer (callint_message, args[i], Qt);
-	  break;
+	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;
 
-	case 'B':		/* Name of buffer, possibly nonexistent */
-	  args[i] = Fread_buffer (callint_message,
-				  Fother_buffer (Fcurrent_buffer (), Qnil, Qnil),
-				  Qnil);
+	    /* Get a list of buffer names (except the current buffer and
+	       internal buffers), and use this list for default values.  */
+	    tema = Qnil;
+	    temc = Fcurrent_buffer ();
+	    teml = Fbuffer_list (selected_frame);
+	    for (; CONSP (teml); teml = XCDR (teml))
+	      {
+		temb = XCAR (teml);
+		if (skip_current && EQ (temb, temc))
+		  continue;
+		if (NILP (temb))
+		  continue;
+		if (NILP (XBUFFER (temb)->name))
+		  continue;
+		if (SREF (XBUFFER (temb)->name, 0) == ' ')
+		  continue;
+		tema = Fcons (XBUFFER (temb)->name, tema);
+	      }
+	    args[i] = Fread_buffer (callint_message, Fnreverse (tema),
+				    *tem == 'b' ? Qt : Qnil);
+	  }
 	  break;
 
         case 'c':		/* Character */