(Fcall_interactively): Pass 2nd arg to Fother_buffer.

[bpt/emacs.git] / src / callint.c

diff --git a/src/callint.c b/src/callint.c
index a174f82..99a364f 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -338,13 +338,14 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
        case 'b':               /* Name of existing buffer */
          args[i] = Fcurrent_buffer ();
          if (EQ (selected_window, minibuf_window))
-           args[i] = Fother_buffer (args[i]);
+           args[i] = Fother_buffer (args[i], Qnil);
          args[i] = Fread_buffer (build_string (prompt), args[i], Qt);
          break;
 
        case 'B':               /* Name of buffer, possibly nonexistent */
          args[i] = Fread_buffer (build_string (prompt),
-                                 Fother_buffer (Fcurrent_buffer ()), Qnil);
+                                 Fother_buffer (Fcurrent_buffer (), Qnil),
+                                 Qnil);
          break;
 
         case 'c':              /* Character */