(Fcall_interactively): Pass new arg to Fread_string.

diff --git a/src/callint.c b/src/callint.c
index a6c5570bb3a71a079417c20b6ba43c60e1243137..a25032b7fa710a9fa7bab7a2a4167ca95dd7f86b 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -533,11 +533,11 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
          break;
 
        case 's':               /* String read via minibuffer.  */
-         args[i] = Fread_string (build_string (prompt), Qnil);
+         args[i] = Fread_string (build_string (prompt), Qnil, Qnil);
          break;
 
        case 'S':               /* Any symbol.  */
-         visargs[i] = Fread_string (build_string (prompt), Qnil);
+         visargs[i] = Fread_string (build_string (prompt), Qnil, Qnil);
          /* Passing args[i] directly stimulates compiler bug */
          teml = visargs[i];
          args[i] = Fintern (teml, Qnil);

diff --git a/src/minibuf.c b/src/minibuf.c
index 38dc33b2a2042737237b22a9df49023cdde57d64..8d2995ebf916f90cfe5904f21b83ede7adaad9fc 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -503,13 +503,16 @@ is a string to insert in the minibuffer before reading.")
 
 /* Functions that use the minibuffer to read various things. */
 
-DEFUN ("read-string", Fread_string, Sread_string, 1, 2, 0,
+DEFUN ("read-string", Fread_string, Sread_string, 1, 3, 0,
   "Read a string from the minibuffer, prompting with string PROMPT.\n\
-If non-nil second arg INITIAL-INPUT is a string to insert before reading.")
-  (prompt, initial_input)
-     Lisp_Object prompt, initial_input;
+If non-nil, second arg INITIAL-INPUT is a string to insert before reading.\n\
+The third arg HISTORY, if non-nil, specifies a history list\n\
+  and optionally the initial position in the list.\n\
+See `read-from-minibuffer' for details of HISTORY argument.")
+  (prompt, initial_input, history)
+     Lisp_Object prompt, initial_input, history;
 {
-  return Fread_from_minibuffer (prompt, initial_input, Qnil, Qnil, Qnil);
+  return Fread_from_minibuffer (prompt, initial_input, Qnil, Qnil, history);
 }
 
 DEFUN ("read-no-blanks-input", Fread_no_blanks_input, Sread_no_blanks_input, 1, 2, 0,